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LDUIC  -  FIND  THE  LOAD  UK  FOR  N  MACRO  V05.03b  Saturday  29-Jun-85  00:21  Page  6-3 
Symbol  table 

U.CNf 

U.COTQ 

U.CTCB 

U.CTL 

U.CTYP 

U.CWl 

U.CW2 

U.CW3 

U.CW4 

U.CYL  = 

U.DCB 

U.FCDE= 

U.FNUM^ 

U.GRP  = 

U.KCSR= 

U.I<,CS6= 

U.LUIC 

U.MEDI= 

ABS. 

DATA 

Errors  detected:   0 

♦**  Assembler  statistics 

Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  1220A  Words  (  48  Pages) 

Size  of  core  pool:  K440  Words  (  5?  Pages) 

Operating  system:  RSX-11M/PLUS 

Elapsed  time:  00:00:09.44 
SY:LDU!C.V2,C132,134]LDUK/CR/-SP=SY:[' 


NIL 


oooc  '■ 

U.HI.UN= 

000050 

U.TFRQ 

000036 

U.UT1L= 

000036 

U2.PRV= 

000010 

OOf 

U.MUP 

177772 

U.TIXL 

000060 

U.VCB  = 

000034 

U2.RMT= 

020000 

000.  . 

U.OWN 

177776 

U.TLPP 

000053 

U.VSER= 

000120 

U2.R04= 

100000 

000004 

U.RBNS= 

000112 

U.TMT] 

000047 

U.2MED= 

9229^5 

U2.SCS= 

99929^ 

000052 

U.RCTC= 

000113 

U.TRCK= 

000100 

U2.AT.= 

000020 

U2.SLV= 

000200 

000010 

U.RCTS= 

000110 

U.TS^A 

000026 

U2.CRT= 

002000 

U2.VT5= 

000002 

000012 

U.RED 

000002 

U.TST5 

000054 

U2.DH1= 

100000 

U2.7CH= 

010000 

000014 

U.REC" 

000034 

U.TST6 

000056 

U2.DJ1= 

040000 

U3.0PA- 

100000 

000016 

U.SCB 

000020 

U.TTAB 

000050 

U2.DZ1= 

000100 

U3.PAR= 

040000 

000104 

U.SHST= 

000076 

U.TTYP 

000046 

U2.ESC= 

001000 

U3.UPC= 

020000 

000000 

U.SHUN= 

C00074 

U.TUX 

000024 

U2.HFF= 

010000 

U4.CR  =: 

000100 

000042 

U.SPC  = 

000036 

U.UHVR= 

000107 

U2.HLD= 

000040 

V$$CTR= 

001000 

000040 

U.STS 

000005 

U.UIC 

000044 

U2.L0G= 

000400 

X$$DBT= 

000000 

000102 

U.ST2 

000007 

U.UNf  -- 

000052 

U2.LWC= 

000001 

$CBOMG= 

»*♦**♦  GX 

000032 

U.SUB  = 

000036 

U.UNIT 

000006 

U2.L3S= 

000004 

$DIV  = 

*««*»*  GX 

000034 

U.TCHP 

000042 

U.UNS2- 

OOOIK 

U2.L8S= 

010000 

SLDUIC 

OOOCOORG 

U777', 

U.TCVP 

000043 

U.UNTI= 

000060 

U2.NEC= 

004000 

$$$   = 

000062 

000040 

U.TFLK 

000040 

U.USVR= 

000106 

177776 

000 

(RW,I,GBL,ABS,0VR) 

000170 

001 

(RW  I,LCL,REL,CON) 

000020 

002 

(RW,D,LCL,REL,CON) 

i]RSXnCM.SHL/ML,i  130, 11 ODNETL IB/ML, [130,1 0]RSXMCM/PA:1,  [132,1  OlLDUK 


LDUK 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:21 
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C  1 


NTL 


nc  r  c  ncMTC 


NTLDEV  ■ 
DVSVM  - 

405 

406 

407 

408 

409 

41'" 

41 

412 

413 

414 

415 

416 

417 


B  16 

-  BUILD  DEVICE  DATA  STRU  MACRO  V05.03b  Saturday  29-Jun-85  00:30 
DEFINE  SPEflAL  DATA  STRUCTURE  SYMBOLS 

000442  000762 

000444  026167 

000452  103757 

000454 

000462  000752 

000464  005402 

000466 


000010     000136'   40$ 


000470     016C00 
000474 


000154' 


BR 

25$ 

40$: 

CMP 

10(R1), LENGTH 

BLO 

30$ 

EMSG$ 

2P 

BR 

25$ 

50$: 

NEC 

R2 

60$: 

RETURN 

•  ERROR 

COND1 1 1ONS 

101$: 

MOV 

ETAa-2(RO),R0 

CALLR 

aiRO)* 

Page  10-1 


IS  SYMBOL  WITHIN  TABLE  LIMITS? 

IF  LO,  YES 

PRINT  ERROR  MESSAGE 

SET  C-BIT  IF  ANY  ERRORS  OCCURRED 


GET  ERROR  MESSAGE  BLOCK  ADDRESS 
PRINT  ERROR  MESSAGE 


C  16 

MTi  nF\/  -  null  n  riFUirp   data   strii  MACRfl  V05.03h   Saturdav   29-Jun-85   00:30 


Paae  11 


LDUK      CREATED  BY  MACRO  ON  29-JUM-85  AT  00:21 
SYMBOL  CROSS  REFERENCE 


C  1 

PAGE  1 

CREF   OA.OO 


MTL 


SYMBOL 

VALUE 

REFERENCES 

D.NAM 

OOOOOA 

6-113 

6-11A 

D.UCB 

000002 

6-107 

D.UCBL 

000010 

6-108 

D.UNIT 

000006 

6-110 

NTUlC 

-   ****** 

(iX 

6-95 

6-97 

Rt$llM 

=  000000 

5-61 

TICTCB 

=  ****** 

GX 

6-102 

T.LDV 

OOOOAA 

6-103 

UICBF 

000000 

R 

#5-7A 

6-100 

6-132 

U.DCB 

000000 

6-106 

SCBOMG 

-  ****** 

GX 

6-119 

6-124 

6-128 

$DIV 

-  ****** 

GX 

6-109 

SlDUIC 

000000 

RG 

*6-93 

LDUK 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:21 
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D  1 


NTL 


NTl  -  IDEfJT  MODULE 


56 
57 
58 
59 
60 
6' 
62 
63 

64  000000 

65  000000 
66 

67 
68 
69 
70 


C  2 

MACRO  V05.03b  Saturday  ?9-Jun-85  00:22  Page  5 

•  **  ^ 

':    LIBRARY  MACROS 

.MCALL  FSfiSZ$,GCLDF$ 


GCL  FILE  PROCESSIMG  STRUCTliPES 


GCLDFS   1,1,,,2,rL-0PM,CL.ATTICL.CMTlCL.EXTICL.IW 
FSRSZS  1 


GLOBAL  GCL  SrMBOLS 

.GLOBL   CL.OPM 


VI    -  lOENT  MODULE 


D  2 

MACRO  V05.05b  Saturday  ?9-Jun-e5  00:22  Page  6 


NTLllX  -  LOAD  COMM  EXEC 

iri-VGE   MACRO 

LOCAL  da; A 

213  000162 

124473 

007544 

2U  000166 

000000 

215  000170 

000202' 

000000 

216  000174 

124473 

006654 

217  000200 

000000 

218  000202 

000000 

000000 

219  000206 

126344 

035115 

220  0002^2 

000000 

221 

222 

223 

224 

225  0002K 

000226' 

000000 

226  000220 

124520 

023547 

227  000224 

000000 

228  000226 

000240' 

000000 

229  000232 

125721 

074^75 

230  000236 

000000 

231  000240 

000000 

000000 

232  000244 

125404 

102253 

233  000250 

000000 

234 

235 

236 

237  000252 

000264' 

000000 

238  000256 

125504 

106242 

239  000262 

000000 

240  000264 

000276' 

OOOCjO 

241  000270 

125704 

077412 

2^.2  000274 

000000 

243  000276 

000310' 

000000 

244  000302 

125254 

012742 

245  000306 

000000 

246  000310 

000322' 

000000 

247  000314 

074264 

077554 

248  000320 

000000 

249  000322 

000000 

000000 

250  000326 

062266 

077554 

251  000332 

000000 

252 

253 

254 

255 

256  000334 

OOOOOOG 

257  000336 

OOOOOOG 

258  000340 

0000006 

259  000342 

OOOOOOG 

260 

261 

262 

263 

264  0C0144 

OOOOOOG 

265  00034O 

OCOlOl 

266  000350 

OOOOOOG 

267  000352 

0000006 

268  000354 

OOOOOOG 

269  000356 

OOOOOOG 

C  3 

MACRO  V05.03b  Saturday  29-Jun-85  00:22  Page  6-2 


NTLCE 
CCBS 


VXBLK2: 


VXBLK3: 


.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 


"SCCBPT" 

0 

VXBLK3,0 

"SCCSGr" 

0 

0,0 

"iZTIME" 

0 


COMfi  EXEC  :YM80LS  MSED  to  INITIALIZE  VARIABLES 
IBLKI: 


IBLK2.- 
IBLK?: 


.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 


IBLK2,0 

"SCXFLG" 

0 

IBLK3,0 

"$SYSNM" 

0 

0.0 

"SfJTUIC" 

0 


CETAB  SYMBOLS  TO  INITIALIZE  THE  COMM  EXEC 
.PDVTB: 


.SLTMB- 
.ILCTB: 
SLTTOT: 
PDVTOT: 


.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 


. SLTMB, 0 

"SPDVTB" 

0 

.LLCTB,0 

"$SLTMB" 

0 

SLTTOT, 0 

"SLLCTB" 

0 

PDVTOT, 0 

"SLTTOT" 

0 

0,0 

"PDVTOT" 

0 


SYMBOL  TABiE  ERRORS 


ETA81: 


.WORD 
.WORD 
.WORD 
.WORD 


$ERR44 
$ERR45 
$ERR46 
i;RR'.7 


PROCESS  I/O  ERRORS 


ETA62: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.'.JORn 


$ERR51 

101 

$ERR53 

$ERR54 

$ERR55 

■t.tRR56 


OPEN  FAILURE 
READ   FAILURE 
READ  OVERFLOW 
BAD   STB   FORMAT 


OPEN  FAILURE 

GET   ATTRIBUTES   FAILED 

HLE   NOT    CONTIGUOUS 

LABEL   BLOCK   READ    FAILURE 

iNVAlID    IMAGE    (HEADER,    OVERLAID,    ETC. 

PROCESS   NOT   BUILD   FOR    APR5 


NTLCEX    -   LOAD   COMM  EXEC    IMmGE 
LOCAL    DATA 


D  3 

MACRO  V05.03b  Saturdav  29-Jun-85  00:22  Page  6-j 


NTLCE 

CCBS 


C     4 

NTLCEX   -  LOAD   COMM  EXEC    IMAGE       MACRO  V0S.03b   Saturday  29-Jun-85   00:22     Page   U 
CCBS   -   ALLOCATE    AND   L1N<   CCB'S 


805 
806 
807 
808 
809 
810 
811 
812 
813 
8U 
815 
816 
817 
818 
819 
820 
821 

822  C01736 

823  001736 
82A  00i7A2 
825 

826 
827 
828 
829 
830 
831 

832  0017A6 

833  001752 
834 

835 

836 

837 

838 

839 

8A0 

8il   001754 

8'.2  001^60 

843  001764 

844  001772 

845  001774 

846  001775 
847 

848 
849 
85u 

851  002000 

852  002004 

853  002006 

854  0P'012 
855 

856 
857 
858 
859 
860 
361 


.S8TTL  CCBS  -  ALLOCATE  AND  LINK  CCB'S 

h 

CCBS  -  ALLOCATE  AND  LINK  CCB'S 

INPUTS: 

SCCBNM  -  NUMBER  OF  CCBS  TO  ALLOCATE 
SCCeSZ  -  SIZE  OF  EACH  CCB  IN  BVTES 

OUTPUTS: 

NONE 


017702  OOOOOOG 
'17701  OOOOOOG 


CCBS: 
10$: 


20$: 


MOV 

MOV 

.IF  DF 

TSTB 

BEQ 

ADD 

.ENDC 


aCCBNM,R2 
aCCBSZ.RI 

R$$MPL 
aNCPU 
20$ 
#2,fil 


103412 


01^710  OOOOOOG 
010077  OOOOOOG 
112760  000002  000003 
005302 
001362 


017700  OOOOOOG 
001407 

011077  OOOOOOG 

017701  OOOOOOG 


CALL    $ALLl6 
BCS     101$ 


50$: 


.IF  DF 

TSTB 

BEQ 

TST 

.ENDC 

MOV 

MOV 

MOVB 

DEC 

BNE 

RETURN 


H$$MPL 
aNCPU 
30$ 
(R0)  + 


SCCBLH,(RO^ 

RO.aCCBLH 

#CB.CCB,C.BID(RO) 

R2 

10$ 


NUMBER  OF  CCBS  TO  ALLOCATE 
NUMBER  OF  BVTES/CCB 


MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

ALLOCATE  TWO  MORE  BYTES 


ATTEMPT  ALLOCATION  FROM  SCOM 
RESOURCE  ERROR 


MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

POINT  PAST  NEGATIVE  OFFSET 


ADD  CCB 

TO  QUEUE 
BUFFER  ID 
LOOP  TILL 
DONE. 


ERROR  CONDITION 


1013 


MOV 
BEQ 
MOV 
MOV 


aCCBLH.RO 
110$ 

(R0),aCCBLH 
aCCBSZ.RI 


GET  FIRST  CCB  ADDRESS 
IF  ZERO,  DONE 
SET  NEW  FIRST  IN  LIST 
GET  CCB  SI:E 


105$: 


.IF  DF 

R$$MPL 

TSTB 

aNCPU 

;  MULTIPROCESSOR  SYSTEM? 

BEQ 

105S 

;  BR  IF  NO 

TST 

-(RO) 

;  TWO  EXTRA  BYTES  lO  ALLOCATE  (NEG  OFFSET) 

TSl 

(R',  )t 

;  UPDATE  CCB  SIZE 

.ENDC 

0     4 

NTlFEX  -  LOAD   COM'^l  EXEC    IMAGE       MACRO  V05.03b   Saturday  29-Jun-85   00:22     Page   14-1 
CCBS   -   ALLOCATE    AND  LINK   CCB'S     


NTlCEX  created  by     macro     on  29-JUN-85   AT   00:23 

SYMBOL    CROSS   REFERENCE 


SYMBOL      VALUE 


PR6 

PR7 

PS 

PUMR 

P.B!  ^S 

P.^ 

QE 

QS:  ■^^ 

RDBCT 

RDBLH 

RDBNM 

RDBS 

RLtriZ 

ROBTH 

R$$EIS 

R$$MPL 

RS$11D 

SDBCT 

SDBLH 

SDBNM 

SDBS 

SDBSZ 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLTMA 

3LTNM 

SLTTOT 

STBERR 

STB''XT 

SWR 

SYSNM 

SSCEX 

S.COST 

S.FLG 

S.L^N 

S.NMST 

S . OWNR 

TKPS 

TK100 

IPS 

TJKERR 

TSFLAC- 

T$LIF 

T$L!FL 


000300 
000340 
177776 

****** 


002032  R 


****** 


-  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

GX 
GX 


-   ****** 


002HO  R 

r  ****** 

=  000200 

=  000100 

=  000004 

=  000040 

=  000020 

=  000010 

-  000001 

-  000002 
=  000040 


GX 
GX 
GX 

R 
GX 


GX 
GX 


000310 

000544  R 

000020  R 

177570 

******  GX 

000000  RG 

000001 

000000 

00000/ 

000002 

000003 


-   ****** 
r  ****** 

=  177564 
000316 
000044 
0000:3 
0COC13 


GX 
GX 


REFERENCES 

#5-68 
#5-68 
#5-68 

13-778 

7-331 

7-330 

13-780 

13-781 

13-728 

15-895 

15-884 

13-796 

15-885 

13-731 

7-333 

5-68 

8-452 

5-68 

13-729 

16-942 

16-930 

13-797 

16-932 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 

11-604 

11-606 

6-243 

8-412 
#6-148 
#5-68 

8-448 
#7-303 
#5-63 
#5-63 
#5-63 
#5-63 
#5-63 

11-598 

11-601 
#3-68 

7-324 
"5-62 
#5-62 
#5-62 


13-779 
13-735 
13-734 


15-902 
#15-883 


13-755 
5-68 
10-556 
7-333 

16-948 

#16-929 


11-629 
11-637 
#6-246 
8-419 
8-401 


-351 


C  5 

PAGE  4 

CREF   04.00 


NTLC 
$NLC 


15-904 


17-985 
5-68 

11-652 
13-755 

16-950 


6-126 

12-678 
17-985 


6-135 
13-772 


6-169 
14-826 


7-306 
14-835 


8-404 
14-856 


8-428 


11-636 
11-642 
11-606 
8  426 
8-415 


18-1027 


#8-483 
8-422 


#7-377 


MTLCEX 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:23 
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D  5 


nil; 

SNL( 


NTLCFG  -  ^CAN  CONJF IGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun- 
$NLCfG  -  PROCESS  CONFIGURATION  FILE 


C  6 

35  00:^3  Page  9 


NTLC 
PLT1 


210 
211 
212 
213 
2K 
215 
216 
217 
218 
219 
220 
221 
222 
223 
22'. 
225 

226  000000 

227  COOOOO 
228 

229 

230 

231 

232 

233  OOOOOA 

23^  000010 

235  OOOOH 

236  000020 

237  000024 

238  000030 

239  000036 

240  OOOOAO 

241  000044 

242  000050 

243  000054 
2h4  000062 

245  000070 

246  000074 

247  000076 

248  000102 

249  000106 

250  000110 

251  000114 

252  000116 

253  000122 

254  000126 

255  000130 

256  000134 

257  000136 

258  C00142 

259  00014O 

260  000150 
26'  000154 
"62  000156 

263  000162 

264  C00164 

265  0001 7C 

266  00:^-^72 


.SBTTL   SNLCFG  -  PROCESS  CONFIGURATION  FILE 

SNLCFG  -  PROCESS  CONFIG  FILE  FOR  MISSING  PARAMETERS 

THIS  ROUTINE  IS  CALLED  TO  SCAN  THE  CONFIG  FILE  FOR  "SET  PROCESS"  OF  AN  -  LC 
(LOCKING  FOR  LOGICAL  LINK  COUNT  AND  RSX11M  DEVICE  NAME)  AND  FOR  ALL   SE1  LINE 
CASES  (LOOKING  FOR  DEVICE  HARDWARE/SOFTWARE  CHARACTERISTICS). 

INPUTS: 

$MISS=MISSING  PARAMETERS  MASK 
SSLTA^SLT  ADDRESS 

OUTPUTS: 

C-BIT--SUCCESS/FAILURt 


010667  000354' 


005057  000136' 


SNLCFG: 


012700 
016701 

032767 
001457 
005067 
005067 
016700 
116067 
116067 

103002 
000167 

103770 

10300^ 
000167 

103370 

103002 
000167 

103011 

103365 

103362 

:03757 
000167 


000012' 
OOOOOOG 

OOOOOOG  OOOOOOG 


000140' 

000142' 

OOOOOOG 

000012 

000013 


000610 


000612 


000622 


000015' 
000ul6' 


000476 


2$: 

5$: 
7$: 

8$: 
10$: 

15$: 


17$: 


MOV 


.IF 
CLR 
.ENDC 

CLR 
CALL 

mj 

MOV 

CALL 

BIT 

BEQ 

CLR 

CLR 

MOV 

M0V8 

M0V8 

CALL 

BCC 

JMP 

CALL 

BCS 

CALL 

BCC 

JMP 

CALL 

BCC 

CALL 

BCC 

JMP 

CALL 

BCC 

CALL 

BCC 

CALL 

BCC 

CALL 

BCS 

JMP 


DF 


SP,SPSAV 


R$$MPL 
URMFL 


CFGFLG 

OPEN 

*NAME,RO 

SNAME.Rl 

$C5TA 

#MS.CIR,$M!SS 

20$ 

SCNT 

UCNT 

$SLTA,RO 

L.CTL(RO),CTL 

L.UNT(RO),UNT 

READ 

5$ 

111$ 

SCSLT 

2$ 

READ 

8$ 

141$ 

$QSTA 

7$ 

READ 

15$ 

;si$ 

$QSVC 

17$ 

$0X3P 

10$ 

StlDI' 

10$ 

$CPVC 

10$ 

190$ 


SAVE  SP  FOR  ERROR  EXIT 

CLEAR  THE  UNI8US  RUN  MASK  FLAG 


CLEAR  FLAGS  BYTE 
OPEN  THE  CONFIG  FILE 
CONVERT  DDM/LLC  NAME  10  ASCII 
AND  STORE  IN  "NAME" 

ARE  CIRCUIT  PARAMETERS  MISSING? 

BR  IF  NO 

CLEAR  LOCAL  COUNTERS 

GET  SLT'aDDRESS 

COPY  CONTROLLER  NUMBER 

AND  UNIT  NUMBER 

READ  NEXT  RECORD 

BR  IF  OK 

IF  CS,  EOF 

IS  IT  SLTSDF? 

BR  IF  NO  -  KEEP  LOOKING 

GET  NEXT  RECORD 

BR  IF  OK 

IF  CS,  EOF 

IS  IT  STA$DF? 

IF  CC,  YES  -  LOOK  FOR  MORE  OF  THEM 

READ  NEXT  RECORD 

BR  IF  OK 

8R  IF  EOF 

IS  IT  SVCSDF? 

BR  IF  VES 

IS  IT  X3P$DF? 

BR  IF  YES 

IS  IT  DTE$DF? 

BR  IF  YES 

IS  IT  PV':$DF  ' 

BR  !F  NO 

ELSE  FINISH  UP 


D  6 


u      0 

NILCFG  -  SCAN  CONFIGURATION  Fk  MACRO  V05.03b  Saturda/  29-Jun-85  00:23  Page  9- 
SNLCFG  -  PROCESS  CONFIGURATION  FILE 


NTLi 

rnwi 


C  7 

NTLCFG  -  SCAN  COMF IGURAT  ION  FR  MACRO  V05.03b  Saturday  29-Jun-85  00:25  Page  19 
PLTtDF  STATE  TABLE 


6^9 

680 

6S1 

682 

C83  001402 

68A  0C1A02 

685  0OU02 

686  00U02 
687 

688  00U02 


.SBTTL   PLTSDF  STATE  TABLE 
NUMBER  Of  CHANNELS  TO  ALLOCATE  FOR  AN  NI  INTERFACE 


STATES 
TRANS 

STATES 
TRANS 

STATES 


PLTDF 
XPLTSDF/l^.l.SVNERR 

SNUf«BR,SEXIT,FL.CHN 


D     7 

NTlCFG  -  SCAN   CONriGURATlON  FIL  MACRO   V05.03b   Saturday   29-Jun-8';   00:23     Page  20 
mMMnfj  AfTinN  HniiTiNPs 


NTLCFG     CREATED  BY  MACRO  ON  29-JUM-85  AT  00:24 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


MS.MTP 

MS. MUX 

MISMGE 

NAME 

OPEN 

POVNM 

PDVTA 

PLTDf 

PL .CHN 

P. EXT 

P.  INC 

QADD 

QLLC 

QPLT 

READ 

REP8A 
RTSPC 


RSSMPL 

SCNT 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.RFA 

SF.SER 

SF.SVC 

SF.UNL 

SPSAV 

SYNERR 

S$$BAS 


S.COST 

S.FLG 

S.lEN 

S.NAMF 

S.Nr'ST 

5.0JNH 

UCNT 

ilN' 

WND5MX 

;f.pse 

7.FLC 
Z.NAM 
SALPHA 


»*♦«•»   GX 
•»*«*•   GX 
OOOOOO 
000012  RG 
000772  R 
»»»»««  GX 
t*«»t*  GX 
000244  R 
001566  R 
001506  R 
001466  RG 
001134  R 
001142  R 
001126  R 
001034  R 

001332  RG 
001310  RG 


000140  RG 

000200 

000 '00 

0O'jO04 

000040 

000020 

000010 

000001 

000002 

000040 

000354  R 

000356  RG 


O0OCO1 

OOOOOO 

000004 

001402  RG 

000002 

000003 

0CC142 

000016  RG 

000177 

.*♦•••  GX 


RG 


000022 


GX 
GX 


references 

9-318 

9-302 

20-717 
#7-109 

9-234 

25-834 

25-832 

12-479 
#22-756 
#20-729 
#20-718 

9-317 

9-355 

9-315 

9-245 

9-334 
#15-578 

8-172 

8-181 

8-190 

7-144 
#7-127 
#5-64 
#5-6^ 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#7-139 
#/-151 

8-170 

8-174 

8-179 

8-183 

8-188 

8-192 
#5-64 
#5-64 
#5-64 
#20-698 
#5-64 
#5-64 
#7-128 
#7-111 
#6-88 

9-321 

9-321 

25-839 

#16-596 


20-728 
9-235 

#10-42r 

25-847 


#12-482 

#12-485 

#12-479 

9-250 

9-344 

15-580 

8-173 

8-182 

8-191 

9-229 

»9-240 


•9-227 
•12-491 
8-170 
8-175 
8-179 
8-184 
8-188 


•9-241 
•9-244 
27-898 


15-581 


•9-274 


•9-275 
•9-278 


C  8 

PAGE  5 

CREF   04.00 


20-698 


NTL( 
$NT! 


9-255 
9-353 

J-279 
9-358 

9-289 
9-369 

9-296 
9-379 

9-304 
#11-446 

9-311 

9-325 

8-174 
8-183 
8-192 

8-175 

8-184 

#13-543 

8-176 
8-185 

8-177 
8-186 

8-178 
8-187 

8-179 
8-188 

8-180 
8-189 

13-541 

•12-494 

•20-711 

8-171 

8-171 

8-172 

8-172 

8-173 

8-173 

8-174 

8-175 

8-176 

8-176 

8-177 

8-177 

8-178 

8-178 

8-180 

8-180 

8-181 

8-181 

8-182 

8-182 

8-183 

8-184 

8-185 

8-1^5 

8-186 

8-186 

8-187 

8-187 

8-189 

8-189 

8-190 

8-190 

8-191 

8-191 

8-192 

9-300 


•9-333 


9-338 


NTLCFG 


CREATEj  Bv  macro  on  29-JUN-85  AT  00:24 


PAGE 


D  8 


NTL 


C  9 

MTLCF2  -  SCAN  COMF IGURAT ION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:24 
SNTICF  -  PROCESS  CETAB  FOR  MISSING  PARAMETERS 


325  000130 

103407 

BCS 

42$ 

326  000132 

005067 

002454' 

CLR 

MRKFL 

327  000136 

CALL 

QMFl 

328  000142 

CALL 

$QDEC 

329  000146 

000766 

BR 

40$ 

330  000150 

42$: 

331 

.IF 

DF,  R$$11M 

332  000150 

016700 

OOOOOOG 

MOV 

$RSXNM,RO 

333  000154 

001542 

BEQ 

75$ 

334  000156 

017-01 

OOOOOOG 

MOV 

aOECPT.Rl 

335  000162 

005061 

000054 

CLR 

D$NBRA(R1) 

336  000166 

005761 

000060 

TST 

D$NN(R1) 

337  000172 

001403 

BEQ 

420$ 

338  000174 

016761 

002450'  000054 

MOV 

N8RA,D$NBRA(R1) 

339  000202 

06 2 70 1 

000006 

420$: 

ADD 

*D$LNAM,R1 

340  000206 

105711 

TSTB 

(Rl) 

341  000210 

001524 

BEQ 

75$ 

342  000212 

121127 

000040 

CMPB 

(R1),#40 

343  0002-'6 

344 

345  000220 

001013 

BNE 

400$ 

SWSTK$ 

75$ 

346  000224 

017700 

OOOOOOG 

MOV 

aDECPT,R0 

347  000230 

012701 

000104 

MOV 

#D$END,R1 

348  0OC234 

005077 

OOOOOOG 

CLR 

aOECPT 

349  000240 

CALL 

aDEACB 

350  000244 

351 

352  000246 

RETURN 

012702 

C00006 

400$: 

MOV 

*6,R2 

353  000252 

010046 

MOV 

RO,-(SP) 

354  000254 

01014O 

MOV 

R1,-(SP) 

355  000256 

010246 

MOV 

Rt,-(SP) 

356  000260 

122021 

421$: 

CMPB 

(R0H,(R1)t 

357  000262 

001005 

BNE 

42.-$ 

358  000264 

005302 

DEC 

R2 

359  000266 

003374 

BGT 

421$ 

360  000270 

022626 

CMP 

(SP)+, (SP)* 

361  000272 

005726 

TST 

(SP)  + 

362  000274 

000472 

BR 

75$ 

363  000276 

012602 

422$: 

MOV 

(SP)+,R2 

364  000300 

012601 

MOV 

(SP)+,R1 

365  000302 

012600 

MOV 

(SP)+,RO 

366 

367  000304 

SWSTK$ 

44$ 

368  000310 

112120 

43$: 

Move 

(R1)+,(R0)+ 

369  000312 

005302 

DEC 

R2 

370  000314 

003375 

BGT 

43$ 

371  000316 

RETURN 

372 

373  000320 

44$: 

EMSG$ 

U 

374 

.ENDC 

375  000326 

376 

377 

3"'8 

379  00O33C 

000455 

BR 

75$ 

■  NII.MIT  PHASE 

1  SCAr 

005267 

OOOOOOG 

45$: 

INC 

.NOMAP 

380  000334 

005267 

OOOOOOG 

INC 

.FUDGE 

381  000340 

50$: 

CALL 

READ 

Page  8-1 


IF  CS,  END  OF  FILE 

CLEAR  LOCAL  FLAu 

LOOK  FOR  MARKED-FOR-LOAD/ENABLE 

LOOK  FOR  DEC$DF  MACRO 

LOOP  UNTIL  END  OF  FILE 


GET  ADDRESS  OF  SYSTEM  NAME 

BR  IT  NOT  DEFINED 

iTORE  DECNET  HOME  SLOCK  OFFSET 

ASSUME  ENDNODE 

ENDNODE  ? 

IF  VES  -  BRANCH 

IF  NO  -  SET  UP  BROADCAST  ROUTER  ADJ.  TOTAL 

POINT  TO  NODE  NAME 

WAS  A  NODE  NAME  SPECIFIED? 

BR  IF  NO 

A  NON-BLANK  NODE  NAME? 

IF  VES  -  BRANlH 

ENTER  SYSTEM  STATE 
PSI  ONLY  SYSTEM 
GET  HOME  BLOCK  SI7E 
INIT  HOME  BLOCK  POINTER 
DEALLOCATE  HOME  BLOCK 


NODE  NAME  IS  6  CHARACTERS  LONG 

SAVE  STARTING  ADDRESS  OF  SYSTEM  NAME 

SAVE  NODE  NAME  ADDRESS 

SAVE  NODE  NAME  LENGTH 

DO  NAMES  MAUH? 

BR  IF  NO 

MORE  TO  CHECK? 

BR  IF  YES 

CLEAN  UP  STACK 

ELSE  NODE  NAMES  MATCH 
SAVE  ADDRESS  OF  SYSTEM  NAME 
GET  NODE  NAME  ADDRESS 
GET  NODE  NAME  LENGTH 

ENTER  SYSTEM  STATE 

UPDATE  SYSTEM  NAME 

MORE  TO  COPY? 

BR  IF  YES 

RETURN  TO  USER  STATE 

TELL  USPR  NAME  WAS  CHANGED 

FINISH  UP 


DEFAULT  SIZE  OF  NON-UMR-MAOPED  AREA 
AND  FUDGE  FACTOR  SIZE 
READ  NEXT  RECORD 


NTLC 
TPAR 


D     9 
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*:li.Tirc  _  DDnrccC  rCTAD  rnD  MICCIMn  DAOAMFTFP*; 


NTLC 


C  10 

NTLCF2  -  SCAN  CONFIGURATION  FIL  MACRO  V05.05b  Saturday  29-Jun-85  00:24  Page  19-1 
TPARS  STATE  TABLES  -  SERSDF 


NTLC 
TPAR 


827  001252 

828  001252 
829 

8J0  001252 

831  001252 

832  001252 


TRANS  <',>,F 

TRANS  $STRNG,,SERDV,SF.[)EV,SERFLG 

STATES 

TRANS  SEOS,SEXIT,SEREND 

TRANS  <',> 


D  10 


NTLCF2  -  SCAN  CONF IGURAT  lU.'J  FIL  MACRO  VO5.05b  Saturday  29-Jun-85  00:2'i  Page  20 


T  AOi  C  C 


NTLC 


NTLCF2  - 
TPARS  ST 

1239 

12A0 
1241 
12A2 
1243 
124A 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
■■257 
1258 
1259 
1260 
1261 
1262 
1263 


C  11 

SCAN   C0NF1GURA1I0N  PR  MACRO  V05.03b  Saturday  29-Jun-85   00:24 
ATE    TABLES   -  REMSDF 


.SBTTL      TPARS    STATE    TABLES 
REMOTE    DEFINITIONS    (REMSDF) 


Page  29 

REMSDF 


001252 
001252 

001252 
001252 

001252 
001252 

001252 
001252 

001252 
001252 

001252 
001252 

0C1252 
001252 


STATES 
TRANS 

REMDF 
LBRA 

STATES 
TRANS 

SSTRNC.R.NAME 

;  REMOTE 

NODE 

NAME 

STATES 
TRANS 

RBfiA 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUM8R,,R.ARE 

;  REMOTE 

NODE 

AREA 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,SEXIT,R 

;  REMOTE 
NUM 

NODE 

ADDRESS 

NTLC 

SYMB 

SYMB 

SRAD 
SREP 
SRON 
SRSX 
SSAV 
$STR 
SSjS 
$TIO 
SSSF 
SSSK 
.BRA 
.FUD 
.MOM 
.RDB 
.TPA 


0  11 
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NlLC 


,       C  12 

NTLCF2 

CREAIED  BY 

MACRO     ON  29-JUN-85    Al    00:27 

PAGE 

7 

SYMBOL 

CROSS   REFERENCE 

CREF 

OA.OO 

SYMBOL 

VALUE 

REFERENCES 

$RA050 

=  000016 

#17-701 

SREP.N 

-      ****** 

GX 

7-107             7-108 

SRONLY 

-      ****** 

17-701            17-701            17-701 

SRSXNM 

~      ****** 

rx 

8-332 

SSAVAL 

-      ****** 

',x 

12-538 

SSTRNG 

=  OOOOOA 

*17-701 

SSjBXP 

=  000010 

#17-701 

STIOUT 

-      ****** 

GX 

12-563           13-592 

$$$FLG 

=   17777^ 

#17-701 

$$$KEY 

=   U7777 

#17-701 

.BRAD 

002A64 

Rr 

#7-258 

.FUDGE 

-       ****** 

cX 

•8-380 

.NOMAP 

=      ****** 

GX 

*8-379 

.RDBSZ 

~       ****** 

GX 

15-651 

.TPARS 

r        r***** 

GX 

11-505 

NTLI 
OPEI 


N1LCF2 


CREAIED  BY     MACRO     ON  29-JUN-85    AI    00:27 
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D  12 


NIL 


NTLCfP  - 

SCAN  CONFIGURATION  FIL  MACF 

OPEN  -  OPEN  THE 

CONFIGURATION  FILE 

3U 

315 

316 

317 

3^8 

319 

320 

321 

322 

323 

324 

325 

000230 

012700  OOOOOOG 

326 

0C023A 

012701  000000' 

327 

0002AO 

012702  000006' 

328 

00024A 

329 

000250 

530 

000254 

105777  OOOOOOG 

331 

000260 

100401 

332 

000262 

333 

334 

335 

336 

337 

000264 

C  13 

,03b  Saturday  29-Jun-85  00:29  Page  10 

.SBTTL   OPEN  -  OPEN  THE  CONFIGURATION  FILE 

OPEN  -  OPEN  THE  CONFIG  FILE 

INPUTS: 

NONE 


SETUP  ASCIZ  FILE  SPEC 
FOR  [130,10]CETAB.MAC 


OUTPUTS: 

C-8IT=SUCCESS/FAILURE 

PEN: 

MOV     *$CFUIC,RO 

MOV     #CFGNAM,R1 

MOV     *CFGEXT,R2 

CALL    $AZFS 

CALL    SCLQUE 

TST8    S$CLIOS 

BMI     101$ 

RETURN 

ERROR 

CONDITION 

01$: 

EMSGSR   IP 

OPEN  THE  CONFIG  FILE 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 


;  OPEN  FAILURE 


D  13 
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L 


^gTLCFP  CREATED  BY      MACRO     ON  i'9-JUN-85   AI   00:29 

SYMBOL   CROSS   REFERENrE 


c  u 

PAGE   2 

CREF       04.00 


SYMBOL      VALUE 


ERRMSG 
FL.NTI 
fMTIO 
FMT8 

FM.10 

FM.8 

FNDPDV 

FMLI^J 

HSHADD 

HSHSZ 

IE. EOF 

lE.RBG 

I$$AS 

LBRA 

LP. ACT 

LF.BRO 

f.BWT 

LF.ENiA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF .UNL 

LF.X2P 

LINCTL 

LINNAM 

LINUNT 

LNKEND 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.OM 

LNJ.OOP 

LN.OPE 

LN.REF 

LM.SER 

L^J.STA 

LN.SUB 

LN.TRI 

lO.CO^J 

LO.C^R 

LO.CTL 

LO.LIN 


000012  R 

♦•*»•-  GX 

001 55A  RG 

C015U  RG 

000000 
000000 
001012  RG 
000500  RG 
000376  RG 
000374  RG 
•»•«•»     GX 
•**•«♦     GX 
****** 
000074 
100000 
OOOAOO 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 
000040 
000010 
020000 
000000 
OOC350  RG 
000346  RG 
000351   RG 
000760  RG 
:  000000 

■  000005 

■  000004 

■  000003 
:  000003 
:  000001 

:  000000 

:  000004 

^  000001 

:  000002 

r  000002 

r     000017 

:  000360 
r  000006 

000006 

000006 

000014 

000004 


REFERENCES 

#7-101 

9-246 

8-200 

8-20'. 
#8-223 
#8-200 
#8-204 
#17-574 

8-214 
#7-140 
#7-139 

11-351 

11-364 

15-524 
#6-71 
#5-64 
#5-64 
#5-64 
#5-54 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#7-117 
#7-116 
#7-118 
#16-548 
#5-54 
#5-54 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-54 
#5-54 
#5-64 
#5-64 
#5-64 
#5-54 
#5-64 
#5-63 
#5-63 
#5-63 
#5-63 


12-407 

8-201 
8-205 

#8-201 
#8-205 

#13-453 


8-202 
8-209 

#8-202 
#8-209 


3-205 
8-210 

#8-203 
#8-210 


8-206 
8-211 

#8-205 
#8-211 


8-207 
8-212 

#8-207 
#8-212 


8-208 
8-213 

#8-208 
#8-213 


#8-224 
8-214 


#8-214 


8-215 
#8-215 


NK 

N^ 
w 
w 
w 
^^ 
w 
w 
w 

W 
W 
W 
W 


*14-455 

»14-448 

*14-452 

16-554 


Ll 
LI 
LI 
LI 
Ll 
Li 
Ll 
Li 
Ll 


NTLCFP 
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D  U 


L 


'f  ILE«MO«*NTLDEV 


C  15 


DV 


m          m 

TTTTTTTTTT 

DDDDDDDD 

EEEEEEEEEE 

VV      VV 

m          m 

TTTTTTTTTT 

DDDDDDDD 

EEEEEEEEEE 

VV      VV 

NN      HH 

DD 

DD 

EE 

VV      VV 

m          m 

DD 

DD 

EE 

VV      VV 

mm       m 

DD 

DD 

EE 

VV      VV 

NNNN    NN 

DD 

DD 

EE 

VV      VV 

NN   NN  NN 

DD 

DD 

EEEEEEEE 

VV      VV 

NN   NN  NN 

DD 

DD 

EEEEEEEE 

VV      VV 

NN    NNNN 

DD 

DD 

EE 

VV      VV 

NN    NNNN 

DD 

W 

EE 

VV      VV 

NN      NN 

DD 

DD 

EE 

VV   VV 

NN      NN 

DD 

DD 

EE 

VV   VV 

NN      NN 

LLLLLLLl.LL 

DDDDDDDD 

EEEEEEEEEE 

VV 

NN      NN 

yy 

LLLLLLLLLL 

DDDDDDDD 

EEEEEEEEEE 

VV 

ssssssss 

TTTUrrTTT 

ssssssss 

TTTTTTTTTT 

ss 

5S 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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DVLBL  -  OPEN  MLE  AND  READ  LABEL  BLOCK 


419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 

436  000476 

437  000500 

438  000502 

439  000504 

440  000510 

441  000514 

442  000520 

443  000522 

444  000524 

445  000526 

446  000532 

447  000536 
4<,8  000540 

449  000546 

450  000550 

451  000556 

452  000560 

453  000566 

454  000574 

455  000576 
456 

457 
458 
459 

460  000600 

461  000606 

462  000614 

463  000622 

464  000630 


005000 
005001 
005002 


105777 
100427 
051010 
001430 
012700 

103426 
032760 
001430 
026060 
001024 
016067 
166767 
000241 


116777 


.SBTTL  DVLBL  -  OPEN  FILE  AND  READ  LABEL  BLOCK 


DVLBL  -  OPEN  IMAGE  FILE  AND  READ  LABEL  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  OPEN  THE  DATA  STRUCTURE  FILE  AND  TO  READ  THE  LABEL 
BLOCK.  THE  SVMeOL  VALUES  FRO"  THE  STB  FILE  ARE  ADJUSTED  BY  SUBTRACTING  THE 
BASE  ADDRESS  OF  THE  DATA  STRUCTURE  IMAGE  FILE. 

INPUTS: 

DTNAM=FILE  NAME 

OUTPUTS; 

C-B1T=SUCCESS/FAILURE 
R0=LA8EL  BLOCK  BUFFER  ADDRESS 


OOOOOOG 

000000' 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  000170' 
000170'  000136' 


DVLBL:   CLR  RO 

CLR  R1 

CLR  R2 

CALL  SAZFS 

CALL  SCLOPE 

TST8  aSCLIOS 

BMI  101$ 

BIS  (R0)+,(RO) 

BEQ  121$ 

MOV  #DSK8UF,R0 

CALL  $RL8L 

BCS  131$  , 

BIT  #TS$NHD,L$BFLG(RO) 

BEQ  141$  ;  .   _  .   _ 

CMP  L$BLDZ(RO),L$BMXZ(RO)  ;  IS  THE  IMAGE  OVERLAID? 

BNE  141$  ;  IF  NE ,  VES  -  NOT  ALLOWED 

MOV  L$8SA(R0),BASE   ;  SAVE  BASE  ADDRESS  FOR  LATER 

SUB  BASE, LENGTH     ;  ADJUST  DEVICE  TABLES  SIZE 
CLC  ;  INDICATE  SUCCESS 

RETURN 


SETUP  ASCIZ  FILE  SPEC 
FOR  n31,54]XXXTAB.TSK 


OPEN  THE  IMAGE  FILE 

SUCCESS? 

IF  MI,  NO 

IS  FILE  CONTIGUOUS? 

IF  EQ,  NO 

GET  ADDRESS  OF  DISK  BLOCK  SIZED  BUFFER 

READ  LABEL  BLOCK 

IF  CS,  FAILURE 

;  DOES  IMAGE  HAVE  A  HEADER? 
IF  EQ,  YES  -  NOT  ALLOWED 


ERROR  CONDITIONS 


101$: 

121$: 

OOOOOOG  OOOOOOG  131$: 

141$: 


EMSG$R 
EMSG$R 
MO  ^6 
EMSG$R 
EMSG$R 


2F 

2H 

$IOSe,S$CLIOS 

2J 

2K 


OPEN  FAILURE 

FILE  NOT  CONTIGUOU') 

COPY  ERROR  CODE 

LABEL  BLOCK  READ  FAILURE 

INVALID  BINARY  IMAGE  (HEADER  OS  OVERLAID) 
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LDUIC      CREATED  BY  MACRO  ON  29-JUN-85  AT  00:21 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


D  1 

PAGE  2 

CREF   OA.OO 


NIL 


CALL 

6-109 

6-119 

)CBDF$ 

#5-62 

5-66 

RETURN 

6-154 

TCBDFS 

#5-62 

5-64 

UCBDFt 

#5-62 

5-65 

6-124 


6-128 


■•F1LE««ID»»MAPX 


E  1 


NTL 
Symb 


0  2 

NTL  -  IDENT  MODULE     MACRO  V05.05b  Saturday  29-Jun-S5  00:22  Page  6 

72        000001  .END 


NTLCE 
LOCAL 


E  2 


NTL  -  IDENT  MODULE 
Symbol  table 


MACRO  V05.03b  Saturday  29-Jun-85  00:22  Page  6-1 


MTLCf 
SSCEl 


NTLCEX  -  LOAD  COMM  EXEC  IMAGE 

LOCAL  DATA 

270  0C,0360 

OOOOOOG 

271  000362 

OOOOOOG 

272  00036h 

OOOOOOG 

273  000366 

OOOOOOG 

27A  000370 

OOOOOOG 

275  000372 

OOOOOOG 

276  000374 

OOOOOOG 

277  000376 

OOOOOOG 

278  OCOAOO 

OOOOOOG 

279  OO0A02 

OOOOOOG 

280  OOOAOA 

OOOOOOG 

281  000A06 

OOOCOOG 

282 

283  000000 

D  3 

MACRO  VO5.03b  Saturdav  29-Jun-85  00:22 


WOKP 

$ERR57 

WORD 

$ERfi58 

UORD 

$ERR59 

WORD 

$ERR60 

WORD 

$ERR61 

WORD 

$ERR62 

WORD 

$lRR63 

WORD 

$ERR64 

WORD 

$ERR65 

WORD 

$ERR66 

WORD 

$ERR67 

WORD 

$ERR68 

Page  6-3 


PROCESS  EXCEEDS  4K  WORDS 

PROCESS  EXTENSION  EXCEEDS  4K  WORDS 

PARTITION  NOT  IN  SYSTEM 

BASE  ADDRESS  MISMATCH 

PARTITION  TOO  SMALL 

NOT  COMMON  PARTITION 

PARTITION  BUSY 

CEX  PARTITION  NOT  IN  EXEC  SPACE 

SUS-PC8  ALLOCATION  FAILURE 

MAIN  PARTITION  TOO  FRAGMENTED 

PROCESS  READ  FAILURE 

CETAB  ALLOCATION  FAILURE 


NTLCE 
CCBS 


.PSECI 


J 


NTLCEX  -  LOAD  COMM  EXEC  IMAGE   MACRO  V05.O3b  Saturday  29-Jun-85 
SSCEX  -  TRANSFER  COMM  EXEC  INTO  CORE 


00:22 


Page  7 


NTLCE 
RDB5 


D    A 

NTLCEX  -  LOAD   COM'".  EXEC   IMAGE       MACRO   V05.03b  Saturday  29-Jun-85  00:22 
CCBS  -   ALLOCATE    AND   LINK   CCB'S 


862 

863  002016 

864  002022  000766 

865  002024 


CALL    $DEA16 
BR     101$ 
110$:   EMSGSR  XQ 


Page  H-1 


DE-ALLDCATE  CCB 
RETURN  THEM  ALL 
CCe  ALLOCATION   FAILURE 


NTLCEX   -  LOAD   C^MM  EXEC 
RDB3   -   ALLOCATE   RDBS 


E  « 
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MtLCEX  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:2^ 

SYMBOL    CROSS   REFERENCE 


D     5 

PAGE   5 

CRFF        OA.OO 


NTLC 
$NLC 


SYMBOL 

VALUE 

REFERENCES 

TSLIFO 

000013 

#5-62 

TSLIFS 

000013 

#5-62 

T$LIN 

OOOOOC 

#5-62 

TSLIFS 

000006 

#5-62 

TSLLD 

000012 

#5-62 

TSLLDC 

0000A5 

#5-62 

TSLLCL 

000012 

#5-62 

TSLLDO 

000012 

#5-62 

TSLLDS 

000012 

#5-62 

TSLLEN 

000046 

#5-62 

18-1067 

TSLOPR 

000002 

#5-62 

TSLTCL 

00002A 

#5-62 

TSLTIM 

000026 

#5-62 

TSLTPR 

OOOOK 

#5-62 

TtLTPS 

000020 

#5-62 

TSNAPL 

OOOOOA 

#5-62 

TSNFE 

000000 

#5-62 

TSNLEN 

000010 

#5-62 

TSNNUL 

000002 

#';-62 

TSNOPL 

000006 

#5-62 

TSNRMI 

000042 

#5-62 

*18-1073 

TSNRPL 

000005 

#5-62 

TSNRUL 

000007 

#5-62 

TSNVR 

000001 

#5-62 

TSRPRI 

000040 

#5-62 

♦18-1074 

TtSVC 

000034 

#5-62 

ftT5 

000030 

#5-62 

*18-1071 

TST6 

000032 

#5-62 

•18-1072 

UBMFR 

=  170200 

#5-68 

UISARO 

--  177640 

#5-63 

UISAR1 

=  177642 

#5-68 

VXBLK1 

000156 

R 

#6-212 

10-567 

VXBLK2 

000170 

R 

6-212 

#6-215 

VXI3LK3 

000202 

R 

6-215 

#6-218 

XAVL 

-  ****tt 

GX 

13-744 

13-751 

XBIAS 

=  ****** 

GX 

13-743 

13-750 

XBLKl 

000120 

R 

6-189 

#6-198 

XBLK2 

00C132 

R 

6-198 

#6-201 

XBLK3 

0OOU4 

R 

6-201 

#6-204 

XPTPDV 

00003^ 

R 

#6-164 

*18-1017 

ZTIME 

-  *♦***♦ 

OX 

7-359 

Z.DAT 

=  ****** 

GX 

lC-1058 

Z.MAP 

-  ♦*.**■.» 

GX 

18  ■  ;42 

$ALL16 

-  ****** 

GX 

14-832 

$ALL18 

3  ****** 

GX 

13-790 

SALTLC 

002314 

RG 

#18-1009 

SAZFS 

-   ****** 

GX 

7-310 

7-349 

SCLINS 

-   ****** 

GX 

6-177 

SC^BIO 

=   ****** 

GX 

7-350 

SCXUIC 

r  ****** 

GX 

7-307 

7-346 

$DEA16 

-:  ****** 

GX 

14-863 

J-,Iy 

-  ****** 

GX 

11-600 

8-470  10-562 

18-1041  18-1053 

8-402  8-416  8-423 

8-395  8-413  >-420 


NTLCEX 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:2? 
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NTLI 
SNLl 


D  6 

NILCFG  -  SCAN  CONFIGURATION  FIl  MACRO  V05.03b  Saturday  29 -Jun-SS  00:23  Page  9-1 
SNLCFG  -  PROCESS  CONFIGURATION  FILE 


NTLl 
COM! 


267  000176 

268  000204 

269  000206 
270 

271 

272 

273  0002 U 

27A  000216 

275  00C222 

276  000226 

277  000232 

278  000240 

279  000246 

280  000252 

281  00025A 

282  000260 

283  000264 

284  000266 

285  000272 
286 

287 
288 

289  000274 

290  000500 

291  000302 

292  000306 

293  000312 

294  000314 

295  000320 

296  000322 

297  000326 

298  000330 

299  000334 

300  000336 

301  000344 

302  000346 

303  000354 

304  000356 

305  000362 

306  00C364 

307  000370 
308 

309 
310 

311  000372 

312  000376 

313  000400 

314  0C0404 

315  000406 

316  000412 

317  000414 

318  000420 

319  000426 

320  000430 

321  000434 

322  000442 
^23  000444 


032767  OOOOOCT  OOOOOOG  20$: 

001160 

032767  OOOOOOC  OOOOOOG 


001145 
005067 
005067 
016700 
116067 
116067 

103002 
000167 

103042 

103765 


103002 
000167 

103770 
005767 
001462 

103577 

103563 
02676/- 
001366 
042767 
001444 

105553 

103772 


103556 
1C5372 
103002 

042767 

001417 
01t)701 
052 761 
001011 


000140' 
000142' 
OOOOOOG 

000012     000015' 
000015     000016' 


000432 


30$: 


55$: 


BIT     #MS.LLC,$MISS 

BNE     130$ 

BIT     #<MS.INCIMS.EXT> 


BNE  120$ 

CLR  SCNT 

CLR  UCNT 

MOV  $SLTA,RO 

HOVB  L.CTL(RO),CTL 

MOVB  L.UNT(RO),UNT 

CALl  READ 

BlC  55$ 

..nP  111$ 

CALL  $QSLT 

BCC  70$ 

CALL  $QDDM 

BCS  50$ 


DDM$DF  SEEN 


000412 


OOOOOOG 


40$: 


45$: 


50$: 


OOOOOOG  000142' 
OOOOOOG  OOOOOOG 


CALL 

BCC 

JMP 

CALL 

BCS 

TST 

BEO 

CALL 

BCS 

CALL 

BCS 

CMP 

BNE 

BIC 

BEQ 

CALL 

BCS 

CALL 

BCS 


SLT$[)F  SEEN 


60$: 


/•0$: 


OOOOOOG  OOOOOOG  75$: 

OOOOOOG 
OOOOOOG  OOOOOOG 

80$: 


READ 

45$ 

121$ 

$OCNT 

40$ 

$HISS 

100$ 

READ 

151$ 

$QUNT 

101$ 

$$MUX,UCNT 

50$ 

#MS.MUX,$MISS 

100$ 

READ 

111$ 

$QSLT 

60$ 


ARE  LLC  PARAilETERS  MISSING? 
IF  NE,  YES 
$MISS  ;  ARE  THE  PROCESS  EXTENDS  MISSING? 
(SPECIAL  CASE) 

NOTE  -  MS. INC/EXT  ONLY  BIT  SET  FOR  A  PROCESS, 
IF  PROCESS  IS  AN  LLC  HANDLED  SEPARATELY. 
IF  NE,  YES  -  LOOK  FOR  IT 
CLEAR  LOCAL  COUNTERS 

GET  SLT'aDDRESS 

COPY  CONTROLLER  NUMBER 

AND  UNIT  NUMBER 

READ  NEXT  RECORD 

BR  IF  OK 

IF  CS,  EOF 

IS  IT  SLT$DF? 

IF  CC,  YES 

IS  IT  DDM$DF? 

IF  CS,  NO 


CALL  REA"^ 

BCS  14' 

CALL  $Q' 

BCC  703 

CALL  QPLf 

BCC  75$ 

CALL  QAPD 

BIC  #MS.MTP,$M'SS 

BEO  lor$ 

MOV  $PDVA,R1        , 

BIT  #ZF.PSE,7.FLG(R1) 

BNE  100$  ; 

CALL  $QDDM 


READ  NEXT  RECORD 

BR  IF  SUCCESSFUL 

ELSE  EOF 

IS  IT  CNT$DF? 

IF  CS,  NO  -  KEEP  LOOKING 

ANY  PARAMETERS  STILL  MISSING? 

IF  EQ,  NO 

READ  NEXT  RECORD 

IF  CS,  EOF 

IS  IT  UNT$DF? 

IF  CS,  NO  -  ERROR 

HAVE  ALL  UNr$DF'S  BEEN  SEEN? 

IF  NE,  NO 

INDICATE  ALL  MUX  PARAMETERS  SEEN 

IF  EQ,  ALL  DONE 

READ  NEXT  RECORD 

IF  CS,  EOF 

IS  IT  SLT$DF? 

IF  CS,  NO 


GET  NEXT  RECORD 

IF  CS,  EOF 

IS  !T  STA$DF? 

IF  Cr,  YES  -  LOOK  FOR  MORE  OF  THEM 

IS  IT  PLT$DF  ? 

IF  YES  -  BRANCH 

IS  iT  ,-DD$DF? 

INDICATE  ALL  MTP  PARAMETERS  SEEN 

IF  EQ,  ALL  DONE 

GET  PDV  ADDRESS 

;  IS  IT  A  PSEUOD  DOM? 

BR  IF  VES 

IS  IT  DDM$DF? 


NTLCFG 
$NLCFG 


SCAN  CONFIGURATION  FR  MACRO  V05.05b  Saturday  29-Jun-85  00; 
PROCESS  CONFIGURATION  FILE     
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Nt: 

ADD 


D  7 

NTLCFG  -  SCAN  CONP IC-URATION  fIL  MACRO  V05.03b  Saturday  29-Jun-8?  00:23  Page  20 
COMMON  ACTION  ROUTINES 


690 
691 
692 
693 
69A 
095 

696  00U02 

697  001A02 

698  001 A02 

699  00H06 

700  00H12 

701  001A16 

702  0014.2 

703  00142A 

704  001430 

705  001432 

706  001440 

707  001442 

708  001444 

709  001446 

710  001452 

711  001454 

712  00^464 
713 

714 
715 
716 
717 

713  001466 

719  001466 

720  001h74 

721  00i476 

722  001504 
723 

724 
725 
726 
727 
728 

729  001506 

730  001506 

731  001514 

732  001522 

733  001524 
734 

735  001526 
736 


.SBTTL  COMMON  ACTION  ROUTINES 
rPARS  ACTION  ROUTINES 
DDM  NAME  (SLTSDF,  DDMSDF,  LLCIDF) 


012700 
016701 
016702 
022702 
001407 
022702 
001011 
122760 
001005 
122021 
001003 

000404 


000012' 
OOOOOOG 
OOOOOOG 
000003 

000002 

000040  000002 


L.NAME 
D.NAME 
S.NAME 


10$: 


20$: 
30$: 


:M0V 
MOV 
MOV 
CMP 
BEO 
CMP 
BfJE 
CMPB 
BNE 
CMPB 
BNE 
SOfl 
BR 

REJ$ 
RETURN 


#NAME,RO 
.PSTPT.Ri 
.PSTCN,R2 
#3,R2 

loi 

#2,R2 

20l 

#•  ,2(R0) 

20$ 

(R0)+,(R1)^ 

20$ 

R2.10$ 

30§ 


POINT  AT  NAME  WE'RE  LOOKING  FOR 
POINT  AT  NAME  FROM  CONFIG  FILE 
GET  CONFIG  FILE  NAME  LENGTH 
THREE  CHARACTERS- 
IP  EQ,  YES 
TWO  CHARACTERS? 
IF  NE,  NO  -  REJECT  TRANSITION 
IS  OUR  THIRD  CHARACTER  A  SPACE? 
IF  NE,  NO  -  REJECT  TRANSITION 
SEE  IF  NAMES  MATCH 
FOR  A  LENGTH  OF  R2  CHARACTERS 

SUCCESS;' 

REJECT   TRANSITION 


PROCESS   LINE    TABLE    CUNT    (LLC$DF,    DLC$DF,    DDM$DF) 
.IF   DF      M$$MGE 


032767 
001403 
016767 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


.INC: 


10$: 


BIT 

#MS.INC,$MISS 

BEQ 

10$ 

MOV 

.PNUMB,$$INC 

RETURN 

.ENDC 

IS  THE  LINE  TABLE  COUNT  MISSING 

IF  EO,  NO  -  LEAVE 

GET  THE  LINE  TABLE  COUNT 


LLC  PROCESS  EXTENSION 
.;F  DF  M$$MGE 


016767 
026727 
103001 


OCL'OOOG  OOOOOOG 
OOOOOOG  000200 


P. EXT: 


1013 


MOV 
CMP 
BHIS 

RETURN 

EMSG$R 
.ENDC 


.PNUMB,$$EXT 
.PNUMB,#128. 
101$ 


ZQ 


GET  THE  PROCESS  EXTENSION  SIZE 
IS  PROCESS  EXTENSION  >=  4K  ? 
IF  HIS,  YES 


PROCESS  EXTENSION  TOO  BIG 


NILCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85 
ADDSDF  ACTION  ROUTINES  


00:23 
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NTLCFG     CREATB'J  BY  MACRO  ON  29-JUN-85  AT  00:24 
SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFEREiMCES 

$mNY 

=   000020 

#16-596 

SAZFS 

=   ****** 

GX 

10-423 

$BLAN< 

=  000006 

#16-596 

SCEACX 

=      ■*♦**** 

GX 

26-869 

SfFUK 

-      ****** 

GX 

10-420 

SCLBUF 

=      ****** 

GX 

♦11-446 

SCLDEQ 

-      ****** 

GX 

9-392 

13-519 

SCLIOS 

=      ****** 

GX 

10-425 

11-447 

SCLQUE 

-      ****** 

GX 

10-424 

tCLSlZ 

=      ****** 

GX 

*11-446 

SCTIM 

-      ****** 

GX 

•24-803 

$C5TA 

-      ****** 

GX 

9-237 

SDIGIT 

=  000024 

#16-596 

SDNUMB 

=  OOOOU 

#16-596 

$EOS 

=  000012 

#16-596 

SERRYP 

001356 

RG 

#8-187 

SERRYR 

OOUOO 

RG 

#8-188 

24-805 

SERRZP 

00U34 

RG 

#8-189 

SERRZO 

001304 

RG 

#8-186 

20-735 

SERRIA 

001062 

R 

#8-181 

22-764 

1ERR1P 

000370 

R 

#8-170 

10-432 

SERRIO 

000426 

R 

#8-171 

11-461 

SERRIR 

000464 

R 

#8-172 

11-462 

SERRIS 

000512 

R 

#8-173 

9-399 

SERR1T 

000542 

RG 

#8-174 

12-501 

SERRIU 

000570 

R 

#8-175 

9-400 

SERRIV 

000626 

R 

#8-176 

9-401 

SERRIW 

000664 

R 

#8-177 

9-402 

SERRIX 

000722 

R 

#8-178 

9-403 

SERRIY 

000760 

R 

#8-179 

9-327 

SCRRIZ 

; '01 024 

R 

#8-180 

9-404 

$ERR2A 

001124 

RG 

#8-182 

21-749 

$ERR2C 

001174 

RG 

#8-183 

$ERR2F 

001230 

RG 

#8-184 

$ERR2I 

001264 

RG 

#8-185 

$ERR3A 

001466 

R 

#8-190 

9-405 

$ERR3B 

0U1524 

R 

#8-191 

9-406 

$ERR3C 

001562 

R 

#8-192 

9-407 

SEXIT 

=  000000 

#16-596 

SFAIL 

=   177777 

#16-596 

SFEATR 

~      ;-■***** 

GX 

♦9-357 

SFNOUT 

r     ****** 

GX 

8-170 

8-171 

SGC'^EP 

=     *****K 

GX 

11-446 

SGPRM 

=     *****. 

16-596 

SLAMDA 

=  000000 

#16-596 

SLINKX 

~    ****** 

GX 

26-874 

SMISS 

-    ****** 

GX 

9-238 

9-267 

$NAMB 

-    ****** 

ex 

9-236 

SNLCFG 

OOOQUO 

RG 

#9-226 

SNUMBR 

--   0000C2 

#16-596 

$PD7A 

-   *■♦***♦ 

GX 

9-320 

SO^^JT 

rr     ****** 

GX 

9-292 

D  8 

PAGE  4 

CREF   04.00 


NTL( 
SN^ 


14-558 


9-269 


9-294 


♦9-302 


♦9-318 


20-719 


NTLCFG 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:24 
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NTL 
nor 
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SCAN  CONFIGURA'ION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:24 


MTLrF2  -  SCAN  CONFIGURE 

IN^ICF  -  PROCESS  CETAB 

382  0005A4 

103450 

385  0C03A6 

38A  000352 

103053 

385  000354 

386  000360 

387  000364 

388  000370 

589  000374 

103361 

390  000376 

391  000^02 

103756 

392  000^04 

042767 

393  000412 

394  000416 

103426 

595  000420 

596  000424 

103372 

39?  000426 

:98  000432 

103767 

399  000434 

042767 

400  000442 

401  000'". 

103405 

402  000450 

403  000454 

105772 

404 

405 

406 

407  000456 

408  000462 

000241 

409  000464 

410 
411 

412 

413 

414  000466 

415  000474 

416  000502 
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NTLC 
TPAR 


OOOOOOG  OOOOOOG 


OOOOOOG  OOOOOOG 


BCS 

161$ 

IF  CS,  EOF  (BUF$DF  MISSING) 

CALL 

QPA8 

IS  IT  PAR$DF  ? 

BCC 

181$ 

YES  ..  BUF$DF  IS  MISSING 

CALL 

$QBRA 

CHECK  FOR  SLT  WITH  ROUTER  ADJACENCY  VALUE 

CALL 

$QXPT 

IS  IT  XPT'S  LLC$DF  (IF  YES  -  GET  *  OF  CKTS) 

CALL 

$QMLMC 

IS  IT  DEC$DF  (IF  YES  -  GET  #  OF  LNKS  /  CTRS 

CALL 

QROU 

IS  T  ROU$DF  ? 

BCC 

50$ 

IF  CC,  YES  ..  OKAY 

CALL 

Q8UF 

IS  IT  BUF$DF  ? 

BCS 

50$ 

IF  CS,  NO 

BIC 

#M3.8UF 

SMISS 

INDICATE  WE  FOUND  IT 

60$: 

CALL 

READ 

READ  NEXT  RECORD 

BCS 

171$ 

IF  CS,  EOF  (PAR$DF  MISSING) 

CALL 

QROU 

IS  IT  ROU$DF  ? 

BCC 

60$ 

F  CC,  YES  ..  OKAY 

CALL 

QPAR 

S  IT  PAR$DF  ? 

BCS 

60$ 

IF  CS,  NO 

BiC 

/IrMS.PAR 

$MISS 

INDICATE  WE  FOUND  IT 

65$: 

CALL 

READ 

READ  NEXT  RECORD 

BCS 

70$ 

IF  CS,  EOF 

CALL 

QROU 

•  IS  IT  ROU$DF  ? 

BCS 

65$ 

•  IF  CS,  NO  -  ',EEP  LOOKING 

;  ALL 

NEEDED  PARAMETERS 

SEEN 

^0$: 

CALL 

$CLDEQ 

■  CLOSE  CONFIG  FILE 

75$: 

CLC 
RETURN 

;  INDICATE  SUCCESS 

:  ERROR  CONDITIONS 

161$: 

EMSGSR 

XG 

;  BUF$DF  MISSING  (EOF) 

171$: 

EMSG$R 

XH 

;  PAR$DF  MISSING  (EOF) 

181$: 

EMSGSR 

XI 

;  BUF$DF  MISSING 

E  9 
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NTLC 


NTLCF2  -  SCAN  CONFIGURATION' 
TPAR5  STATE  TABLES  -  SERSDF 

83A 
835 
836 
837 

839  001252 
8A0  001252 
8A1  001252 
842 

843  001252 
8A4  001252 
8A5  001252 
846 

847  001252 

848  001252 

849  001252 
850 

851  001252 

852  001252 

853  001252 
854 

855  001252 

856  001252 

857  001252 
858 

859  001252 

860  001252 

861  Oul252 
862 
8b3  001252 

864  001252 

865  001252 
866 
867 

868  001252 

869  001252 

870  00' 252 
&?■' 
872 

873  001252 

874  001252 
875 

876  001252 

877  001252 
878 
879 
880 

881  001252 

882  001252 
""  001252 
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NTLC 
TPAR 


88 
f8 
88 


0O1252 
001252 


8f  001252 
8t  001252 


SERSDF  STATc  TA8LE  CONTINUED 


STATES  E 

TRANS  <',>,F 

TRANS  $STRNG,,PAS,SF.PSS,SERFLG 

STATES 

TRANS  SEOS.SEXIT.SERCND 

TRANS  <',> 

STATES  F 

TRANS  <',>,G 

TRANS  SNUMeR,,DADDR,SF.DPA,SERFLG 

STATES 

TRANS  SEOS,SEXIT,SEREND 

TRANS  <',> 

STATES  G 

TRANS  <',>,H 

TRANS  SNUM8R,,DCT,SF.DPC,SERFLG 

STATES 

TRANS  SEOS,SEXIT,StREND 

TRANS  <■,> 

STATES  H 

TRANS  <',>,! 

TRANS  SSTRNG,  ,HRDAD[),SF  .HAD.SERFLG 


STATES 
TRANS  SE05,SEXIT,SEREND 
TRANS  <',> 


STATES  I 

TRANS  XSF.PH3%,SEXIT,SEREND,SF.PH3,SEi'FLG 

STATES 

TRANS  I  END 


STATES  SERST 

TRANS  <'.>,HULP 

TRANS  <'-> 

STATES 

TRANS  SDNUMB.ZSS.SERMUX 

STATES  MULP 

TRANS  SDNUMB,,SERMUL 
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TPARS  STATE  TABLES  -  EVTSOF 

1265  .'^.8TTL  TPARS  STATE  TABLES  -  EVTSDf 

1266 

1267 

1268 

1269  001252 

1270  001252 
1271 

1272  001252 

1273  001252 
1274 

127:  001252 
1276  001252 
1277 

1278  001252 

1279  001252 
1280 

1281  001252 

1282  001252 
1283 

1284  001252 

1285  001252 

1286  001252 

1287  001252 
1288 
1289 
1290 
1291 

1292  001252 

1293  001252 
12v", 

1295  001252 

1296  001252 

1297  001252 


;  EVENT  FILTER 

DEFINITIONS  (EVTSDF) 

STATES 
TRANS 

EVTDF 
SNUMeR,,E.NUM 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

L3RA 

STATES 
TRANS 

lEVTMSK 

STATES 
TRANS 

<',> 

STA;ES 
TRANS 
TRANS 
TRANS 

"CONSOLE", SEXIT.E. CON 
"FJLE",SEXIT,E.FIL 
"MONITOR", SEXIT.E.MON 

;  EVTMSK  SUB-EXPRESSION 

N1LC 

MACRi 

MACR 

ASLS 
CALL 


CALL 
DBGT 


STATES  EVTMSK 
TRANS   SNUMBR,,E.MSK 

STATES 
TRANS   R8RA,SE)(IT 
TRANS   <',>, EVTMSK 


DHBD 
EMSG 
EMSG 
FNBD 
GCLS 
ISTA 
MTRA 
NTLD 
NTLE 


RETL 

SERC 
SLTC 
SOB 
STAl 


SWS' 
TRAf 
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MACRO  CROSS  REFERENCE 


D  12 

PAGE  8 

CREF   OA.OO 


MACRO  NAME 

ASLS 
CALL 


CALLR 
DBGTPS 


REFERENCES 


DHBDFS 

EMSGS 

EMSGSR 

FNBDFS 

GCL$ 

ISTATS 

MTRANS 

NTLDFS 

NTLERS 


RETURN 

SERDFS 
SLTDFS 
SOB 

STATES 


SWSTKS 
TRANS 


#5-59 

8-300 

8-324 

8-327 

8-385 

8-386 

8-387 

8-407 

9-434 

9-435 

13-589 

14-621 

14-624 

13-592 

#17-701 

#17-706 

#17-707 

#18-747 

#18-748 

#18-755 

#19-795 

#19-802 

#19-806 

#20-849 

#20-853 

#20-857 

#21-919 

#22-932 

#22-935 

#22-959 

#23-971 

#23-972 

#23-980 

#23-981 

#23-982 

#25-1064 

#25-1067 

#25-1068 

#25-1096 

#25-1099 

#26-1118 

#30-1286 

#30-1287 

#30-1297 

#5-60 

5-70 

#5-63 

8-373 

#5-59 

8-414 

8-415 

#5-60 

5-72 

#5-59 

10-459 

#5-59 

17-701 

#17-701 

#5-59 

5-69 

#5-59 

7-107 

7-108 

7-121 

7-122 

7-127 

7-142 

7-143 

7-144 

8-293 

8-350 

8-371 

16-690 

#5-60 

5-73 

#5-60 

5-71 

8-315 

8-323 

#5-59 

17-704 

#17-709 

#17-740 

#18-745 

#18-750 

#19-785 

#19-789 

#19-793 

#19-822 

#19-826 

#19-830 

#20-868 

#20-873 

#20-876 

#21-910 

#:1-917 

22-925 

#22-951 

#22-954 

#22-957 

#23-997 

/^23-999 

#23-1001 

#24-1024 

#24-1026 

#24-1032 

#25-1056 

#25-1058 

#25-1060 

#25-1082 

#25-1085 

#25-1088 

#26-1116 

#26-1119 

#26-1130 

#27-1159 

#27-1162 

#27-1165 

#28-1196 

#28-1199 

#28-1202 

#28-1226 

#28-1229 

#28-1232 

#29-1261 

30-1269 

#30-1272 

#32-1307 

8-345 

8-367 

#5-59 

#17-705 

#17-706 

#17-722 

#17-723 

#17-726 

8-328 
8-388 
10-459 
15-653 

#17-711 

#18-759 

#19-810 

#20-861 

#22-938 

#23-973 

#23-1015 

#25-1069 

#26-1121 


8-416 


7-109 
7-128 
7-145 
8-409 


#17-713 
#18-753 
#19-797 
#20-839 
#20-881 
#22-927 
#22-960 
#23-1003 
#24-1034 
#25-1062 
#25-1091 
27-1137 
#27-1169 
#28-1205 
#28-1235 
#30-1275 


#17-707 
/>}7-727 


8-345 
8-390 
11-505 


#17-715 

#18-760 

#19-820 

#20-865 

#22-941 

#23-974 

#24-1028 

#25-1072 

#26-1122 


9-443 


7-110 
7-129 
7-146 
9-438 


#17-717 
#18-757 
#19-800 
#20-843 
#20-885 
#22-933 

23-968 
#23-1005 
#24-1037 
#25-1065 
#25-1094 
#27-1140 
#28-1178 
#28-1208 

29-1243 
#30-1278 


#17-710 
#i7-730 


8-349 
8-393 
12-538 


#17-719 

#18-761 

#19-824 

#20-870 

#22-944 

#23-975 

#24-1029 

#25-1081 

#26-1123 


10-474 


7-112 
7-132 
7-147 
10-464 


#17-721 

#18-763 

#19-804 

#20-847 

#20-888 

#22-936 

#23-987 

#23-1007 

#24-1039 

#25-1070 

#25-1097 

#27-1143 

#28-1181 

#28-1211 

#29-1246 

#30-1281 


#17-711 
#17-731 


8-367 
8-395 
12-543 


#17-723 

#19-779 

#19-828 

#20-883 

#22-947 

#23-976 

#24-1030 

,"25-1084 

#26-1124 


10-475 


7-113 
7-133 
7-148 
11-509 


#17-725 

#18-766 

#19-808 

#20-851 

#20-891 

#22-939 

#23-989 

#23-1009 

#24-1042 

#25-1073 

#25-1100 

#27-1147 

#28-1184 

#28-1214 

#29-1249 

#30-1284 


#17-714 
#17-734 


8-373 
8-397 
12-550 


#17-727 

#19-780 

#19-832 

#21-908 

#22-950 

#23-977 

#24-1031 

#25-1087 

#26-1125 


11-514 


7-114 
7-134 
7-149 
12-571 


#17-729 
19-774 
#19-812 
#20-855 
#20-894 
#22-942 
#23-991 
#23-1011 
25-1050 
#25-1075 
26-1110 
#27-1150 
#28-1187 
#28-1217 
#29-1252 
#30-1292 


#17-715 
#17-735 


8-381 
8-400 
12-563 


#17-731 

#19-787 

#20-841 

#21-909 

#22-953 

#23-978 

#24-1036 

#25-1090 

#27-1145 


7-117 
7-135 
7-150 
14-629 


#17-733 
#19-777 
#19-815 
#20-859 
21-904 
#22-945 
#23-993 
#23-1013 
#25-1052 
#25-1077 
#26-1112 
#27-1153 
#28-1190 
#28-1220 
#29-1255 
#30-1295 


#17-718 
#17-738 


8-383 
8-402 
12-566 


#17-735 

#19-791 

#20-845 

#21-912 

#22-956 

#23-979 

#24-1041 

#25-1093 

#27-1167 


7-119 
7-141 
7-151 
15-656 


#17-737 
#19-782 
#19-818 
#20-863 
#21-906 
#22-943 
#23-995 

24-1022 
#25-1054 
#25-1079 
#26-1114 
#27-1156 
#28-1193 
#28-1223 
#29-1258 

31-1303 


#17-719 
#17-741 
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339 
3^0 
3A1 
342 
3A3 
344 
345 
546 
347 

349 
350 

351  000272 

352  000312 

353  000316 

354  000324 

355  000326 

356  C00330 
357 

358 
359 
360 

361  000332 

362  000336 

363  000340 

364  000342 
30  000346 

366  000350 

367  000356 


.SBTTL  READ  -  READ  NEXT  RECORD 


READ  -  READ  NEXT  RECORD  FROM  CONFiG  FILE 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
CFGSZ=RECORD  LENGTH 


016700 
016067 

105710 
100401 


122710 
000261 
001773 
122710 
001405 


OOOOOOG 
000002  000336' 


ftEAD: 


10$: 


GCL$ 

MOV 

MOV 

TST8 

BMI 

RETURN 


,#CFGBF,*132. 

$CLIOS,R0 

2(R0),CFGSZ 

(RO) 

101$ 


OOOOOOG 
OOOOOOG 


ERROR  CONDITIONS 


101$: 


111$: 


CMPB 

SEC 

BEQ 

CMPB 

BEQ 

EMSGSR 

EMSG$R  1R 


#IE.EOF,(RO) 

10$ 

#IE.RBG,(PO) 

111$ 

1Q 


READ  NEXT  RECORD 
GET  GCL  lOSB  ADDRESS 
SET  RECORD  LENGTH 
SUCCESS?  (CLEARS  C-8IT) 
IF  MI,  NO 


IS  IT  END  OF  FILE? 

ASSUME  THAT  IT  IS 

IF  EQ,  YES  -  RETURN  WITH  C-3IT  SET 

IS  IT  BUFFER  TOO  SMALL? 

IF  EQ,  rES 

READ  FAILURE 

READ  OVERFLOW 
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L 


NTLCFP 

CREATED  BY 

MACRO  ON  2 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

LO.PAR 

000010 

#5-63 

LO.PRl 

000010 

#5-63 

lO.SCR 

OOOOK 

#5-63 

LO.STA 

000015 

#5-63 

LO.VCT 

000012 

#5-63 

LR.AST 

000026 

#5-63 

LR.CIR 

000002 

#5-63 

LR.CTL 

000004 

#5-63 

LR.EFN 

000004 

#5-63 

LR.LIN 

000002 

#5-63 

LR.PRM 

000030 

#5-63 

LR.PRO 

000002 

#5-63 

LR.STS 

000000 

#5-63 

LR.TCB 

000002 

#5-63 

LR.UN1 

000005 

#5-63 

LS.AST 

=  100000 

#5-63 

LS.CEX 

=  000001 

#5-63 

LS.CIR 

=  000010 

#5-63 

•.s.cxo 

=  010000 

#5-63 

LS.CX5 

=  000400 

#5-63 

LS.DLM 

=  004000 

#5-63 

LS.ECH 

=  001000 

#5-63 

LS.FOX 

=  004000 

#5-63 

LS.HDX 

=  010000 

#5-63 

LS.LIN 

=  000003 

#5-63 

LS.LMC 

=  000007 

#5-63 

LS.NTi 

=  004000 

#5-63 

LS.ON 

=  000011 

#5-63 

LS.OPT 

=  000400 

#5-63 

LS.PRO 

=  000002 

#5-o3 

LS.PWF 

^  040000 

#5-63 

LS.TOP 

=  002000 

#5-63 

LS.UNF 

=  020000 

#5-63 

LS.X25 

=  000012 

#5-63 

LS.11D 

=  004000 

#5-63 

LX.CEa 

=  000004 

#5-63 

LX.LIN 

=  000006 

#5-63 

LX.PRO 

=  000005 

#5-63 

L.COST 

0r0015 

#5-64 

L.CTL 

000012 

#5-64 

L.CVA 

177776 

#5-64 

L.DDM 

000002 

#5-64 

L.DDS 

000004 

#3-64 

L.DLC 

000005 

#5-64 

L.DLM 

000006 

#5-64 

L.DLS 

000010 

#5-64 

L.FLG 

000000 

#5-64 

L.KRBA 

000016 

#5-64 

L.LEr; 

=  000022 

#5-64 

L.MPF 

000022 

#5-64 

L.NMS' 

000020 

#5-64 

L.NSTA 

000014 

#5-64 

ON  29-JUN-05  AT  00:29 
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CREF   04.00 


NT 
Tc 


NTLCFP 
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E  U 


t 


L 
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NTLDEV  -  BUILD  DEVICE  DATA  3TRU  MACRO  V05.03b  Saturday  29-Jun-85  00:30 
Table  ot  contents 

DEFINITIONS 
DATA 

-  SET  UP  DEVICE  DATA  STRUCTURES 
DEFINE  SPECIAL  DATA  STRUCTURE  SYMBOlS 
OPEN  FILE  AND  READ  LABEL  BLOCK 
ALLOCATE  DEVICE  TABLE  SPACE 
TRANSFER  DEVICE  TABLES  INTO  CORE 

RELOCATE  AND  VALIDATE  DATA  STRUCTURES 
VALIDATE  DATA  STRUCTURES 

CALL  DRIVER  AT  POWERFAIL  ENTRV 

-  PRINT  ERROR  MESSAGE 

-  DEALLOCATE  DATA  STRUCTURES  AND  CLOSE  FILE 

-  PRINT  FILE  NAME  AND  DEALLOCATE 

-  PRINT  FILE  NAME  AND  CLOSE  FILE 

-  REPLACE  XXTA8  NAME  AND  SYMBOL  NAME 

-  REPLACE  XXX  NAME  AND  SYMBOL  NAME 
REPLACE  DEVICE  NAME 


NT 
DV 


s- 

54 

MACRO 

(S- 

hf 

LOCAL 

H- 

219 

SNLDEV 

10- 

348 

DVSYM 

11- 

419 

DVLBL 

V- 

466 

DVALL 

n- 

SIS 

DVXFR 

u- 

624 

RVAD  - 

14- 

625 

VAD  - 

IS- 

64  < 

SNLCDD 

16- 

685 

DVERR 

M- 

723 

DVDEA 

\l- 

724 

FNDEA 

M- 

r?s 

SFNDEQ 

1H- 

750 

REP4A 

1H- 

751 

REP4A1 

19- 

797 

REP9  - 

20- 

814 

REPDV 
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DVALL  -  ALLOCATE  DEVICE  TABLE  SPACE 


A66 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
48? 
483 
484 

485  000636 

486  000640 

487  000644 

488  000650 

489  000654 

490  000656 

491  000662 

492  000664 

493  000666 

494  000670 

495  000672 

496  000676 

497  000702 

498  000706 

499  000710 

500  000712 

501  000716 

502  000722 

503  000726 

504  000732 

505  000734 

506  000736 

507  000742 

508  000744 
509 

510 
511 
512 
513  000746 


005000 
016701 


1034C2 
010066 

005700 
001427 
010102 
062702 
042702 
010267 
060001 
005301 
010167 
166700 
012701 
060061 
011101 
001374 
066700 
000241 


.SBTTL  DVALL  -  ALLOCATE  DEVICE  TABLE  SPACE 


DVALL  -  ALLOCATE  DEVICE  TABLE  SPACE  FROM  THE  POOL 

THIS  ROUTINE  IS  CALLED  TO  ALLOCATE  SPACE  FOR  THE  DEVICE  TABLES  FROM  THE 
CORE  POOL.  THE  AMOUNT  TO  ALLOCATE  IS  DEFINED  BV  THE  VALUE  OF  $XXEND  FROM 
THE  ST8  FILE.  THE  SYMBOL  VALUES  FROM  THE  STB  FILE  ARE  ADJUSTED  BY  ADDING 
THf  ADDRESS  OF  THE  ALLOCATED  DATA. 

INPUTS: 

LENGTH=BYiE   COUNT   NEEDED 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

RO=BUFFEfi  ADDRESS  (IF  SUCCESSFUL) 

$LLEN=DEVICE  TABLES  LENGTH 


000136' 


000002 


000003 
000003 
OOOOOOG 


000174' 
000170' 
000140' 
000010 


000170' 


DVALL: 


10$: 
20$: 


30$: 


CLR 

MOV 

SWSTK$ 

CALL 

BCS 

MOV 

RETURN 

TST 

BEQ 

MOV 

ADD 

BJC 

MOV 

ADD 

DEC 

MOV 

SUB 

MOV 

ADD 

MOV 

BNE 

ADD 

CLC 

RETURN 


RO 

LENGTH, R1 

20$ 

SALOCe 

10$ 

R0,2(SP) 

RO 

101$ 

R1,R2 

#3,R2 

#3,R2 

R2,$LLEN 

RO.Rl 

R1 

Rl.TABEND 

BASE.RO 

#DSLK2,R1 

R0,10(R1) 

(R1),R1 

30$ 

BASE.RO 


ERROR  CONDITION 
01$:   EMSG$R  2L 


ZERO  THE  BUFFER  ADDRESS 
GET  BYTE  COUNT  NEEDED 

'  ENTER  KERNEL  MODE 

*  TRY  TO  ALLOCATE  FROM  THE  POOL 

t  IF  CS,  FAILURE 

"   SET  USER  MODE  RO 

►  BACK  TO  USER  MODE 
DID  WE  SUCCEED? 
IF  EQ,  NO 

COPY  ALLOCATION  SIZE 
ROUND  IT  UP  TO  NEXT  MULTIPLE  OF  4 
IN  MEMORY  OF  THE  RPO*  SERIES 
SET  IMAGE  FILE  TRANSFER  SIZE 
CALCULATE  END  OF  TABLES-1 

SAVE  IT'fOR  later 

ADJUST  FOR  TKB  BASE  ADDRESS 

START  AT  SECOND  CONTROL  BLOCK 

ADJUST  DEVICE  TABLE  SYMBOL 

GET  NEXT  CON:ROL  BLOCK  ADDRESS 

IF  NE,  NOT  AT  END 

RE'.TORF   ALLUlmTION  ADDRESS 

I'jUILATE    Sl'^CESS 


;  ALLOCATION  FAILURE 


NTl  DFV 
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♦FILE»»!D*»MAPX 
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MM      MM 

AAAAAA 

PPPPPPPP 

XX      XX 

•IM      MM 

AAAAAA 

PPPPPPPP 

XX      XX 

mm     MMMM 

AA 

AA 

PP      PP 

XX      XX 

MMMM  MMMM 

AA 

AA 

PP      PP 

XX      XX 

MM  MM  MM 

AA 

AA 

PP      PP 

XX  XX 

MM  MM  MM 

AA 

AA 

PP      PP 

XX  XX 

MM      MM 

AA 

AA 

PPPPPPPP 

XX 

MM      MM 

AA 

AA 

PPPPPPPP 

XX 

MM      MM 

AAAAAAAAAA 

PP 

XX   XX 

MM      MM 

AAAAAAAAAA 

PP 

XX  XX 

MM      MM 

AA 

AA 

PP 

XX      XX 

MM      MM 

AA 

AA 

PP 

XX      XX 

MM      MM 

AA 

AA 

PP 

XX      XX 

MM      MM 

AA 

AA 

PP 

XX      XX 

SSSSSSSS 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

iini 

ss 

1 

ss 

1 

ss 

T 

ss 

1 

ssssss 

T 

ssssss 

1 

ss 

1 

ss 

1 

ss 

r 

ss 

I 

LlLLLLLLLL 

SSSSSSS3 

1 

LLLLLLLLLL 

ssssssss 

I 

NTL  • 
Symbi 

AS$CI 
A$$CI 
A$$PI 
A$STI 
A.LU' 
A.LUi 
A.LU 
BUFF 
BUFL 
CL.A 
CL.A 
CL.C 
CL.C 
CL.E 
CL.E 
CL.E 
CL.I 
CL.L 
CL.N 
CL.O 
CL.R 
CL.X 
CS.D 
CS.D 
CS.E 
CS.I 
CS.M 
CS.N 
CS.O 
CS.U 
CMC 
C$$C 
C$$R 
CCC 
C.DE 
CD! 
CDS 
C.FI 
C.MK 
C.MK 
C.SI 
C.Sl 
C.Sk 

AE 

$$$C 
J$fS 
I.'  re 


Work 
Work 
Size 
Size 
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ML 
Symb 


NTL  -  IDENT  MODULE 
Symbol  table 


A$$CHK= 

AS$CPS= 

A$$PR1= 

A$$TRP= 

A.LULU= 

A.LUNA= 

A.LUNU= 

BUFFER 

BUFLEN= 

CL.AST= 

CL.ATT= 

CL.CAS= 

CL.CMT= 

CL.EIF= 

CL.EXN= 

CL.EXT= 

CL.IND= 

CL.LCC= 

CL.NPR= 

CL.OPN^ 

CL.RNE= 

CL.XIT= 

CS.DIF= 

CS.DVF= 

CS.EQU^ 

CS.INP= 

CS.MOR= 

CS.NMF= 

CS.OUT= 

CS.WLD= 

C$$.CKP  = 

C$$ORE= 

C$$RSH- 

C.CMLD= 

C.DEVD=: 

C.DIRD= 

C.DSDS= 

C.FILD= 

C.MKW1= 

C.MKW2= 

C.SIZE= 

C.STAT  = 

C.SWAD= 

.  A8S. 

$t$GCL 
JSfSRI 


000000 

000000 

000000 

000000 

000002 

000004 

000006 

000472R 

000001 

OO'iOOO 

000200 

020000 

000001 

000040 

OAOOOO 

000010 

000002 

000020 

000400 

00010',  C 

00000' 

100000 

000002 

000004 

000040 

000001 

000020 

000001 

000002 

000010 

000000 

000400 

177564 

000002 

000006 

C00012 

000006 

000016 

000024 

000026 

000054 

000001 

000022 

000000 
000000 
000474 
001020 


C.TYPR= 
DEFFLG= 
DFLTNB 
D$$BU6= 
D$$ISK= 
D$$L11= 
D$$YNC= 
002  D$SYNM= 
EF 

E$$XPR= 
FX.D1R= 
FX.DLN= 
FX.DMX= 
FX.LEN= 
F$$LVL= 
F.ACTL= 
F.AL0C= 
F.BBFS= 
F.8DB  = 
F.BGBC= 
F.BKDN= 
F.BKDS= 
F.BKEF= 
F.BKP1= 
F.BKST= 
F.BKVB= 
F.CHR  = 
F.CNTG= 
F.DFN8= 

f.dsp:= 

F.DVNM= 
F.EFBK= 
F.EFN  = 
F.E0BB= 
F.ERR  = 
F.EXT  = 
F.FACC= 
F.FFBY= 
F.FLG  = 
F.FNAM= 
F.FNB  = 
F.FTYP= 
F.FVER= 


000000 

000233 

000426R 

177514 

OOOOOu 

000001 

000000 

000000 

000001 

000000 

000004 

000003 

000002 

000000 

000001 

000076 

000040 

000062 

000070 

000057 

000026 

000020 

000050 

000051 

000024 

000064 

000075 

000034 

000046 

000044 

000134 

000010 

000050 

000032 

000052 

000072 

000043 

000014 

000074 

000110 

000102 

000116 

000120 
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F.HI8K= 

000004 

M$$NET= 

000000 

F.LUN  = 

000042 

M$$OVR= 

000000 

002  F.MBCT= 

000054 

N$$ACC= 

000001 

F.MBC1= 

000055 

N$$BUF= 

000001 

F.MBFG= 

000056 

N$$LDV= 

000001 

F.NRBD= 

000024 

N$$MCP= 

000001 

F.NREC= 

000030 

N$$MLL= 

000001 

F.0VBS= 

000030 

N$$MOV= 

000010 

F.RACC= 

000016 

N$$NCT= 

000001 

F.RATr= 

000001 

N$$PEM= 

000001 

F.RCNM= 

000034 

N.ANM1= 

000002 

F.fiCTL= 

000017 

N.ANM2= 

000024 

F.RS1Z= 

000002 

N.DID  = 

000024 

F.RTYP= 

000000 

N.DV;JH= 

000032 

F.SEQN= 

000100 

N.FID  = 

000000 

F.SPDV= 

000072 

N.FNAM= 

000006 

F.SPUN= 

000074 

N.FTYP= 

000014 

F.STBK= 

000036 

N.FVER= 

000016 

F.UN'T= 

000136 

N.NEXT= 

000022 

F.URBD= 

000020 

N.STAT^ 

000020 

F.VBN  = 

000064 

N.UNIT= 

000034 

F.VBSZ= 

000060 

P$$P45= 

000000 

G$$TPP= 

000000 

P$$WRD= 

000000 

G$$TSS= 

000000 

Q$$OPT= 

000010 

G$$TTK= 

000000 

Q.IOAE= 

000012 

G$$WRD= 

000000 

Q.IOEF= 

000006 

G.MCRB= 

000002  G 

Q.IOFN= 

000002 

I$$RAR= 

000000 

O.IOLU= 

000004 

I$$RDN^ 

000000 

Q.IOPL= 

000014 

K$$CNT= 

177546 

Q.IOPR= 

000007 

K$$CSR= 

177546 

O.IOSB= 

000010 

K$$LDC= 

000000 

R$$DER= 

000000 

K$$TPS= 

000074 

R$$K11= 

000001 

LD$LP  = 

000000 

R$$SND= 

000000 

L$$ASG= 

000000 

R$$11M= 

000000 

L$$DRV= 

000000 

S$$WRG= 

000000 

L$$P11= 

000001 

S$$YSZ= 

007600 

L$$11R= 

000000 

S.ANM1= 

000014 

M$$CRS= 

000124 

S.ANM2= 

0C0005 

M$$CRX= 

000000 

S.BFHD= 

000020 

M$$FCS= 

000000 

S.ETEF= 

000002 

M$$MGE= 

000000 

S.FATT= 

000016 

Tors  delected: 


000  (RW,I,GBL,ABS,OVR) 

001  (RW,I,LCL,REL,CON) 

002  (RW,I,LCL,REL,CON) 

003  (RW,D,GBL,REL,0VR) 


♦•♦  Assembler  statistics 


Jork  tile  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool: 


0 

0 

13638  Words  I  54  Pages; 

14440  Words  (  55  Pages) 


S.FDB  - 
S.FNAM= 
S.FNB  = 
S.FNBW= 
S.FNTY= 
S.FTYP= 
S.NFEN= 
T$$KMG= 
T$$M1N= 
V$$CTR= 
U.TSEF= 
X$$DBT= 
SASTLV 
SCLASN 
SCLAST 
$CLBUF= 
SCLCSi 
SCLEVL 
SCLFDB 
SCLFLG 
$CLIOS= 
SCLMCR 
SCLPMT 
SCLQIO 
$CLRTN= 
SCLSBK 
SCLSEF 
$CLSIZ= 
SCLSRV 
SCLTBF 
SCLTSZ 
SCLWEF 
SPSHPT 
$$$ARG= 
$$$OST= 
$$$T1  = 
$$$T2  = 
FSRCB= 
..PC1= 
..PC2= 
..PC3= 
..TPC= 


000140 

000006 

000036 

000017 

000004 

000002 

000020 

000000 

000000 

001000 

000002 

000000 

00021  ORG 

000162RG 

0001 72RG 

00031  ORG 

00021 2RG 

000206RG 

000266RG 

000464RG 

0001 32RG 

OOOOOORG 

000466RG 

0001 22RG 

**♦♦««  GX 

0001 76R6 

0001 56RG 

000306RG 

000470RG 

000202RG 

000204RG 

0001 52RG 

0001 74RG 

000003 

000010 

000002 

0001 66R 

******  G 

000266R 
000464R 
000266R 
000020 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 

002 
002 
002 
002 
002 
002 
002 
002 


002 

002 
002 
002 


ML  -  IDENT  MODULE 
Symbol  table 
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SSCEX  -  TRANSFER  COMM  EXEC  INTO  CORE 


NTLCE 
RDBS 


285 
286 
287 
288 
289 
290 
291 
29? 
295 
294 
295 
296 
297 
298 
299 
300 
301 
302 

303  000000 

304  000004 
305 

3J6 

307  000006 

308  000012 

309  000016 

310  000020 

311  000024 

312  000030 
313 

314  000032 

315  000036 

316  000042 

317  000046 

318  000052 

319  000054 
321  000056 

321  000062 

322  000064 

323  000070 

324  000072 

325  000074 

326  000100 

327  000104 

328  000106 

329  C00114 

330  000116 

331  000122 
332 

333  000126 

334  000142 

335  000144 
33o  000146 

337  000150 

338  000152 

339  000154 

340  000156 

341  000!60 


.SBTTL  SSCEX  -  TRANSFER  COMM  EXEC  INTO  CORE 


SSCEX  -  TRANSFER  COMM  EXEC  INTO  CORE 

INPUTS: 

.HOME=NETLDR  DATA  BLOCK  ADDRESS 

OUTPUTS: 

C-B1T=SUCCESS/FAILURE 

.CXSYM=PROCESS  VALIDATION  SYMBOL  DEFINITIONS 

.CXPCB=COMM  EXEC  PCB  ADDRESS 

.CXALL=CETAB  ALLOCATION  ADDRESS  (RSX-11MO 

.CXLEN=CETAB  ALLOCATION  LENGTH  (RSX-nM+) 

FE.CEX  OF  SFMASK  SET  IF  SUCCESSFUL 


103540 


012700  OOOOOOG 

012701  000006' 
005002 


103021 

016700  OOOOCOG 

011267  000002' 

010046 

016700     000002' 

001402 

012600 
000511 

010167  000036' 
-6700  OOOOOOG 
427 
^^6027  177776  000003 
001075 

016102  OOOOOOG 
066102  OOOOOOG 


010001 
022121 
064001 
042001 
160102 
001403 
010110 
005021 


SSCEX::  CALL    CESYM 
BCS     10$ 

.IF  NDF  R$$*'  . 


1$: 

3$: 
2$: 


MOV 

MOV 

CLR 

CALL 

CALL 

BCC 

SWSTKS 

MOV 

CALL 

MOV 

RETURN 

MOV 

MOV 

BEQ 

CALL 

MOV 

BR 

MOV 

MOV 

BEQ 

CMP 

BNE 

MOV 

ADD 

ASL$ 

MOV 

CM? 

ADD 

BIC 

sue 

BEQ 
MOV 
CLR 


#$CXUIC,RO 

#CEXNAM,R1 

R2 

SAZFS 

SPfilO 

2$ 

1$ 

.HOME.RO 
SMAPX 
(R2),NTPT 

RO,-(SP) 

NTPT.RO 

3$ 

$XPAR 

(SP)+,RO 

TSKERR 

R1,CEXPCB 

CEAVL,RO 

5$ 

-2(R0),#3 

101$ 

P.REL(R1),R2 

P.BLKS(R1),R2 

6,R2 
RO.RI 

(r1)<-,(!;i)  + 

-(RO),RI 
(R0)+,R1 
R1,R2 
5$ 

R1,(R0) 


LOOK  FOR  SPECIAL  SYMBOLS 
IF  CS,  ERROR 


SETUP  ASCIZ  FILE  SPEC 
FOR  i:i30,5X]CEX.STe 


TRANSFER  COMM  FXEC  INTO  CORE 
IF  SUCCESS  -  BRANCH 


GET  DATA  BLOCK  BIAS 
MAP  TO  BLuCK 

save  pool..  pcb  address 

save  error  code 

store  pcb  address 

if  none  -  branch 

release  partition 

restore  error  code 

if  cs,  error 

save  comm  exec  pcb  address 

get  allocation  pointer  address 

if  undefined,  do  nothing 

reasonableness  check 

get  partition  starting  address 
add  partition  length 

convert  from  blocks  ^0  bytes 
copy  pointer  address 
skip  the  next  two  words 
round  up  <pointer  address+4> 

giving'pool  length 
if  zero  length,  do  nothing 
set  address  of  first  segment 
no  next  segment 
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SSCEX  -  TRANSFER  COMM  EXEC  INTO  CORE 


NTLCE 
SDB5 


NTLCEX  -  LOAfl  f^MM  EXEC  IMAGE 
RDBS  -  ALLOCATE  RDBS 


867 

868 

869 

870 

871 

872 

873 

87A 

875 

876 

877 

878 

879 

880 

881 

882 

883  002C32 

88A  002032 

885  002036 

886  002042 

887  002046 


889  002052 
890 

891  002056 

892  002060 

893  002064 

894  002070 

895  002072 

896  002076 

897  002100 
898 

899  002102 
900 

901  002104 

902  002104 

903  002110 

904  002112 

905  002116 

906  002122 

907  002124 

908  002126 
'509  002132 
91C  002134 
911  002136 


017701 
017703 
062703 
067705 


010400 

042705 
050205 
016704 
C12425 
011415 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


160000 

ooocaoG 


010477  OOOOOOG 


016704 

062704 
('0514 


D05301 
001344 


OOOOOOG 
000002 


E  A 

MACRO  VO5.03b 

Saturday 

29-Jun-85  00:22  Page  15 

.SBTTL 

RDBS  -  ALLOCATE  RDBS 

T 

RDBS 

-  CARVE 

RDB'S  OUT  OF  NETWORK  POOL 

INPUTS: 

R4 

-  BIAS  OF  BASE  OF  POOL 

R5 

-  VlRTUAl  ADDRESS  OF  BASE  OF  POOL 

OUTPUTS: 

R4 

-  3IAS  OF  BASE  OF  NEXT  FREE  SEGMENT  OF  POOL 

R5 

-  VIRTUAL  ADDRESS  OF  NEXT  FREE  BLOCK 

RDBS: 

MOV 

aRDBNM.RI             ;  NUMBER  OF  RDBS  TO  ALLOCATE 

MOV 

afiD8SZ,R3 

NUMBER  OF  BYTES/RDB 

ADD 

#CRC$0V,R3 

ADD  IN  CRC  OVERHEAD 

20$: 

ADD 

aMAX0V,R5 

SKIP  DLC  OVERHEAD  IN  RDB 

SWSTK$ 

30$                 ;*  ENTER  KERNEL  MODE 

MOV 

R4,R0               ;*  COPY  BIAS 

CALL 

$MAPX 

♦  MAP  TO  THE  BUFFER 

BIC 

#160000, R5 

•  REMOVE  APR  BITS  FROM  ADDRhSS 

BIS 

R2,R5 

*  THEN  INCLUDE  $MAPX  APR 

MOV 

RD8LH,R4 

»  GET  ADDRESS  OF  $RDBLH 

MOV 

(R4)+,(R5)+ 

*  INITIALIZE  BIAS 

MOV 

(R4),(R5) 

*  AND  VIRTUAL  ADDRESS 

RETURN 

;•  RETURN  FROM  SYSTEM  STATE 

30$: 

MOV 

R4,aRDBLH 

SET  UP  RDB  BIAS 

SAVRG 

<R4> 

SAVE  BIAS 

MOV 

RD8LH,R4 

GET  $RD8LH  ADDRESS 

ADD 

#2,R4 

POINT  TO  SECOND  WORD  OF  LISTHEAD 

MOV 

R5,(R4) 

STORE  LISTHEAD  VIRTUAL  ADDRESS 

RESRG 

<R4> 

RTORE  BIAS 

CALL 

GTBUF 

GET  MAPPING  fOR  NEXT  BUFFER 

DEC 

R1 

LOOP  TILL 

BNE 

20$ 

DONE. 

RETURN 

NTLCEX  -  LOAD  COMM  EXEC 
SDBS  -  ALLOCATE  5DBS 
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SYMBOL  CROSS  REFERENCE 
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PAGE  6 

CREF   04.00 


NTL( 
tNL( 


SYMBOL 

VALUE 

REFERENCES 

SERRQY 

:- 

****** 

6X 

8-482 

SERRXQ 

r 

****** 

GX 

H-865 

SERRZA 

- 

****** 

GX 

7-376 

11-666 

$ERR^^ 

= 

X***** 

GX 

6-256 

$ERR45 

= 

****** 

GX 

6-257 

$ERRA6 

- 

****** 

GX 

6-258 

$ERR^7 

- 

****** 

GX 

6-259 

$ERR48 

= 

****** 

GX 

8-481 

$ERR51 

= 

****** 

GX 

6-264 

$ERR53 

- 

****** 

GX 

6-266 

$ERR5A 

= 

****** 

GX 

6-267 

SERR55 

= 

****** 

GX 

6-268 

$ERR56 

- 

****** 

GX 

6-269 

SERR57 

= 

****** 

GX 

6-270 

$ERR58 

= 

****** 

GX 

6-271 

$ERR59 

- 

****** 

GX 

6-272 

$ERR60 

r 

****** 

GX 

6-273 

$ERR61 

= 

****** 

GX 

6-274 

tERR62 

= 

****** 

GX 

6-275 

$ERR63 

=: 

****** 

GX 

6-.7i, 

$ERR6A 

= 

****** 

GX 

6-2,'/ 

$ERR65 

~ 

****** 

GX 

6-278 

$ERR66 

- 

****** 

GX 

6-279 

$ERR67 

- 

****** 

GX 

6-280 

$ERR68 

~ 

****** 

GX 

6-281 

SFLAGS 

- 

****** 

GX 

11-658 

SFRKHD 

z. 

****** 

GX 

6-181 

tHEADR 

~ 

****** 

GX 

6-186 

18-1014 

SMAPX 

- 

****** 

GX 

7-316 

10-552 

13-753 

SPRCLN 

C0OCO4 

RG 

#6-115 

SPREXT 

OOOOOA 

RG 

#6-116 

SPRING 

000004 

RG 

#6-117 

SPRIO 

- 

****** 

GX 

7-311 

SPRLEN 

OOOOOA 

RG 

#6-118 

SPRLLN 

00000^ 

RG 

#6-119 

SRSXNM 

~ 

****** 

GX 

♦8-398 

♦8-448 

8-449 

SSLTA 

~ 

****** 

GX 

18-1022 

SSTKDP 

- 

****** 

GX 

6-191 

SSYMBL 

~ 

****** 

GX 

8-411 

8-418 

8-425 

SXPAR 

- 

****** 

GX 

7-322 

SSHTIM 

- 

****** 

GX 

18-1048 

$$LTIM 

r 

****** 

GX 

18-1049 

.ALLOr 

- 

****** 

GX 

13-745 

.AMAXC 

- 

****** 

GX 

n-618 

.AMAXH 

= 

****** 

GX 

11-619 

.BAiEB 

- 

140000 

#5-68 

13-794 

17-983 

.CCBNM 

- 

****** 

GX 

13-718 

13-723 

.CXALL 

z: 

****** 

GX 

•10-577 

.CXCSR 

- 

****** 

GX 

10-553 

.CXLEN 

- 

****** 

GX 

♦10-578 

-HOME 

- 

****** 

GX 

7-315 

10-548 

11-622 

.LLCTB 

000276 

R 

6-240 

#6-243 

11-605 

13-765 


13-782 


15-892 


16-939 


NTLCEX 
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NTLi 
ADD' 


32A  000450 

103511 

325  000A52 

326  000A56 

103372 

327  000^.60 

328 

329 

330 

331  000466 

032767 

332  000474 

001477 

333  000476 

005067 

334  000502 

335  000506 

103523 

336  000510 

337  000514 

1037^2 

338  0005'' 6 

026767 

339  000524 

001366 

340  000526 

000462 

341 

342 

343 

344  000530 

345  000534 

103751 

346  0&0536 

347  000542 

103772 

348  000544 

000453 

349 

350 

351 

352 

353  000546 

354  000552 

103473 

355  000554 

356  000560 

103772 

357  000562 

005067 

358  000566 

359  000572 

103434 

360  000574 

361  000600 

103011' 

362  000602 

032767 

363  00061 G 

001766 

364  000612 

365  000616 

103763 

366 

367 

368 

369  000620 

370  000624 

103423 

371  000626 

372  000632 

103772 

373  000634 

000417 

374 

375 

376 

V7   000636 

032767 

378  000644 

001413 

379  000646 

380  000652 

103436 

000001     000136' 
000142' 


OOOOOOG  000142' 


OOOOOOG 


000002  000136' 


000002  000136' 


BCC 

40$ 

IF  CC,  YES 

CALL 

READ 

READ  NEXT  RECORD 

BCC 

80$ 

IF  CC,  NOT  EOF 

90$: 

FMSG$R 

1Y 

DDM$DF  MISSING  (EOF) 

•  ALL  MISSING  LINE  INFO 

HAS 

BEEN 

FOUND 

i00$: 

BIT 

#FG.X2P, 

CFGFLG  . 

DO  WE  NEED  X2P$DF? 

BEQ 

190$ 

BR  IF  NO 

CLR 

UCNT 

INITIALIZE  UNIT  COUNT 

110$: 

CALL 

READ 

READ  NEXT  RECORD 

BCS 

171$ 

3R  IF  END  OF  FILE 

CALL 

$QX2P 

IS  IT  X2P$DF? 

BCS 

110$ 

BR  IF  NO  -  KEEP  LOOKING 

CMP 

$$MUX,U(NT 

HAVE  ALL  X2P$DF'S  SEEN  SEEN? 

BNE 

110$ 

IF  NE,  NO 

BR 

190$ 

ELSE  FINISHED 

•  LOOK 

FOR  DLC$DF  OR  DDK$DF 

(PROCESS  INCREMENT  NEEDED) 

120$: 

CALL 

READ 

READ  NEXT  RECORD 

BCS 

90$ 

IF  CS,  EOF 

CALL 

$QDDM 

IS  IT  DLC$DF  OR  DDM$DF  ? 

BCS 

120$ 

IF  CS,  NO  -  KEEP  LOOKING 

BR 

190$ 

ELSE,  LEAVE 

;  LOOK 

FOR  LLC$DF 

i30$: 

CALL 

READ 

READ  NEXT  RECORD 

BCS 

151$ 

IF  CS,  EOF 

CALL 

QLLC 

' 

IS  IT  LLC$DF? 

BCS 

130$ 

IF  CS,  NO 

CLR 

$FEATR 

CLEAR  THE  FEATURES  WORD 

140$: 

CALL 

READ 

READ  NEXT  RECORD 

BCS 

180$ 

IF  CS,  END  OF  FILE 

CALL 

$QfEA 

IS  IT  FEA$DF? 

BCC 

160$ 

BR  IF  YES 

BIT 

#FG.X3P 

CFGFLG 

IS  X3P$DF  NEEDED? 

BEQ 

140$ 

BR  IF  NO 

CALL 

$QX3P 

IS  IT  X3P$DF? 

BCS 

140$ 

BR  IF  NO 

;  X3P$DF  FOUND 

150$: 

CALL 

READ 

READ  NEXT  RECORD 

BCS 

190$ 

BR  IF  END  OF  FRE 

CALL 

$QFEA 

IS  IT  FEA$DF 

BCS 

150$ 

■  BR  IF  NO 

BR 

190$ 

•  ELSE  FINISHED 

;  FEA$DF  FOUND 

160$: 

BIT 

*FG.X3P 

,CFGFLG 

;  IS  X3P$DF  NEEDED 

BEQ 

190$ 

;  BR  IF  NO 

170$: 

CALL 

READ 

;  READ  NEXT  RECORD 

BCS 

161$ 

;  BR  IF  EOF  -  X3P$DF  NOT  FOUND 

NTLCFG 
$NLCF& 
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ADDSDF  ACTION  ROUTINES 

738 
739 
7^0 
741 
742 

743  001534  005767 

744  001540  001007 

745  001542  105767 

746  001546  001004 

747  001550  116767 

748  001556 

749  001560 


OOOOOOG 
000001G 
OOOOOOG  OOOOOOG 


.SBTTL  ADDSDF  ACTION  ROUTINES 

LOCAL  PHYSICAL  STATION  ADDRESS  (ADDSDFJ 

MUSTS  BE  BYTE  VALUE 


Al.NUM:  TST 
BNE 
TSTB 
BNE 


101$: 


M0V8 

RETURN 

EMSGSR 


. PNUnH 

1j1$ 

.PNUM8+1 

101$ 

.PNUMB,$$LSAD 

2A 


STORE  LOCAL  PHYSICAL  STATION  ADDRESS 
ILLEGAL  LOCAL  PHYSICAL  STATION  ADDRESS 
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MTLCFG  CREATED   BY      MACRO     ON  29-JUN-85   AT   00:2^ 

SYMBOL    CROSS   REFERENCE 


E     8 

PAGE  5 

CREf       0^.00 


NTLi 
OPEI 


SYMBOL 

VALUE 

REFERENCES 

SQuDM 

- 

****** 

6X 

9-284 

9-323 

9-346 

SQDTE 

- 

****** 

GX 

9-262 

SQFEA 

= 

****** 

GX 

9-360 

9-371 

$QPVC 

- 

****** 

GX 

9-264 

tQSLT 

r 

****** 

GX 

9-248 

9-282 

9-506 

SQSTA 

:: 

****** 

GX 

9-253 

9-313 

SQSVC 

= 

****** 

GX 

9-258 

SQUNT 

= 

****** 

GX 

9-298 

SQX2P 

- 

****** 

GX 

9-336 

$QX3P 

r 

****** 

GX 

9-260 

9-364 

9-381 

$RAD50 

= 

000016 

#16-596 

SREP.N 

- 

****** 

GX 

8-170 

8-171 

SRONLY 

~ 

****** 

16-596 

16:596 

16-596 

SSLTA 

- 

****** 

GX 

9-242 

9-276 

SSTRNG 

X 

000004 

*16-596 

SSUBXP 

- 

000010 

#16-596 

STIOUT 

- 

****** 

GX 

13-537 

14-561 

$$DEV 

=: 

****** 

GX 

*24-789 

*24-795 

S$EXT 

r 

****** 

GX 

*20-730 

$$INC 

= 

****** 

GX 

*20-721 

$$LSAD 

= 

****** 

GX 

*21-747 

$$MTP 

= 

****** 

GX 

•22-760 

$$MUX 

= 

****** 

GX 

9-300 

9-338 

S$$FLG 

~ 

17777? 

#16-596 

$$$Kf^Y 

- 

Mini 

#16-596 

.PCHAR 

- 

****** 

GX 

24-789 

24-795 

.PNUMB 

- 

*w**** 

GX 

20-721 

20-730 

20-731 

21-745 

24-803 

24-811 

27-882 

27-896 

. PNUMH 

- 

****** 

GX 

21-743 

ii-m 

23-774 

24-801 

.PSTCN 

= 

****** 

GX 

20-700 

.PSTPT 

~ 

****** 

GX 

20-699 

.TPARS 

= 

****** 

GX 

12-492 

21-747 
27-880 


22-756 
27-894 


22-758 


22-760 


23-776 


NTLCFG 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:24 
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OPEN  -  OPEN  THE  CONFIG  FILE 
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NTLC 
TPAR 


418 
419 
420 
421 
422 
425 
424 
425 
426 
427 
428 
429 
430 
43'' 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 


000510  0127C0  OOOOOOG 

000514  012701  000000' 

000520  012702  000006' 
000524 


.S8TTL  OPEN  -  OPEN  THE  CONFIG  FILE 

h 

OPEN  -  OPEN  THE  CONFIG  FILE 

INPUTS: 

NONE 


000530 
000534  105777 
000540  100401 
000542 


000544 


OOOOOOG 


OUTPUTS: 

C-8IT 

^SUCCESS/FAILURE 

EN:   MOV 

#$CFUIC,RO 

SETUP  ASCIZ  FILE  SPEC 

MOV 

#CFGNAM,R1 

FOR  [130,10]CETAB.MAC 

MOV 

*CfGEXT,R2 

•  •  • 

CALL 

SAZFS 

CALL 

SCLOUE 

OPEN  THE  CONFIG  FILE 

TSTB 

SSCLIOS 

SUCCESS?  (CLEARS  C-BIT) 

BMI 

101$ 

IF  MI,  NO 

RETURN 

ERROR  CONDITION 
101$:   EMSG$R  IP 


OPEN  FAILURE 
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BFih  -  BFin  Mpyi  RFrnpn  from  fftar 
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NTLC 

TDAC 


NTLCF2 

TPARS  STATE  TABLES 

891  001252 

892  001252 
895 

89A  001252 
895  001252 
896 


CAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:2^  Page  20-1 


SERSDF 


NTLC 
TPAR 


STATES 
TRANS 

STATES 
TRANS 


ZSS 
SLA|V|DA,,SERSLN 

SIAMDA.SEXIT 
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TDADC   CTATP   TABlP^  _  QPDthF 
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NTL( 


NTLCF2  -  SCAN  CONFIGURATION  FIL  MACRO  VC 
TPARS  STATE  TABLES  - 

1299 

1300 

1301 

1302 

1303  001252 

130^  001252 


I  11 

00:2^ 


■.03b  Saturday  29-Jun-85  00:24  Page  31 

.SBTTL   TPARS  STATE  TABLES  - 
:  LOGGING  STATE  (LOG$ST) 


NTLC 
MACR 
MACR 


STATES 
TRANS 


LOGST 
SNUMSR,$EXIT,L.LGST 
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"Fl 


NTLCF2  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:27 

MACRO   CROSS   REFERENCE 


E  12 

PAGE  9 

CREF        04.00 


MACRO  NAME 


REFERENCES 

#18-746 

#18-764 

#19-791 

#19-813 

#20-840 

#20-860 

#20-886 

#21-918 

#22-941 

#22-956 

#23-976 

#23-994 

#23-1014 

#24-1035 

#25-1059 

#25-1074 

#25-1090 

#26-1115 

#27-1138 

#27-1166 

#28-'' 200 

#28-; 230 

#30-1273 

#31-1304 


#18-747 

#18-767 

#19-794 

#19-816 

#20-841 

#20-861 

#20-889 

#21-919 

#22-943 

#22-953 

#23-977 

#23-996 

#23-1015 

#24-1036 

#25-1061 

#25-1076 

#25-1092 

#26-1117 

#27-1141 

#27-1167 

#28-1203 

#28-1233 

#30-1276 


#18-748 

#19-775 

#19-795 

#19-819 

#20-844 

#20-864 

#20-892 

#22-926 

#22-94' 

#22-959 

#23-978 

#23-998 

#24-1023 

#24-1038 

#25-1063 

#25-1078 

#25-1093 

#26-1118 

#27-1144 

#27-1170 

#28-1206 

#29-1244 

#30-1279 


#18-751 
#19-778 
#19-798 
#19-820 
#20-845 
#20-865 
#20-895 
22-931 
#22-946 
#22-961 
#23-979 
#23-1000 
#24-1025 
#24-1040 
#25-1064 
#25-1080 
#25-1095 
#26-1120 
#27-1 i45 
#28-1179 
#28-1209 
#29-1247 
#30-1282 


#18-75i 

#19-779 

#19-801 

#19-823 

#20-848 

#20-869 

#21-905 

#22-932 

#22-947 

#23-970 

#23-980 

#23-1002 

#24-1027 

#24-1041 

#25-1066 

#25-1081 

#25-1096 

#26-1121 

#27-1148 

#28-1182 

#28-1212 

#29-1250 

#30-1285 


#18-755 

#19-780 

#19-802 

#19-824 

#20-849 

#20-870 

#21-907 

#22-934 

#22-949 

#23-971 

#23-981 

#23-1004 

#24-1028 

#24-1043 

#25-1067 

#25-1083 

#25-1098 

#26-1122 

#27-1151 

#28-1185 

#28-1215 

#29-1253 

#30-1286 


#18-758 

#19-783 

#19-805 

#19-827 

#20-852 

#20-874 

#21-908 

#22-935 

#22-950 

#23-972 

#23-982 

#23-1006 

#24-1029 

#25-1051 

#25-1068 

#25-1084 

#25-1099 

#26-1123 

#27-1154 

#28-1188 

#28-1218 

#29-1256 

#30-1287 


#18-759 

#19-786 

#19-806 

#19-828 

#20-853 

#20-877 

#21-909 

#22-937 

#22-952 

#23-973 

#23-988 

#23-1008 

#24-1030 

#25-1053 

#25-1069 

#25-1086 

#25-1101 

#26-1124 

#27-1157 

#28-1191 

#28-1221 

#29-1259 

#30-1293 


#18-760 

#19-787 

#19-809 

#19-831 

#20-856 

#20-882 

#21-911 

#22-938 

#22-953 

#23-974 

#23-990 

#23-1010 

#24-1031 

#25-1055 

#25-1071 

#25-1087 

#26-1111 

#26-1125 

#27-1160 

#28-1194 

#28-1224 

#29-1262 

#30-1296 


#18-761 

#19-790 

#19-810 

#19-832 

#20-857 

#20-883 

#21-912 

#22-940 

#22-955 

#23-975 

#23-992 

#23-1012 

#24-1033 

#25-1057 

#25-1072 

#25-1089 

#26-1113 

#26-1131 

#27-1163 

#28-1197 

#28-1227 

#30-1270 

#30-1297 


,f ILE*»1D««NTLCFP 


F  12 
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CERR.CERR  -  PRINT  ERROR  MESSAGE 


I  13 

00:29 


369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 

384  00036A 

385  000364 

386  000370 

387  000372 

388  000374 

389  000374 

390  000376 

391  000402 

392  000404 

393  000404 

394  000406 

395  000410 

396  J00414 

397  000416 

398  000420 

399  000422 

400  000424 

401  000426 

402  000430 

403  000432 

404  000434 

405  000436 

406  000440 

407  000442 

408  000446 

409  000450 

410  000452 

411  000456 

412  000460 

413  000462 

414  000464 

415  000466 

416  000470 

417  OOC  -74 

418  000476 
419 


.SBTTL  CERR.CFERR  -  PRINT  ERROR  MESSAGE 


CERR  -  PRINT  ERROR  MESSAGE 

CFERR  -  PRINT  FILE  ASSOCIATED  ERROR  MESSAGE 

CUARN  -  PRINT  WARNING  MESSAGE 

INPUTS: 

RO-MESSAGE  BLOCK   ADDRESS 

OUTPUTS: 

C-BIT^SET  IF  ERROR  MESSAGE 

RETURN  TO  SNTICF'S  CALLER  OR  BACK  TO  CALLER 


005046 
000405 

010046 

012600 

010746 

010005 

012704  000022' 

012503 

105713 

001403 

112324 

001376 

005304 

012503 

112524 

001376 

005304 

012700  000012' 

010401 

160001 

005703 
001401 

005726 

001403 

016706  000340' 

000261 


CWARN: 


CERR: 


CFERR:; 
5$: 


10$: 


20$: 
30$: 


40$: 


RTSPC: 


.ENABL  LS8 


CALL 

$SAVAL 

CLR 

-(SP) 

8R 

5$ 

MOV 

RO,-(SP) 

CALL 

$CLDEQ 

MOV 

{SP)+,RO 

MOV 

PC,-(SP) 

MOV 

R0,R5 

fOV 
COV 

#ERR8UF,R4 

(R5)+,r! 

CALL 

a(R5)  + 

TSTB 

(R3) 

BEQ 

20$ 

MOVB 

(R3)+,(R4)t 

BNE 

10$ 

DEC 

R4 

MOV 

(R5)+,R3 

MOVB 

{R5)+,(R4)+ 

BNE 

30$ 

DEC 

R4 

MOV 

#ERRMSG,RO 

MOV 

R4,R1 

SUB 

RO.RI 

CALL 

$TIOUT 

TST 

R3 

BEQ 

40$ 

CALL 

(R3) 

TST 

(SP)  + 

BEQ 

RTSPC 

MOV 

SPSAV.SP 

SEC 

RETURN 

.DSABL 


LSB 


SAVE  ALL  REGISTERS 
WARNING  MESSAGE 
JOIN  COMMON  CODE 

SAVE  RO 

CLOSE  THE  CONFIG  FILE 

RESTORE  RO 

ERROR  MESSAGE 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF    EQ,    YES 

ELSc    COPY   REST  OF    FORMAT   STRING 

SKIP  the'zero  byte 

GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  the'zero  byte 

GET  LRROR  MESSAGE  ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT  IT 

SHOULD  SECOND  LINE  BE  PRINTED? 

IF  EQ,  NO 

PRINT  SECOND  ERROR  MESSAGE  LINE 

ERROR  OR  WARNING  MESSAGE  ? 

IF  EQ,  WARNING 

RESTOPF  SP  FROM  ENTRY 

RETURN  C-BIT  SET 


F  13 

NTLCFP  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:29  Page  13 


L 


NTLCFP  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:29 

SYMBOL  CROSS  REFERENCE 


E  U 

PAGE   '. 

CREF       OA.OO 


NT 


SYMBOL 

VALUE 

REFERENCES 

L.OWNR 

000021 

#5-64 

L.UNT 

000013 

#5-64 

MRKFL 

0003A^  RG 

#7-114 

NEXT 

000352  RG 

#7-119 

18-613 

•18-614 

OPEN 

000230  R 

9-250 

#10-325 

PC<BCD 

000700  RG 

#15-513 

PDVNM 

=   .».«.»     Gx 

17-577 

PDVTA 

=   ♦*««•♦     GX 

17-576 

17-588 

PORTNO 

00035A  RG 

#7-120 

PVSTA 

000^02  RG 

#7-145 

PV.OFF 

=  000001      G 

#7-146 

PV.ON 

=  000002     G 

#7-147 

RBRA 

=  000076 

#6-72 

READ 

000272  R 

9-251 

9-255 

9-262 

9-278 

9-290 

9-294 

#11-351 

RTSPC 

000A76  RG 

8-200 

8-201 

8-202 

8-203 

8-204 

8-205 

8-206 

8-209 

8-210 

3-211 

8-214 

8-215 

12-415 

#12-418 

R$$E1S 

r  ir***ir* 

15-524 

R$$11D 

r  t***** 

15-524 

SF.ACT 

=  000200 

#5-64 

SF.ENA 

=  000100 

#5-64 

SF.LPB 

=  00000^ 

#5-64 

SF.MFL 

=  0000^0 

#5-64 

SF.PAC 

=  000020 

#5-64 

SF.REA 

=  000010 

#5-64 

SF.SER 

=  000001 

#5-64 

SF.SVC 

=  000002 

#5-64 

SF.UNL 

=  OOOOAO 

#5-64 

SPACE 

=  OOOOAO 

#6-73 

SPSAV 

000340  R 

#7-112 

♦9-249 

12-416 

STRNXT 

001064  RG 

#18-607 

SUBAMN 

=  000000     6 

#6-78 

SUBAMX 

=  023A17     G 

#6-79 

SYNERR 

000342  RG 

#7-113 

SSSBAS 

=   ****** 

8-200 

8-200 

8-201 

8-201 

8-202 

8-202 

8-203 

8-204 

8-205 

8-205 

8-206 

8-206 

8-207 

8-207 

8-209 

8-209 

8-210 

8-210 

8-211 

8-211 

8-212 

8-213 

8-214 

8-214 

8-215 

8-215 

S.COST 

OuOOOl 

#5-64 

S.FLG 

000000 

#5-64 

S.LEN 

000004 

#5-64 

S.NMST 

000002 

#5-64 

S.OWNR 

000003 

#5-64 

WNDSMX 

=-  000177 

#6-80 

14-490 

WNDSZD 

000364  RG 

#7-129 

WNDSZM 

000366  RG 

#7-130 

Z.NAM 

-   ».**»*     GX 

17-581 

SAZFS 

=   ******     GX 

10-328 

SCATS 

=  ******  GX 

14-447 

SCDTB 

=  *♦♦*.*  GX 

18-612 

SCEACX 

-   ******  GX 

16-552 

tCFUIC 

=  ******  GX 

10-325 

tCLBiJF 

r  ******   GX 

♦11-351 

8-207 


8-208 


203 

8-204 

208 

8-208 

212 

8-213 

NTLCFP 
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?  15 

00:30 


NT 
DV 


1 
2 
3 
4 
5 
6 

7 

8 
9 

10 

n 
:2 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
^9 
50 
51 
52 


.TITLE  NTLDEV  -  BUILD  DEVICE  DATA  STRUCTURES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  NS:  AND  NX:  DEVICE  DATA  STRUCTURE  BUILDING  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-HM-Plus   V3.0 
DECnet-Micro/RSX  VI. 0 
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DVXFR  -  TRANSFER  DEVICE  TABLES  INTO  CORE 


Wi 
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515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 

539  0007SA 

540  000760 

541  000^'62 

542  000766 

543  000774 


544 
545 


000776 
001002 


546  001004 

547  001010 

548  001012 

549  001014 

550  001016 

551  001022 

552  001024 

553  001030 

554  001034 

555  001036 

556  001040 

557  001044 

558  001046 

559  001052 

560  001054 

561  001060 

562  001064 

563  001066 
001070 
001074 

566  001076 

567  C01102 

568  00M06 
569 

570 
571 


564 
565 


103504 
016700 
016760 
005001 
156001 
005003 
156003 
160103 
005203 
003474 
010367 
010002 
062702 

103467 
011202 

103466 
010260 
010201 
062702 

103466 
011202 

103465 
010061 
010161 
010261 


.S8TTL  DVXt-R  -  TRANSFER  DEVICE  TABLES  INTO  CORE 


OVXFR  -  TRANSFER  DEVICE  TABLES  INTO  CORE 

THIS  ROUTINE  IS  CALLED  TO  TRANSFER  THE  DEVICE  TABLES  INTO  CORE,  SETUP  THE 
INTRA-BLOCK  POINTERS,  AND  LINK  THE  DCB  INTO  THE  DEVICE  LIST  (SDEVHD).  THE 
LOCATIONS  CHANGED  IN  THE  DEVICE  TABLE  IMAGE  ARE; 

POINTER  TO  UCB 

DEVICE  NAME 

POINTER  TO  DCB 

REDIRECT  POINTER 

POINTER  TO  SCB 

I/O  PACKET  LISTHEAD  (2  WORDS) 


D.UCB 

DCB 

D.NAM 

DCB 

U.DCB 

UCB 

U.RED 

UCB 

U.SCB 

UCB 

S.LHD 

SCB 

INPUTS: 


RO=CORE  POOL  BUFFER  ADDRESS 

$LLEN=DEVICE  TABLES  LENGTH 

DC8=DC8  ADDRESS  (REAL  CORE  ADDRESS) 


LjTPUTS: 

C-8IT=SUCCESS/FAILURE 


DVXFR: 


000150' 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOIG 


000172' 
OOOOOOG 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 


10$: 


CALL 

BCS 

MOV 

MOV 

CLR 

BISB 

CLR 

BISB 

SUB 

INC 

BLE 

MOV 

MOV 

ADD 

CALL 

BCS 

MOV 

CALL 

BCS 

MOV 

MOV 

ADD 

CALL 

BCS 

MOV 

CALL 

BCS 

MOV 

MOV 

MOV 

.IF  DF 

ADD 

MOV 


$READ 

101$ 

DCB,R0 

$$DEV,D.NAM(R0) 

Rl 

D.UNIT(R0),R1 

R3 

D.UNIT+1 (R0),R3 

R1,R3 

R3 

111$ 

R3, UNITS 

RO,  .2 

#D.UCB,R2 

VAD 

121$ 

CR2),R2 

RVAD 

131$ 

R2,D.UCB(R0) 

R2,R1 

#U.SCB,R2 

VAD 

141$ 

(R2),R2 

RVAD 

151$ 

R0,U.DCB(R1) 

R1,U.RED(R1) 

R2,U.SCB(R1) 

R$$MPL 

SKS5,R2 

$BIAS,(R2) 


TRANSFER  DEVICE  TABLES  INTO  CORE 
IF  CS,  FAILURE 
GET  DCB  ADDRESS 
SETUP  DEVICE  NAME 
GET  FIRST  UNIT  NUMBER 

AND  LASfuNIT  NUMBER 

CALCULATE  NUMBER  OF  UNITS 

IF  not"d6sitive,  illegal 

SAVE  IT  FOR  LATER 

COPY  DCB  ADDRESS 

GET  D.UCB  ADDRESS 

VALIDATE  IT 

IF  CS,  ILLEGAL 

GET  FIRST  UCB  ADDRESS 

RELOCATE  AND  VALIDATE  IT 

IF  CS,  ILLEGAL 

SET  FIRST  UCB  ADDRESS 

PUT  UCB  ADDRESS  IN  Rl 

GET  U.SCB  ADDRESS 

VALIDATE  IT 

IF  CS,  ILLEGAL 

GET  see  ADDRESS 

RELOCATE  AND  VALIDATE  IT 

IF  CS,  ILLEGAL 

SETUP  DCB  ADDRESS 

REDIRECT  POINTER 

SCB  ADDRESS 

POINT  TO  S.KS5  OFFSET 

STORE  THE  BIAS  FOR  THIS  PROCESS  IN  THE  SCB 


NTLDEV  -  BUILD  DEVICE  DATA  STRU  MACRO  v05.03b  Saturday  29-Jun-85 


F  16 

00:51 
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MA^X         MACRO  V05.03b   Sunday  30-Jun-85   00:00 
Table  of   contents 


F  1 


5- 
6- 


61 
97 


SMAPX  -  MAP  TO  EXTENDED  MEMORV 
SMAPXP  -  MAP  TO  EXTENDED  POOL 


NTL 
Symbi 

Oper, 

Elap 
SY:N 


MAPX    MACRO  V05.03b  Sunday  50-Jun-85  00:00  Page  4 


G  1 


NTL 


NTL  -   IDENT  MODULE  MACRO  V05.03b   Saturday  29-Jun-85  00:22     Page  6-2 

Symbol   table 

Operating     system:   RSX-11M/PLUS 
SY:NTL'?V2!n^2?nA]NITL/CR/-SP=Sy:[l,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[139,10]RSXMCM/PA:1,n32,10]NTL 


F     2 


NTLCE 
$SCE> 


NTL 


CREATED  BY     MACRO     ON  29-JUN-85  AT   00:22  PAGE   1 


G    2 


-icr     ncccDciLirc 


NTLCI 
CESVI 


F  3 

NTLfEX  -  LOAD  COMM  EXEC  IMAGE   MACRO  V05.03b  Saturday  29-Jun-85  00:22 
SSCEX  -  TRANSFER  COMM  EXEC  INTO  CORE 


342  000162 

010211 

MOV 

R2,(R1) 

3A3 

344 

.ENDC 

345 

346  000164 

012700 

OOOOOOG 

5$: 

MOV 

#$CXUIC,RO 

347  000170 

C12701 

000012' 

MOV 

*CETNAM,R1 

348  000174 

005002 

CLR 

R2 

149  000176 

CALL 

SAZfS 

350  000202 

CALL 

SCTBIO 

351  000206 

352 

353  000210 

103443 

BCS 

TSKERR 

CALL 

NL8LK 

354  000214 

CALL 

DECBLK 

355  000220 

103432 

BCS 

10$ 

356  000222 

CALL 

CEPTR 

357  000226 

005000 

CLR 

RO 

358  000230 

CALL 

ELTIME 

359  000234 

016701 

OOOOOOG 

MOV 

ZTIME.RI 

360  000240 

010021 

MOV 

R0,(R1)+ 

361  000242 

010011 

MOV 

R0,(R1) 

362 

363  000244 

103420 

BCS 

10$ 

364  000246 

052777 

OOOOOOG  OOOOOOG 

BIS 

#FE.CEX,aFMASK 

365  000254 

016777 

OOOOOOG  OOOOOOG 

MOV 

CEPWR,aNETPF 

366  000262 

012701 

000006 

MOV 

#6,R1 

367  000266 

017700 

OOOOOOG 

MOV 

aDECPT.RO 

368  000272 

062700 

000006 

ADD 

*D$LNAM,RO 

369  000276 

112720 

000040 

7$: 

MOVB 

#'  ,(R0)+ 

370  000302 

SOB 

Rl,7$ 

371  000306 

10$: 

RETURN 

372 

373 

• 

374 
375 

376  000310 

;  ERROR 

CONDITIONS 

101$: 

EMSGSR 

ZA 

377  000316 

016000 

000342' 

TSKERR: 

MOV 

ETA82-2(R0),R0 

378  000322 

CALLR 

d)(RO)  + 

Page  7-1 

;  SET  SEGMENT  LENGTH 


SETUP  ASCIZ  FILE  SPEC 
FOR  [XXX,5XJCETAB.STB 


TRANSFER  CETA8  INTO  CORE 
IF  CS,  ERROR 

SETUP  NETLDR  DATA  BLOCK 
SETUP  DECNET  HOME  BLOCK  POINTER 
IF  FAILURE  -  BRANCH 
RELOCATE  CETAB  ADDRESSES 

CALCULATE  TIME  SINCE  MIDNIGHT 

GET  $ZTIME  ADDRESS 

INITIALIZE  FOR  SYSTEM  COUNTERS 

INITIALIZE  $ZTIME+2  FOR  NODE  COUNTERS 

IF  CS,  FAILURE 

INDICATE  COMM  EXEC  IS  LOADED 

SET  UP  ADDRESS  OF  POWERFAIL  RECOVERY  ROUTINE 

GET  LENGTH  OF  NODE  NAME 

POINT  TO  NODE  NAME 

INJT  TO  SPACES  IN  CASE  PSI  ONLY  SYSTEM 


INCONSISTENT  COMM  EXEC  IMAGE 

GET  ERROR  MESSAGE  CONTROL  BLOCK  ADDRESS 

PRINT  ERROR  MESSAGE 


379 


NTLCE 
SDBS 

9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 

c 

9 
9 

9 
9 


NTLCEX  -  LOAD  COMM  EXEC  IMAGE   MACRO  V05.03b  Saturday  29-Jun-85 
CESYM  -  LOOK  FOR  SPECIAL  SYMBOLS 


00:22  Page  8 


NTLCf 
GTBUf 


NTLCEX   -   LOAD   COMM  EXEC    IMAGE 
SDBS   -   ALLOCATE    SDB3 

913 
9H 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 

929  C02U0 

930  0021A0  017701  OOOOOOG 

931  0021AA  001440 

932  002146  017703  OOOOOOG 

933  002152  0627C3  OOOOOOG 

934  002156  067705  OOOOOOG 
935 

936  G02162 
937 

938  002166  010400 

939  002170 

940  002174  042705  160000 

941  002200  050205 
94?  002202  016704  OOOOOOG 

943  00^206  012425 

944  002210  011415 
945 

946  002212 
947 

948  002214 

949  002220 
<350  002222  016704  OOOOOOG 

951  002226  062704  000002 

952  002232  010514 

953  002234 
954 

955  002236 

956  002242  005301 

957  002244  001344 

958  0022i6 


F  4 

MACRO  V05.03b  Saturday  29-Jun-85  00:22  Page  16 


.SBTTL  SD8S  -  ALLOCATE  SD3S 


SDBS  -  CARVE  SDB'S  OUT  OF  NETWORK  POOL 

INPUTS: 

R4      -  BIAS  OF  BASE  OF  FREE  SPACE  IN  POOL 
R5      -  VIRTUAl  A'^PRESS  OF  BASE  OF  FREE  SPACE 


OUTPUTS: 
R4 
R5 


SDBS: 

MOV 
BEQ 
MOV 
ADD 

10$:    ADD 


010477  OOOOOOG 


40$: 


50$: 


BIAS  OF  BASE  OF  FREE  SPACE 
VIRTUAL  ADDRES:^  OF  FREE  SPACE 


aSDBNM.RI 

50$ 

aSD8SZ,R3 

#CRC$0V,R3 

aMAX0V,R5 


SWSTKS  40$ 


MOV 
CAL' 
BIC 
BIS 
MOV 
MOV 
MOV 

RETURN 

MOV 

SAVRG 

MOV 

ADD 

MOV 

RESRG 

CALL 
DEC 
BNE 
RETURN 


R4,R0 

$MAPX 

#160000, R5 

R2,fi5 

SD6LH,R4 

(R4)  +  ,(R5)*- 

(R4),(R5) 


R4,aSDBLH 

<R4> 

SD8LH,R4 

#2,R4 

R5,(R4) 

<R4> 


GT8UF 

Rl 

10$ 


NUMBER  OF  SDBS  TO  ALLOCATE 
IF  ZERO,  NO  WORK  TO  DO 
NUMBER  OF  BYTES/SDB 
ADD  CRC  BYTES 
SKIP  DLC  OVERHEAD 

;*  ENTER  KERNEL  MODE 

I  COPY  BIAS 

I  MAP  TO  THE  BUFFER 

*  REMOVE  APR  BITS  FROM  ADDRESS 
t  THEN  INCLUDE  $MAPX  APR 

*  GET  $SDBLH  ADDRESS 

*  INITIALIZE  BIAS 

*  AND  VIRTUAL  ADDRESS 

*  RETURN  FROM  SYSTEM  STATE 

SET  UP  SDB  BIAS 

SAVE  BIAS 

GET  $SDBLH  ADDRESS 

POINT  TO  SECOND  WORD  OF  LISTHEAD 

SET  UP  I  !STHEAD  VIRTUAL  ADDRESS 

RESTORt  BIAS 

GET  DOUBLE-WORD  ADDRESS  OF  NEXT  BUFFER 
LOOP  TILL 
DONE. 


NTLCf 

SYMB( 

SYMBt 

.MAX( 

.MAXt 

.MXP( 

.NA 

.NBE/ 

.NBR/ 

.NN 

.NOM/ 

.ntp: 

.PCB 
.PDV 
.PUMI 
.RDBI 
.ROU 
.ROU" 
.RPR 
.SDBl 
.SLTI 
.UMRI 


G  4 

NTLCEX  -  LOAD  COMM  EXEC  IMAuE   MACRO  V05.03b  Saturdsy  29-Jun-85  00:22 
GTBUF  -  GET  NEXT  BUFFER  ADDRESS 
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NTLCi 


MTLCEX     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:23 
SYMBOL  CROSS  REFERENCE 


11-615 


f  5 

PAGE  7 

CREF   OA.OO 


NTL( 
$NL( 


SYMBOL 

VALUE 

REFERENCES 

.MAXC 

- 

****** 

GX 

n-613 

.MAXH 

- 

****** 

GX 

11 -6U 

.MXPRO 

~ 

****** 

GX 

13-730 

.NA 

~ 

****** 

GX 

11-616 

.NBEA 

~ 

****** 

GX 

11-617 

.NBRA 

- 

****** 

GX 

18-1050 

.m 

- 

****** 

GX 

n-611 

.NOMAP 

- 

****** 

GX 

13-761 

.NTPSZ 

= 

****** 

GX 

13-789 

.PCB 

- 

****** 

GX 

13-733 

.PDVTB 

000252 

R 

#6-237 

.PUMP 

= 

****** 

GX 

13-778 

.RDBNM 

= 

****** 

GX 

13-726 

.ROUTB 

= 

****** 

GX 

11-620 

.ROUTM 

- 

****** 

GX 

11-612 

.RPRI 

- 

****** 

GX 

■8-1051 

.SDBNM 

- 

****** 

GX 

•  3-729 

.SLTMB 

00026A 

R 

6-237 

.UMRFL 

- 

****** 

GX 

13-759 

8-A24 
13-727 


#6-2^0 


11-603 
13-728 

11-60'i 


NTLCEX 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:23 
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G  5 


NTL 
OPE 


NTLCFG  - 
SNLCfG  - 

381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
39A 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
40^ 


SCAN  CONFIGURATION  FIL  MACRO  V05. 
PROCESS  CONFIGURATION  FILE 

000654 

00C660  103772 

000662  000404 


Jb  Saturday  29-Jun-85  00:23  Page  9-3 


NTL' 
PLT' 


CALL 

BCS 

BR 


$QX3P 

170$ 

190$ 


IS  IT  X3P$DF? 
BR  IF  NO 
ELSE  FINISHED 


END  OF  FILE  FOUND  (NO  X3P$DF  OR  FEA$DF) 


000664  032767  000002  000136'  180$: 
000672  001026 


BIT 
BNE 


#FG.X3P,CFGFLG 
161$ 


ALL  NEEDED  PARAMETERS  SEEN 


000674 

000700  000241 
000702 


190$: 


CALL 

CLC 

RETURN 


$CLDEQ 


ERROR  CONDITIONS 


000704  101$ 

000712  111$ 

000720  121$ 

000726  131$ 

000734  141$ 

000742  151$ 

000750  161$ 

000756  171$ 

000764  181$ 


EMSG$R  IS 

EMSG$R  1U 

EMSG$R  IV 

EMSG$R  1U 

EMSG$R  IX 

EMSG$R  IZ 

EIV|SG$R  3A 

EMSG$R  38 

EMSG$R  3C 


X3P$DF  NEEDED? 
BR  IF  YES  -  ERROR 


CLOSE  CONFIG  FILE 
INDICATE  SUCCESS 


UNT$DF 
SLT$DF 
CNT$DF 
UNT$DF 
STA$DF 
LLC$DF 
X3P$DF 
X2P$DF 
SVC$DF 


MISSING 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 

MISSING  (EOF) 
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NTLCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.O3b  Saturday  29-Jun-85  00:23 
OPEN  -  OPEN  THE  CONFIGURATION  FILE  
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NTL 
r,FT 


NTLCFG  -  SC 
PlTtDF  ACTI 

751 
752 
753 
754 
755 

756  001 

757  001 

758  001 

759  001 

760  001 
761 

762  001 
763 

76A  001 
765 
766 


F  7 

AN  CONFIGURATION  FIL  MACRO  VO5.03b  Saturday  29-Jun-85  00:23  Page  22 
ON  ROUTINES 

.SBTTL  PLTSDF  ACTION  ROUTINES 


566 
572 
57A 
602 
604 

612 

61A 


005767 
00U10 
022767 
103A04 
016767 


OOOOOOG 

000C77  OOOOOOG 

OOOOOOG  OOOOOOG 


NUMBER  OF  CHANNELS  TO  ALLOCATE  FOR  AN  NI  INTERFACE 


PL.CHN:  TST 
BEQ 
CMP 
BLO 
MOV 


101$: 


RETURN 
EMSGSR 


.PNUMB 

101$ 

#63.,. PNUMB 

101$ 

. PNUMB, $$MTP 


1A 


PARAMETER  MUST  BE  NON-ZERO 

IF  ILLEGAL  -  BRANCH 

CHECK  HIGH  LIMIT 

IF  ILLEGAL  -  BRANCH 

copy  THE  NUMBER  OF  STATIONS 


ILLEGAL  PLTSDF  PARAMETER 


G  7 

NTLCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:23  Page  23 
GFTrSR 


NTLCFG 

CREATED  BV     MACRO     ON   29- 

JUN-85  AT   00: 

MACRO   CROSS 

REfERENCE 

MACRO  NAME 

REFERENCES 

ASLt 

#5-62 

CALL 

9-234 

9-237 

9-245 

9-264 

9-279 

9-282 

9-311 

9-313 

9-315 

9-353 

9-355 

9-358 

10-423 

10-424 

11-446 

26-874 

CALLR 

14-561 

DBGTPS 

#16-596 

#16-605 

#16-606 

#18-657 

#18-662 

#18-665 

DHBDFS 

#5-62 

5-65 

EMSGSR 

#5-62 

9-327 

9-399 

9-407 

10-432 

11-461 

GCLt 

#5-62 

11-446 

ISTATS 

#5-62 

16-596 

MTRANS 

#16-596 

NTLERt 

#5-62 

8-170 

8-171 

8-179 

8-180 

8-181 

8-189 

8-190 

8-191 

REJ$ 

#5-74 

20-711 

RETURN 

9-394 

10-427 

11-451 

22-762 

23-782 

24-790 

SLIDES 

#5-62 

5-64 

SOB 

20-709 

25-841 

STATES 

#5-62 

16-603 

#16-608 

#18-644 

#18-646 

#18-648 

#18-669 

#18-672 

#18-675 

TR      * 

#5-62 

#16-604 

#16-605 

#16-615 

#16-620 

#16-621 

#18-649 

#18-651 

#18-653 

#18-665 

#18-667 

#18-668 

24          PAG! 

F     8 

6 

CREf 

04.00 

9-248 
9-284 
9-317 
9-360 
12-492 

9-250 
9-289 
9-323 
9-364 
13-519 

9-253 
9-292 
9-325 
9-369 
13-524 

9-255 
9-296 
9-334 
9-371 
13-537 

9-258 
9-298 
9-336 
9-379 
13-540 

9-260 
9-304 
9-344 
9-381 
14-558 

9-262 
9-306 
9-346 
9-392 
26-869 

#16-607 
#18-668 

#16-610 
#18-671 

#16-611 
#18-674 

#16-614 

#16-615 

#16-621 

#18-654 

9-400 
11-462 

9-401 
12-501 

9-402 
20-735 

9-403 
21-749 

9-404 
22-764 

9-405 
24-805 

9-406 

8-172 
8-182 
8-192 

8-173 
8-183 

8-174 
8-184 

8-175 
8-185 

8-176 
8-186 

8-177 
8-187 

8-178 
8-188 

12-496 
24-796 

13-543 
24-804 

15-590 
24-812 

20-712 
25-849 

20-722 
26-875 

20-733 
27-890 

21-748 
27-903 

#16-612 
#18-650 
19-683 
#16-606 
#17-629 
#18-654 
#18-670 

#16-619 
#18-652 
#19-685 
#16-607 
#17-631 
#18-656 
#18-671 

17-628 
#18-655 
#19-688 
#16-609 
#18-639 
#18-657 
#18-673 

#17-630 
#18-658 

#16-610 
#18-641 
#18-659 
#18-674 

18-638 
#18-660 

#16-611 
#18-643 
#18-661 
#18-676 

#18-640 
#18-663 

#16-613 
#18-645 
#18-662 
#19-684 

#18-642 
#18-666 

#16-614 
#18-647 
#18-664 
#19-686 

NTLi 
REM 


'•FILE"ID»«NTlCF2 


G    8 


NTL 
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NTLCF2  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:24 
RfAD  -  READ  NEXT  RECORD  FROM  CETAB 
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NTLC 
TPAR 


445 
446 
447 
448 
449 
450 
451 
452 
^53 
454 
455 
456 
457 
458 

459  000552 

460  000572 

461  000576 

462  000604 
465  000606 
464  000610 
465 

466 
467 
468 

469  000612 

470  000616 

471  000620 

472  000622 

473  000626 
47A  000630 
475  000636 


.SSTTL  READ  -  READ  NEXT  RECORD  FROM  CETAB 

I- 

READ  -  READ  NEXT  RECORD  FROM  CONFIG  FILE 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
CFGSZ=RECOfiD  LENGTH 


016700  OOOOOOG 

016067  000002  002444' 

105710 

100401 


READ: 


10$: 


GCL$ 

MOV 

MOV 

TSTB 

BMI 

RETURN 


,#CFGBF,#132. 

$CLIOS,R0 

2(R0),CFGSZ 

(RO) 

101$ 


122710  OOOOOOG 

000261 

001773 

122710  OOOOOOG 

001403 


ERROR  CONDITIONS 


101$: 


111$: 


CMPB 

SEC 

BEQ 

CMPB 

BEQ 

EMSG$R  1Q 

EMSG$R  1R 


*IE.EOF,(R0) 

10$ 

*IE.RBG,(RO) 

111$ 


READ  NEXT  RECORD 
GET  GCL  lOSB  ADDRESS 
SET  RECORD  LENGTH 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 


IS  IT  END  OF  FILE? 

ASSUME  THAT  IT  IS 

IF  EQ,  YES  -  RETURN  WITH  C-81T  SET 

IS  IT  BUFFER  TOO  SMALL? 

IF  EQ,  YES 

READ  FAILURE 

READ  OVERFLOW 


§  9 
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itric    MATDn 


NTL( 

TD  AC 
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NTLCF2  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:24 
TPARS  STATE  TABLES  -  SERIDF 
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898 
899 
900 
901 
902 
903 
90^  001252 

905  001252 

906  001252 

907  001252 

908  001252 

909  001252 

910  001252 

911  001252 

912  001252 
913 

9U 
915 
916 

917  001252 

918  001252 

919  001252 


.S8TTL   TPARS  STATE  TABLES  -  BUFSDF 


BUFFER  DEFINITION  (BUFSDF) 

STATES  BUFDF 
TRANS   3i6UF$DF!!,,B.STR,1,SYNERR 

STATES  BUFDF1 
TRANS   SNUMBR,BUFDF2,B.NUM 
TRANS   <',>,BUFDF1,B.ZER0 
TRANS   lEND.SEXIT, B.ZEND 

STATES  BUFDF2 
TRANS   <',>,BUFDF1 
TRANS   !END,SEXIT,B.END 


CHECK  FOR  "END  OF  SOURCE  LINE 

STATES  END 
TRANS   <';>,SEXIT 
TRANS   SEOS.SEXIT 


NTLC 

TPAR 

1 
1 
1 
1 
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NTL( 


F  11 

NTLCF2  -  %:w  CONFIGURATION  PR  MACRO  V05.03b  Saturday  29-Jun-85  00;2A     Page  32 
TPARS   STATE    TABLES  - 


•FI 


1506 

1507  001252 

1508 

1509 


000001 


STATES 
.END 


NN 

NN 

NN 

NN 

NNNN 

NNNN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLI 

LLLI 


NTL( 


"f  ILE««ID«'NTLCFP 
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NIL 
CFL 


NN      NN 

TTTTT 

TTTTT 

CCCCCCCC   F 

FFFFFFFFF 

PPPPPPPP 

NN      NN 

TTTTT 

TTTTT 

CCCCCCCC   F 

CFFFFFFFF 

PPPPPPPP 

NN      NN 

CC          F 

PP      PP 

NN      NN 

CC         F 

PP      PP 

NNNN    NN 

CC         F 

PP      PP 

NNNN    NN 

CC         F 
CC         F 

PP      PP 

NN  NN  NN 

FFFFFFF 

PPPPPPPP 

NN  NN  NN 

CC         F 

FFFFFFF 

PPPPPPPP 

NN    NNNN 

CC        F 

PP 

NN    NNNN 

CC        F 

PP 

NN      NN 

CC          F 

PP 

NN      NN 

CC          F 

PP 

NN      NN 

LLLLLLLLLL 

CCCCCCCC   F 

op 

NN      NN 

LLLLLLLLLL 

CCCCCCCC   F 

PP 

ssssssss 

TTTTl 

TTTTT 

ssssssss 

TTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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CFLI'il  -  ECHO  LAST  RECORD  READ 


4?1 

.SBTTl. 

4?? 

.S8TTL 

i,?', 

+ 

4?^ 

CFLIN  -  ECHO 

A?S 

FNLIN  -  ECHO 

A?iS 

A?7 

INPUTS: 

APR 

NONE 

APy 

A^n 

OUTPUTS: 

A^l 

NONE 

A^? 

- 

A^^ 

000500 

NLIN::  CALL 

A^A 

00050A 

012700 

000130' 

:FLIN::  MOV 

A^S 

000510 

016701 

000336' 

MOV 

A  56 

00051A 

CALLR 

CFLJN  -  ECHO  LAST  RECORD  READ 

FNLIN  -  ECHO  FILE  N'aME  &  LAST  RECORD  READ 

ECHO  THE  LAST  RECORD  READ  FROM  THE  CONFIG  FILE 

"  '      ".E  NAME  AND  LAST  RECORD  READ  FROM  CONFIG  FILE 


SFNOUT 
*CFG8F,R0 
CFGSZ.RI 
STIOUT 


PRINT  FILE  NAME 

GET  RECORD  BUFFER  ADDRESS 

AND  RECORD  SIZE 

PRINT  IT  ON  TI: 


NTLCFP  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:29  Page  1A 


00:29 


L 


NTLCFP 

CREATED   3Y 

MACRO     ON  29 

-JUN-85  AT 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SCLDEQ 

=    ****** 

GX 

9-303 

12-390 

SCLIOS 

r     ****** 

GX 

10-330 

11-352 

SCLQUE 

-     ****** 

GX 

10-329 

tCLSIZ 

r     ****** 

GX 

•11-351 

SERRMA 

001 23A 

RG 

#8-209 

9-310 

SERRMS 

001264 

RG 

#8-210 

9-311 

$ERRM6 

001314 

RG 

#8-211 

9-312 

SERROO 

000734 

RG 

#8-203 

SERROI 

000770 

RG 

#8-204 

$ERR02 

001044 

RG 

#8-205 

$ERR05 

001120 

RG 

#8-206 

$ERR06 

001154 

RG 

#8-207 

14-467 

$ERR09 

001174 

RG 

#8-208 

$ERRP7 

000610 

RG 

#8-200 

$ERRP8 

000644 

RG 

#8-201 

$ERRP9 

000700 

RG 

#8-202 

SERRIP 

001344 

RG 

#8-212 

10-337 

SERR1Q 

001402 

RG 

#8-213 

11-366 

SERRIR 

001440 

RG 

#8-214 

11-367 

SERRIT 

001466 

RG 

#8-215 

SFLAGS 

=   ****** 

GX 

9-246 

SFNOUT 

=   ****** 

GX 

8-212 

8-213 

SGCLEP 

=   ****** 

GX 

11-351 

SLINKX 

r     ****** 

GX 

16-557 

$NTCF3 

000000 

RG 

#9-246 

tQCHN 

=    ****♦» 

GX 

9-280 

$QCUG 

=    ♦***♦* 

GX 

9-284 

$QDSA 

=:     ****** 

GX 

9-292 

SQDSC 

=    ****** 

GX 

9-296 

SQDST 

-    ****** 

GX 

9-269 

SQDTE 

=    ****** 

GX 

9-267 

SQPSN 

=    ****** 

GX 

9-253 

$QPVC 

-    ****** 

GX 

9-282 

SQRDT 

=    ****** 

GX 

9-271 

$0X29 

=    ****** 

GX 

9-273 

$QX3P 

=    »****> 

GX 

9-257 

SREP.N 

=    ****** 

GX 

8-212 

8-213 

SSAVAL 

-    ****** 

GX 

12-385 

STIOUT 

=    ****** 

GX 

12-410 

13-436 

.PCHAR 

r    ****** 

GX 

18-607 

18-609 

.PNUMB 

-    ****** 

GX 

V-455 

14-462 

. PNUMH 

-    ****** 

GX 

14-453 

14-460 

.PSTCN 

-    *■***«* 

GX 

14-444 

.PSTPT 

r     ♦**♦•* 

GX 

14-446 

F   U 
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13-433 


14-474 
14-472 


14-488 
14-486 
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NTLDEV  -  BUILD  DEVICE  DATA  STRU  MACRO  V05.03b  Saturday  29-Jun-85  00i30  Page  5 

MACRO  DEFIN1I10N5 


54 
55 
56 
57 
58 
59 
60 


.S8TTL     MACRO  DEflMTIONS 

LIBRARY   MACROS 

.MCALL      EMSG$,EMSG$R,NTLER$,SAVRG,RESRG 


5  15 
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NTLDEV  -  BUILD  DEVICE  DATA  STRU  MACRO  '/05.03b  Saturday  29-Jun-85  00:30 
DVXFR  -  TRANSFER  DEVICE  TABLES  INTO  CORE 


572 
575 
57A  0011:2 

575  001116 

576  001120 

577  001124 

578  001126 

579  001130 

580  001132 

581  001136 

582  001  K2 

583  001  U4 
584 

585 

586  001U6 

587 

588 

589 

590 

591 

592 

593  001152 

594  001156 

595  001160 

596  001162 

597  001164 

598  001166 
599 

600  001170 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610  001172 

611  001200 

612  001206 

613  001214 

614  001222 

615  001224 

616  001226 

617  001234 

618  001242 

619  001250 

620  001252 

621  001254 

622  001262 


066702 
005012 
010262 
005303 
001407 
010102 
066002 

103427 
000742 


OOOOOOG 
000002 

OOOOOOG 


016702 
010201 
011202 
001375 
010011 
010210 


OOOOOOG 


116777  OOOOOOG  OOOOOOG  101$ 


006202 
103003 


006202 
103003 


SUB 

SK;S5,R2 

.ENDC 

ADD 

SLHD,R2 

CLR 

(R2) 

MOV 

R2,2(R2) 

DEC 

R3 

BEQ 

20$ 

MOV 

R1,R2 

ADD 

D.UC8L(R0),R2 

CALL 

VAD 

BCS 

131$ 

BR 

10$ 

.If  NDF 

R$$MPL 

20$: 

SWSTK$ 
.IFF 

50$ 

20$: 

SWSTK$ 
.ENDC 

60$ 

MOV 

DEVHD,R2 

30$: 

MOV 

R2,R1 
(R^),R2 

MOV 

BNE 

30$ 

40$: 

MOV 

R0,(R1) 

MOV 

R2,(R0) 

50$: 

RETURN 

.IF  DF 

R$$MPL 

60$: 

CALL 

RETURN 

.ENDC 

$FiRC]N 

;  ERROR  CONDITIONS 

101$ 

Move 

$iose,a$CLios 

EHSG$R 

2M 

111$ 

EMSG$R 

20 

121$ 

EMSGIR 

2R 

131$ 

ASR 

R2 

BCC 

132$ 

EMSG$R 

2S 

132$ 

EMSG$R 

2T 

141$ 

EMSG$R 

2U 

151$ 

ASR 

R2 

BCC 

152$  . 

EMSG$R 

2V 

152$ 

EMSG$R 

2W 

Page  13-1 

;  RESTORE  POINTER  TO  SC8  START 
GET  I/O  PACKET  LISTHEAD 


DONE? 

IF  EQ,  YES 

COPY  UCB  ADDRESS 

ADD  UCB  LENGTH  FROM  DC8 

VALIDATE  NEXT  UCB  ADDRESS 

IF  CS,  ILLEGAL 

SETUP  NEXT  UCB/SCB  PAIR 


;♦  ENTER  KERNEL  MODE  11M 
;*  ENTER  KERNEL  MODE  M+ 


•  GET  DEVICE  POINTER 

*  SAVE  PREVIOUS  DCB  ADDRESS 

•  GET  NEXT  DEVICE  IN  LIST 

♦  IF  NOT  END  OF  LIST  -  BRANCH 

*  LINK  OUR  DCe  INTO  THE  LIST 


;•  BACK  TO  USER  MODE 
;♦  REINIT  HRC 


COPY  ERROR  CODE 

READ  FAILURE 

D.UNIT  >  D.UNITtI 

D.UCB  FIELD  OUTSIDE  TABLE  LIMITS 

ODD  ADDRESS? 

IF  CC,  NO 

UCB  ADDRESS  ODD 

UCB  ADDRESS  OUTSIDE  TABLE  LIMITS 

U.SCB  FIELD  OUTSIDE  TABLE  LIMITS 

ODD  ADDRESS? 

IF  CC,  NO 

see  ADDRESS  ODD 

SCB  ADDRESS   OUTSIDE    TABLE   LIMITS 
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G  1 


1 


8 
9 

10 
l1 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
2? 


000000 


.TITLE  MAPX 
.IDENT  /V05.00/ 
.ENABLE  LC 

COPYRIGHT  (C)  1982,  1983,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY  ON  A 
SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE,  OR 
ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BF  PROVIDED  OR  OTHERWISE 
MADE  AVAILABLE  TO  ANY  OTHER  PERSON  EXCE^"  fOR  USE  ON  SUCH 
SYSTEM  AND  TO  ONE  WHO  AGREES  TO  THESE  LICENSE  TERMS.  TITLE 
TO  AND  OWNERSHIP  OF  THE  SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN 
IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE  WITHOUT 
NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL 
EQUIPMENT  CORPORATION. 


DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
ITS  SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DEC. 


MAPX  -  Extended  Memory  Mapping  Routines 

IDENT  HISTORY: 

4.00     07-N0V-83 

DECNET-HM  V4.0 
DECNET-11M-PLUS   V2.0 


OF 


5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  VI. 0 


Library  Macros 

.MCALL   SAVRG.RESRG 
;  *** 

;  Global  Data 
•  *** 

.PSECT   OATA.D 

Mapping  register  address 

APR::    .8LKW  1 

Mapping  register  contents 

APRSV::  .8LKW  1 
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NTL 
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SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


REFERENCES 


A.l.ULU 

=  000002 

5-64 

BUFFER 

000472 

R 

5-64 

#5-64 

BUFLEN 

=  000001 

#5-64 

CL.AST 

=  004000 

#5-64 

CL.ATT 

=  000200 

5-64 

5-64 

CL.CAS 

=  020000 

#5-64 

CL.CMT 

=  000001 

5-64 

5-64 

CL.EIF 

=  000040 

#5-64 

CL.EXN 

=  040000 

#5-64 

CL.EXT 

=  000010 

5-64 

5-64 

CL.IND 

=  000002 

5-64 

5-64 

CL.LCC 

=  000020 

5-64 

#5-64 

CL.NPR 

=  0004CO 

#5-64 

CL.OPN 

=  000100 

G 

5-64 

#5-64 

CL.RNE 

=  000004 

#5-64 

CL.XIT 

=  100000 

#5-64 

C.DSDS 

=  000006 

5-64 

C.SIZE 

=  000054 

5-64 

DEFFLG 

=  000233 

#5-64 

5-64 

DFLTNB 

000426 

R 

5-64 

#5-64 

EF 

=  000001 

#5-64 

5-64 

F.DFNB 

=  000046 

5-64 

F.DSPT 

=  000044 

5-64 

F.LUN 

=  000042 

5-64 

F.URBD 

=  000020 

5-64 

5-64 

G.MCRB 

=  000002 

G 

5-64 

5-64 

N.DVNM 

=  000032 

5-64 

N.FNAM 

=  000006 

5-64 

N.FTYP 

=  C00014 

5-64 

N.UNIT 

=  000034 

5-64 

a.IOAE 

=  000012 

6 

5-64 

Q.IOFN 

=  000002 

G 

5-64 

5-64 

Q.IOPL 

=  000014 

G 

5-64 

Q.IOSB 

=  000010 

G 

5-64 

5-64 

S.BFHD 

=  000020 

5-65 

5-65 

S.ETEF 

=  000002 

5-64 

S.FDB 

=  000140 

5-64 

5-64 

S.FNAM 

=  000006 

5-64 

5-64 

S.FNB 

=  000036 

5-64 

S.FTYP 

=  000002 

5-64 

5-64 

W.TSEF 

=  000002 

5-64 

SASTLV 

000210 

RG 

#5-64 

SCLASN 

000162 

RG 

#5-64 

SCLAST 

000172 

RG 

#5-64 

SCLBUF 

=  000310 

RG 

#5-64 

SCLCSI 

000212 

RG 

#5-64 

5-64 

SCLEVL 

000206 

RG 

#5-64 

SCLFDB 

000266 

RG 

#5-64 

5-64 

SCLFLG 

000464 

RG 

#5-64 

SCLIOS 

r  000132 

RG 

#5-64 

SCLMCR 

000000 

RG 

#5-64 

5-64 

SCLPMT 

000466 

RG 

#5-64 

G    2 
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NTLCE 
CESY^ 


5-64 

#5-64 
#5-64 


#5-64 
#5-64 


5-70 


5-64 


5-64 
5-64 


5-64 


5-64 


5-64 
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cvMDm      roncc     DtrccDCMrc 


NTLC 
CESYI 


NTLCEX   -  LOAD   COMM  EXEC    IMAGE       MACRO  V05.03b   Saturday  29-Jun-85 
CESYM  -   LOOK   FOR   SPECIAL    SVMBOLS 


00:22 
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381 
382 
383 
38^ 
385 
386 
387 
388 
389 
390 
391 
392 
393 
39A 
395 
396 
397 

398  000324 

399  000330 

400  000334 

401  000340 

402  000344 
403 


.S8TTL  CESYM  -  LOOK  FOR  SPECIAL  SYMBOLS 

CESYM  -  LOOK  FOR  SPECIAL  COMM  EXEC  SYMBOLS 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT=SUCCESS/FA1LURE 

SRSXNM  -  IF  0  THEN  SSYSNM  IS  NOT  DEFINED  (BASE  LEVEL  PRIOR  TO  BL28) 

ELSE  ADDRESS  OF  SYSTEM  NAME  (SSYSNM) 
R0,R1,R2=DESTR0YED 


NTLCE 
GTBUF 


005067 
012700 
012701 
012702 


OOOOOOG 
OOOOOOG 
000006' 
000020' 


CESYM: 


404 

405  000350 

012700 

000040' 

406 

407 

408 

409 

410 

411  000354 

412  000360 

103471 

413  000362 

012700 

OOOOOOG 

414  000366 

012701 

000006' 

415  000372 

012702 

000020' 

416  000376 

417  000402 

012700 

000214' 

418  000406 

419  000412 

103454 

420  000414 

012700 

OOOOOOG 

421  000420 

012701 

000012' 

422  000424 

012702 

000020' 

423  000430 

424  000434 

012700 

000252' 

425  000440 

426  000444 

103437 

427 

428 

429 

450 

431 

432 

433 

4  34 

435 

4  36 

437 

CLR 

SRSXNM 

MOV 

#$CXUIC,RO 

MOV 

#CEXNAM,R1 

MOV 

#STBEXT,R2 

CALL 

SAZFS 

.IF  NDF 

RSSMPL 

MOV 

#C8LK1,R0 

.IFF 

MOV 

#X8LK1,R0 

.ENDC 

CALL 

SSYM8L 

BCS 

ST8ERR 

MOV 

#$CXUIC,RO 

MOV 

*CEXNAM,R1 

MOV 

#STBEXT,R2 

CALL 

SAZFS 

MOV 

#IBLK1,R0 

CALL 

SSYM8L 

BCS 

ST8ERR 

MOV 

*$CXUIC,R0 

MOV 

*CETNAM,R1 

MOV 

#STBEXT,R2 

CALL 

SAZFS 

MOV 

#.PDVTB,RO 

CALL 

SSYMBL 

BCS 

ST8ERR 

.IF  DF 

RSSMPL 

MOV 

#10,aSTMFC 

MOV 

#1010,aLTMFC 

CLR 

aCCBAF 

CLR 

aRD8AF 

CLR 

aCDSAF 

CLR 

aSDBAF 

CLR 

aCCBAL 

MOV 

CMFRK.RO 

ASSUME  RSX  SYSTEM  NAME  MATCHES  NODE  NAME 
SETUP  ASCIZ  FILE  SPEC 
FOR  RSX11M.STB 


GET  SYMBOL  DEFINITIONS 
GET  SYMBOL  DEFINITIONS 


LOOK  FOR  SYMBOLS  IN  STB  FILE 
IF  CS,  FILE  ERROR 
SETUP  ASCIZ  FILE  SPEC 
FOR  [130,5X]CEX.STB 


GET  FIRST  LOOKUP  CONTROL  BLOCK  ADDRESS 
LOOK  FOR  SYMBOLS  IN  STB  FILE 
IF  CS,  FILE  ERROR 
SETUP  ASCIZ  FILE  SPEC 
FOR  [XXX,5XTrPTAB.STB 


GET  ADDRESS  OF  SYMBOL  BLOCK 
LOOK  FOR  SYMBOLS  IN  STB  FILE 
IF  CS,  FILE  ERROR 


FUNCTION  CODE  TO  DISPATCH  100  MSEC  TIMEOUTS 
FUNCTION  CODE  TO  DISPATCH  LONG  TIMOUTS 
INITIALIZE  ALLOCATION  FAILURES 


INITIALIZE  NUMBER  OF  DYNAMIC  CCB  ALLOCATIONS 
GET  SCMFRK  ADDRESS 


H  3 
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CESYM  -  LOOK  FOR  SPECIAL  SYMBOLS 
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NTlC! 
SALTl 


G  4 
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GTBUF  -  GET  NEXT  BUFFER  ADDRESS 
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960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 


.SBTTL  GTBUF  -  GET  NEXT  BUFFER  ADDRESS 

GTBUF  -  RETURN  ADDRESS  OF  NEXT  BUFFER  (RDB/SDB)  IN  NETWORK  POOL 

INPUTS: 

R3  -  NUMBER  OF  BYTES  NEEDED  (  EVEN  ) 

R4  -  OLD  BIAS 

R5  -  OLD  VIRTUAL  ADDRESS 

OUTPUTS: 

R4      -  NEW  BIAS 

R5      -  NEW  VIRTUAL  ADDRESS 

OTHER  REGISTERS  UNCHANGED 


002250 

002250  010046 

002252  060305 

002254  010500 

002256  042705  177700 

002262  052705  140000 

002266  042700  160000 

002272 

002306  060004 

002310  012600 


GTSU,- : 


989  002312 

990 

99- 


MOV 

ADD 

MOV 

BIC 

BIS 

BIC 

ASRt 

ADD 

MOV 

RETURN 


RO,-(SP) 

R3,R5 

R5,fi0 

#«C<77>,R5 

#.8ASEB,R5 

#160000, RO 

6,R0 

R0,R4 

(SP)t,RO 


SAVE  RO 

ADD  BUFFER  SIZE  TO  VIRTUAL  ADDRESS 

SAVE  NUMBER 

GET  NEW  VIRTUAL  ADDRESS  (DIB  ONLY) 

FORCE  PAR3/6  BIAS 

CLEAR  MAPPING  BIAS  BITS 

It   OF  FULL  32-WORD  BLOCKS  IN  BUFFER 

NEW  BIAS 

RESTORE  RO 


NTLCi 

MACR( 

MACR( 

ASL$ 
ASRS 
BIAS' 
CALL 


CALLI 

CCBDI 

CRASI 

CTRDI 

DHBDI 

EMSG' 

MAP 

NHWD 

OPTD 

RESM 

RESR' 

RETC 

RETU 

SAVM 
SAVR 

sl:d 

SOB 

SWST 

XPDD 


H  4 
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$ALTLC  -  SET  UP  XPT  CIRCUIT  COUNTER  BLOCK 
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NTLi 
OPEI 


MACRO  NAME 

REFERENCES 

ASL$ 

#5-59 

7-333 

13-755 

ASR$ 

#5-59 

17-985 

BIASS 

#5-59 

#5-92 

18-1062 

CALL 

7-303 

7-310 

7-311 

7-314 

7-316 

7-322 

7-349 

7-350 

7-353 

7-354 

7-356 

7-^58 

8-402 

8-411 

8-416 

8-h18 

8-423 

8-425 

9-505 

9-506 

10-547 

10-552 

11-600 

11-660 

13-737 

13-753 

13-757 

13-765 

13-768 

13-782 

13-788 

13-790 

13-796 

13-797 

14-832 

14-863 

15-889 

15-892 

15-908 

16-936 

16-939 

16-955 

18-1011 

18-1012 

18-1055 

CALLR 

7-378 

8-484 

CCBDFS 

#5-59 

5-73 

CRASH 

13-803 

CTRDFS 

#5-59 

5-62 

DHBDFS 

#5-59 

5-75 

EMSGtR 

#5-59 

7-376 

8-481 

8-482 

11-666 

14-865 

MAP 

#5-60 

#5-88 

18-1060 

NHWDFS 

#5-66 

5-68 

OPTDFS 

#5-59 

5-74 

RESMAP 

#5-84 

18-1076 

RESRG 

#5-60 

15-907 

16-953 

RETC 

#5-59 

18-1014 

RETURN 

7-318 

7-371 

8-474 

9-522 

9-528 

10-580 

11-661 

13-786 

13-799 

14-846 

15-899 

15-911 

16-946 

16-958 

17-989 

18-1018 

18-1077 

18-1084 

SAVMAP 

#5-80 

18-1057 

SAVRG 

#5-60 

15-903 

16-949 

SLTDFS 

#5-60 

5-63 

SOB 

7-370 

11-635 

11-640 

11-650 

18-1068 

SWSTKS 

7-314 

9-505 

10-547 

13-737 

15-889 

16-956 

18-1011 

18-10'=5 

XPDDBS 

#5-60 

5-64 

•♦FILE'*1D«»NTLCFG 


H     5 


NTL 
RE  A 


G  6 

NTLCfG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:23 
OPEN  -  OPEN  THE  CONFIGURATION  FILE 


Page  10 


NTL 
GET 


A09 
'.lO 
411 
412 
413 
414 
415 
416 
41? 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 


000772  012700  OOOOOOG 

000776  012701  000000' 

001002  012702  000006' 

001006 

001012 

001016  105777  OOOOOOG 

001022  100401 

001024 


001026 


.SBTTL  OPEN  -  OPEN  THE  CONFIGURATION  FILE 


OPEN  -  OPEN  THE  CONflG  FILE 


INPUTS: 

NONE 

OUTPUTS: 

C-BIT= 

SUCCESS/FAILURE 

EN:   MOV 

#$CFUIC 

RO 

MOV 

#CFGNAM 

R1 

MOV 

#CFGEXT 

K2 

CALL 

SAZFS 

CALL 

SCLQUE 

TST8 

aSCLJOS 

BMI 

101$ 

RETURN 

SETUP  ASCIZ  FILE  SPEC 
FOR  C130,10]CETA8.MAC 


OPEN  THE  CONFIG  FILE 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 


ERROR  CONDITION 
101$:   EMSG$R  IP 


;  OPEN  FAILURE 
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**F 


768 
769 
770 
771 

772  001622 

773  001626 
77^  001630 

775  001636 

776  001640 

777  0016',4 

778  001650 

779  001652 

780  001656 

781  001660 

782  001 a62 


.SBTTL  GETCSR 


005767 
OOUOA 
026727 
001010 
016700 
032700 
001003 
020C27 
103001 
000261 


OOOOOOG 

OOOOOOG  000003 

OOOOOOG 
000003 

160000 


;  RETURN  NUMERIC  CSR  VALUE 

GETCSR:  :TST 

.PNUMH 

SEQ 

10$ 

CMP 

.PNUMH,#3 

BNE 

20$ 

10$:    MOV 

.PNUMB,R0 

BIT 

#3,R0 

BNE 

20$ 

CMP 

RO, #160000 

BHIS 

30$ 

20$:    SEC 

30$:    RETURN 

IN  RO 


IS  IT  A  SINGLE  PRECISION  NUMBER 

..  YES 

DOES  THE  EXCESS  =  600000  ? 

..  NO 
GET  THE  LOW  ORDER  NUMBER 
IS  IT  AN  EVEN  MULTIPLE  OF  4  ? 
..  NO 

IS  IT  AN  I/O  PAGE  ADDRESS  ? 
..  YES  (C-SIT  IS  CLEAR) 
ILLEGAL  VALUE 


NN 

NN 

NN 

NN 

NN^ 

NN^ 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 


LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
Lt 
LL 
LL 
LL 
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N^l 
TaI 


*F1LE••1D••^JTLCF2 


G    8 


NTL 


m          m 

TTTTTTTTTT 

LL 

CCCCCCCC   F 

FFFFFFFFF 

222222 

m          m 

TTTTTTT 

TTT 

ll 

CCCCCCCC   F 

FFFFFFFFF 

222222 

m          m 

C          F 

22     22 

m          m 

•C         F 

22     22 

NNNN    m 

:c      F 

22 

mm       m 

:c      F 

22 

NN  m    m 

:c      F 

FFFFFFF 

22 

m    m    m 

:c      F 

FFFFFFF 

22 

NN    NNNN 

:c      F 

22 

NN    NNNN 

;c      F 

22 

NN      NN 

:c      F 

22 

NN      NN 

:c       F 

22 

NN      NN 

LLLLLLLLLL 

CCCCCCCC   F 

2222222222 

NN      NN 

LLLLLLLLLL 

CCCCCCCC   F 

2222222222 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTT 

TTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLlLLLLLL 

ssssssss 

llmllllll      ssssssss 


TT 
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NTLC 
TPAF 


A77 
A78 
479 
480 
481 
482 
485 
484 
485 
486 
487 
488 
489 
490 
491 
492 

493  000644 

494  000650 

495  000652 
4°6  000656 
497 

498  000660 
499 

500  000664 

501  000666 

502  000672 

503  000676 

504  000702 

505  000706 

506  000712 

507  000714 

508  000720 

509  000722 
510 

511 

512 

513 

514  000724 

515 

516 


.SBTTL  Q***  -  LOOK  FOR  **»$DF  MACRO 


Q**«  -  LOOK  FOR  ***$DF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT=^SUCCESS/FAILURE 
R3,R4,R5=DESTROYED 


.ENABL  LS8 


000574' 
000654' 


012705 
000405 
012705 
000402 


012705  001026' 


005001 
012702 
016703 
012704 
005067 

103003 
005367 
001401 


000000' 
002444' 
002236' 
002452' 


002452' 


QBUF: 

MOV 

#BUFDF,R5 

BR 

10$ 

QPAR: 

MOV 

#PARDF,R5 

BR 

10$ 

QMFL: 

MOV 

#MFLDF,R5 

10$: 

CLR 

Rl 

MOV 

#CFGKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFG8F,R4 

CLR 

SYNERR 

CALL 

.TPARS 

see 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

20$: 


RETURN 


ERROR  CONDITION 
i01$:   EMSG$R  IT 
.DSA6L  LSB 


STATE  TABLE  ADDRESS 
STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DC  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 
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921 
922 
923 
92A 

925  001252 

926  001252 

927  001252 
928 

929 
930 

931  001252 

932  001252 

933  001252 

934  001252 

935  001252 

936  001252 

937  001252 

938  001252 

939  001252 

940  001252 

941  001252 

942  001252 

943  001252 

944  001252 

945  001252 

946  001252 
c,47  001252 

948  001252 

949  001252 

950  001252 

951  001252 

952  001252 

953  001252 

954  001252 

955  001252 

956  001252 

957  001252 

958  001252 

959  001252 

960  001252 

961  001252 
962 


.SBTTL   TPARS  STATE  TABLES  -  PARSDF 
PARTITION  DEFINITIONS  (PARSDF) 


STATES 
TRANS 

STATES 

.IF  NDF 
TRANS 

.IFF 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

.ENDC 


PARDF 

XPARSDF%,,,1,syNERR 

;  FIRST  PARTITION  NAME 
MSSMGE 

SRAD50,$EXIT,P.PAR1 

<',>,PARDF1 
SRAD50,,P.PAR1 

!END,SEXIT,P.ENP 

PARDFl         ;  SECOND  PARTITION  NAME 
<',>,PARDF2 
SRAD50,,P.PAR2 

IEND,SEXIT,P.END 

PARDF2         ;  FUDGE  FACTOR 
<',>,PARDF3 
$NUMBR,,P.F'JDG 

IEND,SEXIT,P.END 
<'  ,> 
PARDF 3         ;  TOP-LOADING  FLAG 
<',>,PARDF4 
"TOP  ,  ,,LS.TOP,SFUNC 

!END,SEX1T,P.END 

PARDF4         ;  UMR  FLAG  OR  SIZE 

SNUMBR,PARDF5,P.UMR 

"NONE",, P. NONE 
PARDF 5 

:end,sexit,p.end 

;  size  of  single  word  allocation  pool 
snumbr.sexit.p.all 
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NTLC 
Tabl 


A 

000240R 

003 

DSDELW 

000046 

FILDF 

ADDDF 

001630R 

003 

DSEND  = 

000104 

F  LE  = 

A$$CHK= 

OOOOCO 

D$FNB 

000034 

FILFLG 

A$tCPS= 

000000 

DSHIOR 

000024 

FILSPC 

A$$PRI= 

000000 

DSHOST 

000022 

FLSZ  = 

A$$TRP= 

000000 

DSINAC 

000044 

FL.NT1= 

B 

000260R 

003 

DSINCT 

000042 

FMT8 

BRADJ 

00152AR 

003 

D$IPL 

000051 

FMT8B 

BRADJ1 

001536R 

003 

D$LID 

000020 

FMT9 

BUFDF 

00057AR 

003 

DSLNAM 

000006 

FM.8  = 

BUFDF1 

00060AR 

003 

DSLNUM 

000014 

FM.8B  = 

BUFDF2 

000630R 

003 

DSLST 

000047 

FH.9  = 

B.END  = 

»»*»«♦  GX 

DSMAXC 

000064 

FNBEXT^ 

B.NUM  = 

*♦*♦*♦  GX 

DSMAXH 

000066 

FN8LN 

B.STR  = 

»*♦*«♦  GX 

DSHAXV 

000070 

FNBSZ  = 

B.ZEND= 

*♦*»♦«  GX 

D$MLL 

000040 

FNBUFF 

B.ZERO= 

**»»♦♦  GX 

OSMNOD 

000041 

FNLIN 

C 

000276R 

003 

D$NA 

000062 

F$$LVL= 

CERR 

000742RG 

DSNBEA 

000056 

F.NXT 

CFERR 

000752RG 

DSNBRA 

000054 

F.USE 

CFGBF 

002236RG 

002 

0$NEND= 

000054 

F.VAR 

CFGEXT 

000006R 

002 

D$NLN 

000030 

G 

CFG<W 

OOOOOORG 

004 

D$NN 

000060 

GETSTR= 

CFGNAM 

OOOOOOR 

002 

DSOUTT 

000043 

GRPUIC= 

CFGST 

OOOOOORG 

003 

DSRETF 

000050 

G$$TPP= 

CFGSZ 

00244ARG 

002 

DSRNN 

000002 

G$$TSS= 

CFLIN 

001052RG 

DSRTMR 

000076 

G$$TTK= 

CIRMUL 

002056ftG 

002 

D$SEG 

000036 

G$$URD= 

CIRNAM 

002050RG 

002 

D$SER 

000032 

H 

CIRNUM 

00205'iRG 

002 

DSSQRL 

000052 

HEXSTR 

CIRUNT 

0021 54RG 

002 

D$$BUG= 

177514 

HRDADD= 

CWARN 

000732RG 

D$$1SK= 

000000 

HEAD  = 

C$$CKP= 

000000 

D$$Ln  = 

000001 

HSAR  = 

C$$ORE= 

000400 

D$I.YNC= 

000000 

HSTARE= 

C$$RSH= 

177564 

0$$VNM= 

000000 

HSTNUM= 

D 

00031 6R 

003 

E 

000406R 

003 

I 

DADDR  = 

*•»***  GX 

ECLLLN 

002460RG 

002 

IE.EOF= 

DCT 

*♦***♦  GX 

ECLLNK= 

******  GX 

IE.RBG= 

DEACB  = 

»♦»♦*♦  GX 

ECLNOD 

002462RG 

002 

INAC  = 

DECDF 

001712R 

003 

END 

000644R 

003 

INCT  = 

OECPT  = 

««**♦♦  GX 

ENDHEX 

002104RG 

002 

I  PL   -- 

DELF   = 

♦*«***  GX 

ENDPAS 

002032RG 

002 

I$$RAR= 

DELW  = 

««*»»«  GX 

ERRBJF 

000022R 

002 

I$$RDN= 

DE^J 

•**♦*♦  GX 

ERRMSG 

00001 2R 

002 

K$$CNT= 

DEVBUF 

0021';2RG 

002 

EVTDF 

002034R 

003 

K$$CSR= 

DEVI 

000352R 

003 

EVTMSK 

002074R 

003 

K$$LDC= 

DEVIC 

000362R 

003 

EXT   = 

******  GX 

K$$TPS= 

DEVNM 

002060RG 

002 

EXTEN 

000202R 

003 

L6RA  = 

DIA 

000064R 

003 

E$$XPR= 

000000 

LD$LP  = 

DUM 

0001 04R 

003 

E.CON  = 

******  GX 

LF.ACT= 

DVSZ  = 

000010  G 

E.FIL  = 

******  GX 

LF.BRO= 

DSAMXC 

000072 

E.MDN  = 

******  GX 

LF.BWT= 

DSAMXH 

000074 

E.MSK  = 

******  GX 

LF.ENA= 

D$ANN 

000000 

E.NUM  = 

******  GX 

LF.LP8= 

DSBRPR 

000102 

F 

000432R 

003 

LF.MDC= 

DSBRTM 

000100 

FIELDC= 

000003  G 

LF.MFL= 

OSDELF 

000045 

FILBUF 

002122RG 

002 

LF.MTP= 

OOOOOOR 

******  GX 

002152RG 

000116R 

000020  G 

*«♦«*♦  GX 

001726RG 

001746RG 

001710RG 

000000 

000000 

000000 

000006  G 

002164RG 

000044  G 

002166RG 

001046RG 

000001 

000000 

000002 

000003 

000456R 

******  GX 

*»**♦♦  GX 

000000 

000000 

000000 

000000 

000502R 

002064RG 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

000526R 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

000000 

000000 

177546 

177546 

000000 

000074 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 


003  LF.PAC= 
LF.RDY= 

002  LF.REA= 

003  LF.SER= 
LF.TIM= 
LF.UNL= 

002  LF.X2P= 

002  LN.CLO= 

002  LN.DUM= 

LN.L0A= 

LN.L00= 

LN.OAU= 

LN.OFF= 

002  LN.ON  = 

LN.OOP= 

002  LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.SUB= 
LN.TRI= 

003  LOA 
LOGST 
LO.CON 
LO.CSR 
LO.CTL 
LO.LIN 
LO.PAR 

003  LO.PRI 

002  LO.SCR 
LO.STA 
LO.VCT 
LR.AST 
LR.CIR 
LR.CTL 

003  LR.EFN 
LR.LIN 
LR.PRM 
LR.PRO 
LR.STS 
LR.TCB 
LR.UNT 
LST   = 
LS.AST= 
LS.CEX= 
LS.CIR= 
LS.CXO= 
LS.CX5= 
LS.DLM= 
LS.ECH= 
LS.FDX= 
LS.HDX= 
LS.LIN= 
LS.LMC= 
LS.NT1= 
LS.ON  = 
LS.OPT= 


000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000044R 

0021 10R 

000006 

000006 

000014 

000004 

000010 

000010 

000014 

000015 

000012 

000026 

000002 

000004 

000004 

000002 

000030 

000002 

000000 

000002 

000005 

******  GX 

100000 

000001 

000010 

010000 

000400 

004000 

001000 

004000 

010000 

000003 

000007 

004000 

000011 

000400 


LS.PRO= 
LS.PWF= 
LS.TOP= 
LS.UNF^ 
LS.X25= 
LS.11D= 
LX.CEX= 
LX.L1N= 
LX.PRO= 
L$$ASG= 
L$$DRV= 
L$$P11=' 
L$$11R= 


003 


.COST 

.CTL 

.OVA 

.DDM 

.DOS 

.DLC 

,DLM 

,DLS 

.FLG 


003  L.KRBA 
L.LEN  = 
L.LGST= 
L.MPF 
L.NMST 
L.NSTA 
L . OUNR 
L.UNT 
MFLDF 
MRKFL 
MS.BUF= 
MS.NT1= 
MS.NT2= 
MS.PAR= 
MULP 
M$$CRB= 
M$$CRX= 
H$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
NBRA 
NOAD  = 
NOAR  = 
NODARE= 
NODCT  = 
N0DDF1 
NODID  = 
NODNM  = 
NODNUM= 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 


000002 

040000 

002000 

020000 

000012 

004000 

000004 

000006 

000005 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

******  GX 

000022 

000020 

000014 

000021 

000013 

001026R 

002454RG 

******  GX 

******  GX 

******  GX 

******  GX 

000560R    003 

000124 

000000 

000000 

000000 

000000 

000000 

002450RG    002 

******  GX 

******  GX 

******  GX 

******  GX 

001250R    003 

******  GX 

******  GX 

******  GX 

000001 

000001 

000001 

000001 

000001 


003 
002 


H  11 


NTLCF2  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:24  Page  32-2 


NTLI 


NTLCFP  -  SCAN  CONFIGURATION  FiL  MACFiO  V05.03b  Saturday  29-Jun-85 

Table  ot  contents 

5-  52  MACRO  DEFINITIONS 

6-  66  LOCAL  SYMBOL  DEFINITIONS 

7-  82  LOCAL  DATA 

8-  19A  ERROR  MESSAGES 

9-  231  $NTCF3  -  SCAN  CETAB.MAC  FOR  P51  COMPONENTS 

10-  3U  OPEN  -  OPEN  THE  CONFIGURATION  FILE 
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438 

.S3TTL 

COMMON  ACTION  ROUTINES  - 

439 

440 
441 
442 
443 
444  000520 

.ENABL 

LS8 

■  DEVICE  NAME 

022767 

000003  OOOOOOG 

DEVNAM::CMP 

#3,.PS;CN 

101$                ; 

445  000526 

103425 

BLO 

446  000550 

016700 

OOOOOOG 

MOV 

.PSTPT.RO 

447  000534 

CALL 

$CAT5 

448  000540 

010167 

000346' 

MOV 

R1,LINNAM 

449  000544 

450 

451 

RETURN 

•  DEVICE  CONTROLLER  NUMBER 

452 

453  0CO546 

005767 

OOOOOOG 

6EVCTL::TST 

.PNUMH 

454  0OOS52 

001013 

BNE 

101$ 

455  000554 

016767 

OOOOOOG  000350' 

MOV 

.PNUMB.LINCTL 

456  000562 

457 

458 

459 

460  000564 

RETURN 

;  DEVICE  UNIT  NUMBER 

005767 

OOOOOOG 

DEVUNT::TST 

. PNUMH 

461  000570 

001004 

BNE 

101$ 

462  000572 

116767 

OOOOOOG  000351' 

M0V8 

.PNUMB,LINUNT 

463  000600 

RETURN 

464 

465 
466 
4b7  000602 

;  ERRORS 

101$:   EMSGSR 

06 

468 
469 
470 
471 
472  000610 

.DSA8L 

LS8 

;  CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 

005767 

OOOOOOG 

CHK8LK;:TST 

.PNUMH                ; 

473  000614 

001012 

BNE 

10$ 

474  000616 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

475  000622 

022700 

000040 

CMP 

#BLKSMN,RO 

476  000626 

101005 

?S^ 

10$ 

477  000630 

022700 

002000 

#8LKSMX,R0 

478  000634 

103402 

BLO 

10$ 

479  000636 

000241 

CLC 

480  000640 

000401 

BR 

20$ 

481  000642 

000261 

10$:    SEC 

482  000644 

483 

484 

485 

486  000646 

20$:    RETURN 

;  CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 

005767 

OOOOOOG 

CHKWND::TST 

.PNUMH 

487  000652 

001010 

BNE 

10$ 

488  000654 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

489  000660 

003405 

§kl 

10$ 

490  000662 

022700 

000177 

CMP 

#WNDSMX,RO 

491  000666 

103402 

BLO 

10$ 

492  000670 

000241 

^k<^ 

493  000672 

000401 

BR 

20$ 

494  000674 

000261 

10$:    SEC 

LINE-ID 


VALID  DEVICE  NAME? 

BR  IF  MO 

GET  ADDRESS  OF  FIRST  CHARACTER 

CONVERT  TO  RAD50 

SAVE  DEVICENAME 


LEGAL  CONTROLLER  NUMBER  VALUE? 

BR  IF  NO 

SAVE  CONTROLLER  NUMBER 


LEGAL  UNIT  NUMBER  VALUE? 

BR  IF  NO 

SAVE  UNIT  NUMBER 


ILLEGAL  LINE-ID 


DOUBLE  WORD  VALUE? 

BR  IF  YES  -  ERROR 

GET  BLOCK  SIZE  VALUE 

IS  BLOCK  SIZE  VALUE  WITHIN  RANGE? 

BR  IF  NO  -  ERROR 

BR"iF  NO  -  ERROR 

INDICATE  LEGAL  BLOCK  SIZE  VALUE 

INDICATE  ILLEGAL  VALUE 


DOUBLE  WORD  VALUE? 

BR  IF  YES  -  ERROR 

GET  BLOCK  SIZE  VALUE 

BR  IF  ILLEGAL  VALUE 

IS  VALUE  IN  RANGE? 

BR  IF  NO  -  ERROR 

INDICATE  LEGAL  WINDOW  SIZE  VALUE 

INDICATE  ILLEGAL  VALUE 


NT 
MA 
MA 

AS 

CA 


CA 
EM 
GC 
NT 
NT 

RE 
RE 

SL 
SC 
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NTLCFP  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:29  Page  14-1 


c 


L 


NTLCFP     CREATED  BY 
MACRO  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  00:29 


MACRO  NAME 

ASL$ 
CALL 


CALLR 

EMSGSR 

GCL$ 

NTLDF$ 

NTLER$ 

RETC 
RETURN 

SLTDFS 
SOB 


REFERENCES 

#5-57 

9-?50 

9-278 

10-328 

16-552 

13-A36 
#5-57 
#5-57 
#5-57 
#5-57 

8-209 
#5-58 

9-305 

16-558 
#5-58 

17-583 


15-524 

9-251 

9-28U 

10-329 

16-557 

9-310 

11-351 

5-63 

8-200 

8-210 

10-332 
17-590 
5-6A 


9-253 
9-282 
11-3:1 
18-612 

9-311 


8-201 
8-211 

11-356 
18-616 


PAGE 
CREF 


G  K 


04.00 


N 
L( 


9-255 
9-284 
12-385 


9-312 


8-202 
8-212 

12-418 


9-257 
9-290 
12-390 


10-337 


8-203 
8-213 

14-449 


9-262 
9-292 
12-397 


11-366 


8-204 
8-214 

14-456 


9-267 
9-294 
12-410 


11-367 


8-205 
8-215 

14-463 


9-269 
9-296 
12-413 


14-467 

8-206 

14-482 


9-271 
9-298 
13-433 


8-207 
14-495 


9-273 
9-303 
14-447 


8-208 
15-532 


**F1LE»MD««NTLCSR 


H  U 


[ 


L 


NTLDEV  -  BUILD  DEVICE  DATA  STRU 
LOCAL  DATA 


62 

65 

64 

65 

66 

67 

68  000000 

69 

70 

71 

72 

75 

74 

75 

76  000000 

77 

78 

79 

80 

81  000004 

82 

85 

84 

85 

86 

87  000007 

88  000010 

89  000017 
90 

91 
92 
95 
94 
95 
96 

97  000126 

98  000132 

99  000156 

100  000140 

101  000^44 

102  000150 
105 

104 

105 

106 

107  000152 

108 

109 

110 

111 

112  000156 


§0;5C 


125 


044 


015 
116 


124 


150 


124 


000140'  000000 

126250  020564 

000000 

000000  000000 

126250  014572 

000000 


126250  076554 


115 
114 


000160 
000162 

115  000164 

116 

117 

118 


000220' 
000256' 
000514' 
000342' 


150 


114 


MACRO  V05.05b  Saturday  29-Jun-85  00:50  Page  6 

.S8TTL  LOCAL  DATA 

LOCAL  DATA 

.PSECT  DATA.D 
.NLIST  BEX 
.IF  DF   R$$11M 
SYMBOL  TABLE  EXTENSION 
102  STBEXT:  .ASCIZ  "STB" 

DEVICE  NAME  PRECEDED  BY  "$" 
DNAME:   .ASCII   "$XX" 

.IFTF   ;  DF  R$$11M 


M 
R\ 


•  ERROR  MESSAGE 

BUFFER 

ERRMSG:  .BYTE 

.ASCII 
ERRBUF:  .BLKB 

15 

"NTL  —  " 

70. 

.EVEN 

.IFT 

;  DF  R$$11M 

;  SYMBOL  LOOKUP 

CONTROL  BLOCKS 

D8LK1:   .WORD 

DBLK2,0 

;  THIS  MUST  BE  THE  FIRST  CONTROL  BLOCK 

.RAD50  "SXXEND" 
LENGTH:  .WORD   0 
DBLK2:   .WORD   0,0 

.RAD50  "SXXDCB" 
DCS:    .WORD   0 

DCS  DISPATCH  TABLE  NAME  (THIS  SYMBOL  COMES  FROM  THE  PROCESS  STB  FILE) 
DUMMY:   .RAD50   "SXXTBL" 


ST8  FILE  ERRORS 


ETAS: 


.WORD 
.WORD 
.WORD 
.WORD 


$ERR28 
$ERR2C 
$ERR2D 
$ERR2E 


OPEN  FAILURE 
READ  FAILURE 
READ  OVERFLOW 
BAD  STB  FORMAT 


FLAG  WHETHER  OR  NOT  DEVICE  STRUCTURES  ALREADY  EXIST 


H  15 

Rlilin  DFVICE   DATA  STRU  MACRO  V05.05b   Saturday  29-Jun-85  00:50     Page  6-1 


[ 


NILDFV  -  BUILD  DEVICE  DATA  STRU  MACRO  V05.O3b  Saturday  29-Jun-85  00:50  Page  U 
RVAD  -  RELOCATE  AMD  VALIDATE  DATA  STRUCTURES 


§0:30 


624 
625 
626 

627 

628 

629 

650 

631 

632 

633  001270 

63A  001 27A 

635  001300 

636  001304 

637  001306 

638  001310 

639  0013K 

640  001316 

641  001322 


166702  000170' 

066702  OOOOOOG 

032702  000001 

000261 

001005 

020267  OOOOOOG 

103402 

026702  000174' 


.SBTTL  RVAD  -  RELOCATE  AND  VALIDATE  DATA  STRUCTURES 
.S8TTL  VAD  -  VALIDATE  DATA  STRUCTURES 


RVAD  -  RELOCATE  AND  VALIDATE  DATA  STRUCTURE  ADDRESS 
VAD  -  VALIDATE  DATA  STRUCTURES 


RVAD: 
VAD: 


10$: 


SUB 

BASE,R2 

ADJUST  BY  TKB  BASE  ADDRESS 

ADD 

$L8UF,R2 

AND  BY  BUFFER  ADDRESS  FROM  THE  POOL 

BIT 

*1,R2 

IS  ADDRESS  ODD? 

SEC 

IN  CASE  IT  IS 

BNE 

10$ 

IF  NE,  YES 

CMP 

R2,$LBUF 

IS  ADDRESS  <  START  OF  BUFFER? 

BCS 

loi 

IF  CS,  YES 

CMP 

TA8END,R2 

SET  C-8IT  IF  ADDRESS  >  END  OF  BUFFER 

RETURN 


H  16 

MTIDFV  -  BUILD  DEVICE  DATA  STRU  MACRO  V05.03b  Saturday  29-Jun-85  00:30  Page  15 


MAPX    MACRO  V05.03b  Sunday  30-Jun-85  00:00  Page  4-1 


H  1 


58 

59  000000 


.PSECT   .MAPX 


NTL 

SyHB 

SYMB 

$CLQ 
$CLR 
$CLS 
$CLS 
$CLS 
SCLS 
$CLT 

sen 

SCLlo 
$PSH 
B$$A 
$$$C 
$$$T 
$$tT 
.FSR 
...F 

..F 

..f 


MAPX    MACRO  V05.05b  Sunday  30-Jun-85  C0:00  Page  5 
SMAPX  -  MAP  TO  EXTENDED  MEMORY 


I  1 


NTL 
MArc 


NTL 


CREATED  BY     MACRO     ON  29-JUN-85  AT   00:22 


SYMBOL    CROSS   REFERENCE 


H     2 

PAGE   2 

CREF       OA.OO 


NTLCI 
CESYf 


SYMBOL 

VALUE 

REFERENCES 

SCLQIO 

000122 

RG 

#5-64 

5-64 

tCLRTN 

-   ****** 

GX 

5-64 

SCLSBK 

000176 

RG 

5-64 

#5-6 

SCLSEF 

000156 

RG 

#5-64 

SCLSIZ 

=  000306 

RG 

#5-64 

SCLSRV 

000470 

RG 

#5-64 

SCLTBF 

000202 

RG 

#5-64 

SCLTSZ 

000204 

RG 

#5-64 

SCLWEF 

000152 

RG 

#5-64 

SPSHPT 

000174 

RG 

#5-64 

$$$ARG 

=  000003 

#5-64 

5-64 

#5-64 

5-64 

#5-64 

5-64 

#5-64 

5-64 

5-64 

$$$GLB 

=   *t***t 

5-64 

5-64 

5-64 

5-64 

5-64 

$$$T1 

=  000002 

#5-64 

$$$T2 

=  000166 

R 

#5-64 

5-64 

.FSRCB 

-     »**s  n * 

G 

5-65 

...PCI 

=  000266 

R 

#5-64 

5-64 

5-64 

5-64 

5-64 

5-64 

#5-64 

5-64 

5-64 

5-64 

5-64 

5-64 

#5-64 

5-64 

5-64 

...PC2 

=  000464 

R 

#5-64 

5-64 

#5-64 

5-64 

#5-64 

5-64 

#5-64 

5-64 

5-64 

#5-64 

5-64 

5-64 

#5-64 

5-64 

#5-64 

5-64 

#5-64 

5-64 

...PC3 

=  000266 

R 

#5-64 

5-64 

NTL  CREATED  BY      MACRO     ON  29-JUN-85   AT   00:22 


I     2 

PAGE   3 

CRFF         04.00 


NTLC' 
CESYI 


H  3 

NTLCEX  -  LOAD  COMM  EXEC  IMAGE   MACRO  V05.03b  Saturday  29-Jun-85  00:22 
CESYH  -  LOOK,  fOR  SPECIAL  SYMBOLS 


485 


438 

ADD 

#4,R0 

439 

MOV 

RO.RI 

(R0)+         ; 

440 

CLR 

441 

MOV 

R1,(R0) 

442 

443 

.ENDC 

444 

445  000446 

012700 

000226' 

MOV 

#16LK2,R0 

446  000452 

005760 

000002 

TST 

2(R0)          ; 

447  000456 

001406 

BED 

7$ 

448  000460 

016767 

OOOOOOG  OOOOOOG 

MOV 

SYSNM,$RSXNM 

449  000466 

105767 

OOOOOOG 

TSTB 

SRSXNM 

450  000472 

001421 

BEQ 

102$ 

451 

452 

.IF  DF 

R$$MPL 

453 

454 

7$: 

MOV 

#$CXU1C,R0 

455 

MOV 

#VEXNAM,R1 

456 

MOV 

#ST8EXT,R2 

457 

CALL 

$AZFS 

458 

MOV 

#VXBLK1,R0 

459 

CALL 

$SYMBL 

460 

BCS 

ST8ERR 

461 

462 
463 

464  000474 

.IFF 

012700 

000040' 

7$: 

MOV 

#C8LK1,R0 

465  000500 

005760 

000002 

10$: 

TST 

2(R0) 

466  000504 

001404 

BEQ 

20$ 

467  000506 

026060 

000010  000012 

CMP 

10(R0),12(RO> 

468  000514 

001005 

BNE 

101$ 

469  000516 

011000 

20$: 

MOV 

(RO),RO 

470  000520 

022700 

000120 

CMP 

#XBLK1,RC 

471  000524 

001365 

BNE 

10$ 

472 

473 

.IFTF 

474  000526 

RETURN 

475 

476 

.ENDC 

477 

478 

• 

479 
480 

481  000530 

;  ERROR 

CONDITIONS 

ioi$: 

EMSG$R 

48 

482  000536 

102$: 

EMSG$R 

QY 

483  000544 

016000 

000332' 

ST8ERR. 

MOV 

ET'i8'-2(R0),R0 

484  000550 

CALLR 

a(R0)+ 

Page  8-1 

ACCESS  $CMFRKt4 

SAVE  ADDRESS 

INITIALIZE  FORK  BLOCK  LISTHEAD 


POINT  TO  SYMBOL  BLOCK  FOR  SYSTEM  NAME 

IS  IT  DEFINED? 

BR  IF  NO  -  OK 

GET  SYMBOL  VALUE 

IS  DECNET  SUPPORTED? 

BR  IF  NO 


SETUP  ASCIZ  FILE  STRING 


GET  VECTORED  SYMBOL  BLOCK  ADDRRESSES 
DEFINE  SYMBOL  VALUES 
IF  ERROR  -  BRANCH 


START  AT  FIRST  SYMBOL  BLOCK 

IS  SYMBOL  DEFINED? 

IF  EQ,  NO  -  DON'T  WORRY 

DOES  VALUE  MATCH  TKB  DEFINITION? 

IF  NE,  NO  -  VERY  BAD 

GET  NEXT  SYMBOL  BLOCK  ADDRESS 

IS  IT  THE  FIRST  PROCESS  VERIFICATION  BLOCK? 

IF  NE,  NOT  A'  ""ND  OF  LIST 


NTLCE 
$ALTL 


CEX/RSX  INCOMPATIBLE 

DECNET  NOT  SUPPORTED 

GET  ERROR  MESSAGE  CONTROL  BLOCK  ADDRESS 

PRINT  ERROR  MESSAGE 


NTLCEX  -  LOAD  COMM  EXEC  IMAGE   MACRO  V05.03b  Saturday  29-Jun-85 
CESYM  -  LOOK  FOR  SPECIAL  SYMBOLS 


30:22  Page  9 


NTLCI 
$ALT1 


H  4 

NTLCEX  -  LOAD  COMM  EXEC  IMAGE   MACRO  V05.03b  Saturday  29-Jun-85  00:22 

SALTLC  -  SET  UP  XPT  CIRCUIT  COUNTER  BLOCK 


Page  18 


'FIl 


993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
10K 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
10'^9 


002314  012702  114224 


002320 
002324 
002330 
002332 
002344 
002346 
002352 
002356 


002360 
002362 
002364 
002370 
002372 
002400 
002402 
002406 
002412 
002414 
002416 
002420 
002422 
002424 
002426 
002432 
002434 
002436 
002440 
002442 
002444 
002446 
002452 
002456 
002460 
C02462 
002464 
002466 
0024  70 
002476 


.SBTTL  SALTLC  -  SET  UP  XPT  CIRCUIT  COUNTER  BLOCK 


SALTLC  -  SET  UP  CIRCUIT  COUNTER  BLOCK 

INPUTS: 

$$HTIM  -  HELLO  TIMER  VALUE 

$$LTIM  -  LISTEN  TIMER  VALUE 

.NBRA  -  BROADCAST  ROUTER  ADJACENCIES 

.RPRI  -  ROUTER  PRIORITY 

OUTPUTS: 

COUNTER  BLOCK  IS  SET  UP 


103006 

000404 
067702 
011267 


103540 
005000 
016704 
005001 
032764 
001402 
116401 
017703 
005046 
022304 
001402 
005216 
000774 
006316 
067716 
015604 
100004 
006304 
010403 
060004 
0114G4 
016702 
062702 
005046 
110416 
006316 
062602 
011204 
016067 
016067 


OOOOOOG 
000034' 


OOOOOOG 
000020  000000 


000014 
OOOOOOG 


OOOOOOG 


000034' 
OOOOOOG 


OOOOOOG  000024' 
OOOOOOG  000026' 


SALTLC  ::m0V  tt " RXP T  .R2 

SWSTKS  30$ 

CALL  aPDVID 

BCC  10$ 

RETC  RO 

BR  20$ 

10$:    ADD  aPDVTA,R2 

MOV  (R2),XPTP0V 
20$:    RETURN 

30$:    BCS  100$ 

CLR  RO 

MOV  SSLTA,R4 

CLR  R1 

BIT  #LF.MTP,L.FLG(R45 

BEQ  33$ 

MOVB  L.NSTA(R4),R1 

33$:  MOV  51SLT|V|A,R3 

CLR  -(SP) 

35$:    CMP  (R3)+,R4 

BEO  36$ 

INC  (SP) 

BR  35$ 

36$:    ASL  (SP) 

ADD  aLLCTA,(SP) 

MOV  a(SP)+,R4 

BPL  50$ 

ASL  R4 

MOV  R4,R3 

40$:    ADD  R0,R4 

MOV  (R4),R4 

50$:    MOV  XPTPDV,R2 

ADD  #Z.MAP,R2 

CLR  -(SP) 

MOVB  R4,(SP) 

ASL  (SP) 

ADD  (SP)+,R2 

MOV  (R2),R4 

MOV  $$HTIM(RO),HTIM 

MOV  $$LT1M(R0),LTIM 


GET  XPT'S  PROCESS  NAME 

ENTER  SYSTEM  STATE 
LOOK  FOR  XPT'S  PDV 
BR  IF  FOUND  IT 
ELSE  SET  USER  C-BIT 

INDEX  INTO  PDV  VECTOR  TABLE 
GET  PDV  ADDRESS 


BR  IF  XPT  NOT  FOUND???? 

ASSUME  POINT-TO-POINT  LINE 

GET  SLT  ADDRESS 

ASSUME  NOT  A  MULTIPOINT  LINE 

;  IS  THIS  A  MULTIPOINT  LINE? 

BR  IF  NO 

GET  NUMBER  OF  STATIONS 

POINT  TO  SLT  VECTOR  TABLE 

INITIALIZE  SYSTEM  LINE  NUMBER 

IS  THIS  THE  CORRECT  SLT? 

BR  IF  YES 

ELSE  UPDATE  SYSTEM  LINE  NUMBER 

AND  TRY  AGAIN 

MAKE  IT  A  WORD  INDEX 

INDEX  INTO  REVERSE  MAPPING  TABLE 

GET  CHANNEL  NUMBER  AND  PDV 

BR  IF  NOT  MULTIPOINT 

GET  STATION  TABLE  ADDRESS 

SAVE  STATION  TABLE  ADDRESS 

POINT  TO  CORRECT  ENTRY  IN  STATION  TABLE 

GET  CHANNEL  NUMBER  AND  PDV 

GET  XPT'S  PDV  ADDRESS 

POINT  TO  FORWARD  MAPPING  TABLE 

GET  CHANNEL  NUMBER 

MAKE  IT  A  WORD  INDEX 

POINT  TO  SLN,  STA  PAIR 

GET  SLN,  STA  PAIR 

GET  HELLO  TIMER  FOR  CURRENT  STATION 

GET  LISTEN  TIMER  FOR  CURRENT  STATION 


NN 

NN 

NN 

NN 

NNNN 

NNNN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 

NN 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLL 

LLLL 


NTLCEX 
$ALTLC 


I  4 


LOAD  COMM  EXEC  I.^'IAGE   MACRO  V05.03b  Saturday  29-Jun-(;5  00:22  Page  18-1 
SET  UP  XPT  CIRCUK  COUNT'.R  BLOCK 


NTLC 
Tabl 


H  5 


'FILE'MD**NTLCFG 


NTL 
REAl 


NN 

NN 

TTTTT 

TTTTT 

CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

MN 

NN 

TTTTT 

TTTTT 

CCCCCCCC   F 

FFFFFFFFF 

GGGGGGGG 

NN 

NN 

CC          F 

G6 

NN 

NN 

CC          F 

GG 

NNNN 

NN 

CC         F 

GG 

NNNN 

NN 

CC          F 

GG 

NN   NN  NN 

CC         F 

FFFFFFf 

GG 

NN  NN  NN 

CC          F 
CC         F 

FFFFFFF 

GG 

NN 

NNNN 

GG 

GGGGGG 

NN 

NNNN 

CC          F 

GG 

GGGGGG 

NN 

NN 

CC          F 

GG 

GG 

NN 

NN 

CC          F 

GG 

GG 

NN 

NN 

LLLLLLLLLL 

CCCCCCCC   F 

GGGGGG 

NN 

NN 

LLLLLLLLLL 

CCCCCCCC   F 

G 

GGGCG 

SSSSSSSS 

TTTTTTTTTT 

SS5SSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

NTLCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85 
Table  of  content? 


00:23 


NTL 
Q.. 


H  6 

NTLCFG  -  SCAN  CONF IGURAT ION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:25 
READ  -  READ  NEXT  RECORD 


Page  11 


NTL 
LLC 


434 
455 
436 
457 
458 
459 
440 
441 
442 
445 
444 
445 

446  001054 

447  001054 

448  001060 

449  001066 

450  001070 

451  001072 
452 

455 
454 
455 

456  001074 

457  001100 

458  001102 

459  001104 

460  ocino 

461  001112 

462  001120 


.SBTTL  i^EAD  -  READ  NEXT  RECORD 


READ  -  READ  NEXT  RECORD  FROM  CONFIG  FILE 

INPUTS: 

NONE 

OUTPUTS: 

C-B1T=SUCCESS/FAILURE 
CFGSZ=RECORD  LENGTH 


016700 
016067 
105710 
100401 


122710 
000261 
001773 
122710 
001405 


OOOOOOG 

000002  000352' 


OOOOOOG 
OOOOOOG 


READ: 


10$: 


GCL$ 

.■10V 

MOV 

TSTB 

BMI 

RETURN 


,*CFGBF,#132. 

$CLI0S,R0 

2(R0),CFGS2 

(RO) 

101$ 


READ  NEXT  RECORD 
GET  GCL  lOSB  ADDRESS 
SET  RECORD  LENGTH 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 


ERROR  CONDITIONS 


1011 


CMPB 

SEC 

BEQ 

CMPB 

BEQ 

EMSGSR 

EMSG$R 


#]E.EOF,(R0) 

IS  IT  END  OF  FILE? 

ASSUME  THAT  IT  IS 

10$ 

IF  EQ,  YES  -  RETURN  WITH  C-BIT  SET 

#IE.RBG,(R0) 

IS  IT  BUFFER  TOO  SMALL? 

111$ 

IF  EQ,  YES 

10 

READ  FAILURE 

1R 

READ  OVERFLOW 

NTLCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:?3  Page  12 
Q»«»  -  LOOH,  FOR  »«»tDF  MACRO 


u, 


Nil 
FNC 


NTLCFG  -  SCAN  CONFIGURATION  FIL 
LLCSDF  ACTION  ROUTINES 


?8A 
785 
786 
787 
788 
789 
790 
791 
792 
793 
79*; 
795 
796 
797 
798 
799 
800 
801 
802 
803 
80A 
805 
806 
807 
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.SBTTL  LLCSDF  ACTION  ROUTINES 


NTl 
Tat 


00166A  116767  OOOOOOG 
001672 


001674  116767  OOOOOOG 
001702 


001704  005767  OOOOOOG 

001710  001004 

001712  016767  OOOOOOG 

001720 

001722 


FIRST  CHARACTER  OF  DEVICE  NAME  (LLCSDF) 


OOOOOOG  L.CHI: 


MOVB 
RETURN 


.PCHAR,$$DEV    ;  COPY  THE  CHARACTER 


SECOND  CHARACTER  OF  DEVICE  NAME  (LLCSDF) 

000001G  L.CH2:   MOVB    .PCHAR,SSDEV+1   ;  COPY  SECOND  CHARACTER 
RETURN 


COUNTER  TIMER  (SLTSDF) 


L.CTIM:  TST  .PNUMH 

BNE  101S 

OOOOOOG        MOV  .PNUMB,SCTIM 
RETURN 

101S:    EMSGSR  YR 


809 

810  001730     017700 

811  001734     016760 

812  001742 
813 

814 


OOOOOOG 
OOOOOOG 


ECL  SEGMENT  SIZE 


aDECPT,RO 


VALID  COUNTER  TIMER  VALUE? 

BR  IF  NO 

ELSE  SAVE  COUNTER  TIMER  VALUE 

ILLEGAL  COUNTER  TIMER  VALUE 


COPY  HOME  BLOCK  ADDRESS 


L.SEG:  MOV     .  _ 

000036         MOV     .PNUMB,DSSEG(RO);  STORE  SEGMENT  SIZE 
RETURN 


I     7, 
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Table  of  contents 


NTL 
CER 


5- 
6- 


9- 

10- 
11- 


1A- 
U- 
15- 


54 
75 


7-  100 
268 


41? 
445 
477 


12-  5U 

12-  519 

12-  520 

13-  574 
15-  575 


594 
595 
631 


16-  658 
19-  770 

21-  899 

22-  921 

23-  964 

24-  1017 

25-  1046 

26-  1105 

27-  1133 

29-  1239 

30-  1265 

31-  1299 


MACRO  DEFINTIONS 

LOCAL  DATA 

ERROR  MESSAGES 

SNTICF  -  PROCESS  CETAB  FOR  MISSING  PARAMETERS 

OPEN  -  OPEN  THE  CONFIG  FILE 

READ  -  READ  NEXT  RECORD  FROM  CETAB 

Q»**  -  LOOK  FOR  «*«$DF  MACRO 

CERR  -  PRINT  ERROR  MESSAGE 

CFERR  -  PRINT  FILE  ASSOCIATED  ERROR  MESSAGE 

CWARN  -  PRINT  WARNING  MESSAGE 

CFLIN  -  ECHO  THE  LAST  RECORD  READ 

FNLIN  -  ECHO  FILE  NAME  AND  LAST  RECORD  READ 

REP8B  -  REPLACE  PARTITION  NAME 

REP8C  -  REPLACE  REGION  NAME 

REP.NN  -  REPLACE  SIGNED  DECIMAL  NUMBER 

REPND  -  REPLACE  NODE  NAME 

TPAR5  STATE  TABLES  -  SERSDF 

TRAPS  STATE  TABLES  -  BUFSDF 

TPARS  STATE  TABLES  -  PARSDF 

TPARS  STATE  TABLES  -  NODSDF 

TPARS  STATE  TABLES  -  LLCSDF ,DLC$DF ,DDM$DF 

TPARS  STATE  TABLES  -  SLTSDF 

STA$DF,ADD$DF  STATE  TABLES 

TPARS  STATE  TABLES  -  OBJ$DF 

TPARS  STATE  TABLES  -  REMSDF 

TPARS  STATE  TABLES  -  EVTSDF 

TPARS  STATE  TABLES  - 
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CERR  -  PRINT  ERROR  MESSAGE 
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NTL( 
TPAf 


518 
519 
520 
521 
522 
523 
52A 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 

537  000732 

538  000732 

539  000736 

540  000740 

541  000742 

542  000742 

543  000744 

544  000750 

545  000752 

546  000752 

547  000754 

548  000756 

549  000762 

550  000764 

551  000766 

552  000770 

553  000772 

554  000774 

555  000776 

556  001000 

557  001002 

558  001004 

559  001006 

560  001010 

561  001014 

562  001016 

563  001020 

564  001024 

565  001026 

566  001030 

567  001032 

568  001034 

569  001036 

570  C01042 

571  001044 
572 


.S8TTL  CERR  -  PRINT  ERROR  MESSAGE 

.SBTTL  CFERR  -  PRINT  FILE  ASSOCIATED  ERROR  MESSAGE 

.SBTTL  CUARN  -  PRINT  WARNING  MESSAGE 


CERR  -  PRINT  ERROR  MESSAGE 

CFERR  -  PRINT  FILE  ASSOCIATED  ERROR  MESSAGE 

CWARN  -  PRINT  WARNING  MESSAGE 


INPUTS: 

RO=HESSAGE  BLOCK  ADDRESS 

OUTPUTS: 

C-8IT=SET  IF  ERROR  MESSAGE 

RETURN  TO  SNTICF'S  CALLER  OR  BACK  TO  CALLER 


005046 
000405 

010046 

012600 

010746 

010005 

012704  000022' 

012503 

105713 

001403 

112324 

001376 

005304 

012503 

112524 

001376 

005304 

012700  000012' 

010401 

160001 

005703 
001401 

005726 

001403 

016706  002446' 

000261 


RTSPC: 


.ENABL  LS8 


CWARN: 

CALL 

$SAVAL 

CLR 

-(SP) 

BR 

5$ 

CERR:: 

MOV 

RO,-(SP) 

CALL 

$CLDEQ 

MOV 

(SP)+,RO 

CFERR: 

MOV 

PC,-(SP) 

5$: 

MOV 

R0,R5 

MOV 

#ERRBUF,R4 
(R5)+,R3 

MOV 

CALL 

S(R5)+ 

TST8 

CR3) 

BEQ 

20$ 

10$: 

MOVB 

(R3)t,(R4)+ 

BNE 

10$ 

DEC 

R4 

20$: 

MOV 

(R5)+,R3 

30$: 

MOVB 

(R5)+,(R4)+ 

30$ 

R4 

MOV 

#ERRMSG,RO 

MOV 

R4,R1 

SUB 

R0,R1 

CALL 

$TIOUT 

TST 

R3 

BEQ 

40$ 

CALL 

CR3) 

40$: 

TST 

(SP)  + 

BEQ 

RTSPC 

MOV 

SPSAV,SP 

SEC 

RETURN 
.DSABL 


LSB 


SAVE   ALL   REGISTERS 
WARNING  MESSAGE 
JOIN  COMMON   CODE 

SAVE  RO 

CLOSE  THE  CONFIG  FILE 

RESTORE  RO 

ERROR  MESSAGE 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  YES 

ELSE  COPY  REST  OF  FORMAT  STRING 

SKIP  THE'ZERO  BYTE 
GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  the"zero  byte 

GET  ERROR  MESSAGE   ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT    IT 

SHOULD   SECOND  LINE   BE  PRINTED? 

IF  EQ,  NO 

PRINT  SECOND  ERROR  MESSAGE  LINE 

ERROR  OR  WARNING  MESSAGE  ? 

IF   EQ,    WARNING 

RESTORE    SP  FROM  ENTRY 

RETURN   C-BIT   SET 
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96A 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 


001252 

001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 


001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 


.S8TTL      TPARS   STATE    TABLES   -  NODSDF 
HARKED-FOR-LOAD/ENABLE   SCAN 
STATES     MFLDF 


TRANS 

XLLCSDFX,PRODF, 

I.SVNERR 

TRANS 

XDLCSDFX,PRODF, 

1,SYNERR 

TRANS 

XDDMSDF?:, PROOF, 

I.SVNERR 

TRANS 

XSLTSDFX.SLTDF, 

I.SVNERR 

TRANS 

XSTASDFX.STADF, 

I.SVNERR 

TRANS 

5:ADDSDF%,ADDDf , 

I.SVNERR 

TRANS 

X08J$DFX,OBJD' , 

I.SVNERR 

TRANS 

XREMSDFX.REMDf, 

I.SVNERR 

TRANS 

3!EVTSDFZ,EVTDF, 

I.SVNERR 

TRANS 

XLOGSSTX.LOGST, 

I.SVNERR 

TRANS 

XSERSDFX.SERDF, 

I.SVNERR 

TRANS 

XF]LSDF%,FILDF, 

I.SVNERR 

TRANS 

XN0D$DFX,,,1,SYNERR 

;  NODSDF 

STATES 

TRANS 

LBRA,,N0DNM 

STATES 

TRANS 

!N0DDF1 

STATES 

TRANS 

<',> 

STATES 

TRANS 

LeRA,,N0DID 

STATES 

TRANS 

IN0DDF1 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUI«IBR,,NODARE 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SNUMBR,,NO0NUM 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR,,HSTARE 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SNUMBR.SEXIT.HSTNUM 

STATES 

N0DDF1 

TRANS 

RBRA.SEXIT.STRCH 

TRANS 

SANY.NODDFl 
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NTLC 


N$$MOV= 

N$$NCT= 

N$$PEM= 

OBJDF 

0BJ2 

OPEN 

CUTT   = 

o.cpy  = 

O.END  = 

O.FlAG= 

O.NAME= 

O.NUM  = 

O.VFY  = 

PARDF 

PARDF1 

PARDF2 

PARDF3 

PARDFi 

PARDF5 

PAS    = 

PDVNM  = 

PDVTA  = 

PRMFL  = 

PROOF 

PROOF  1 

PR0DF2 

PRONM  = 

P$$P45= 

P$$WRD= 

P. ALL  = 

P. END  = 

P.FUDG= 

P. NONE = 

P.PAR1= 

P.PAR2= 

P.UMR  = 

QBUF 

OMFL 

QPAR 

QROU  = 

Q$$OPr= 

RBRA   = 

READ 

REMOF 

REPND 

REP.NN 

REP8B 

REP8C 

RETF   = 

RTSPC 

.  ABS. 

DATA 
SSTATE 
SKTAB 
SKSTR 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


000010 

00000 1 

000001 

00163AR 

001660R 

00051  OR 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

00065;R 

000704R 

000726R 

000750R 

00077'!,R 

001006R 

******  GX 

******  GX 

******  (3x 

******  GX 

001262R 

001270R 

001320R 

******  GX 

000000 

000000 

***♦■»* 
****** 
****** 

****** 
*♦****■ 
****** 

****** 

0006A4R 

000660R 

000652R 

******  GX 

000010 

000076 

000552R 

0020C6R 

001174RG 

001136RG 

001066RG 

001066RG 

******  GX 

001044RG 

177776 
001252 
002466 
002116 
000070 
000277 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


R$$DER= 
R$$K11= 
R$$SND-^ 
003  R$$11M=- 
003  R.ARE  = 
R.NAME= 
R.NUM  = 
SCHEL 
SCHELO 
SCTIM 
SERADD 
SERBEG 
SERCIR 
003  SERCR  = 
003  SERCUR 
003  SERDCT 
003  SERDEV 
003  SERDF 
003  SERDMP 
SERDV  = 
SEREND= 
SERFIN 
SERFLG 
003  SERHST 
003  SERINI= 
003  SERMUL= 
SERMUX^ 
SERNOD 
SEROFF 
SERPAS 
SERSLN^ 
SERSLT 
SERST 
SERTMP 
SERUNI= 
SF.ACT= 
SF.CIR= 
SF.DEV= 
SF.DIA= 
SF.DPA= 
SF.DPC= 
SF.DUM= 
SF.ENA= 
003  SF.HAD= 
SF.HST= 
SF.LOA= 
SF.LPB= 
SF.MFL= 
SF.PAC= 
SF.PH3= 


000000 

000001 

000000 

000000 

******  GX 

******  GX 

******  GX 

001516R 

001506R 

001474R 

002040RG 

00201  ORG 

002016RG 

******  GX 

0021 56RG 

002036R6 

002020RG 

0002UR 

002032RG 

******  GX 

******  GX 

002166R6 

00201  ORG 

0020URG 

******  GX 

******  GX 

******  GX 

002012RG 

0021 60RG 

002022RG 

******  GX 

002162RG 

000544R 

00204 6RG 

******  GX 

000200 

000010 

000020 

004000 

000100 

000200 

010000 

000100 

000004 

000002 

002000 

0U0004 

000040 

000020 

020000 


000  (RW,I,GBL,ABS,OVR) 

001  (RW,I,LCL,REL,CON) 

002  (RW,D,LCL,REL,CON) 

003  (RU,D,LCL,REL,CON) 

004  (RW,D,LCL,REL,CON) 

005  (RlJ,D,LCL,REL,CON) 


SF.PSS= 
SF.REA= 
.SEC= 
.SER= 
.SVC  = 
.TER 


SF 

SF 

SF 

SF 

SF.UNL= 
003  SLTDF 
003  SLTDF1 
003  SLTDF2 
002  SLTDF3 
002  SLTMA  = 
002  SLTNM  = 

SPSAV 
002  STADF 
002  STADF1 

002  STAN 

003  STRADD 
002  STRCH  = 

STRPT 
STRSIZ 
002  SYNERR 
002  S$$URG= 
"""  S$$YSZ= 
S.ADD 
S.8RA  = 
S.CJR 
S.COST 
002  S.CT]M= 
002  S.CTL  = 

S.DEV 

002  S.DIA 

S.DPA 

S.DPC 

S.DUM 

S.FLAG 

S.FLG 

S.HAD 

S.HST 

S.LEN 

S.LENG 

S.LNK 

S.LOA 

S.NAME= 

S.NMST 

S.OWNR 

S.PSS 

S.SEC 

S.TER 


002 


002 


003 
002 


000040 

000010 

000400 

000001 

000002 

001000 

000040 

001350R 

001426R 

001434R 

001374R 

*»*•*»  GX 

******  GX 

002446R 

001544R 

001562R 

002002RG 

002232RG 

******  GX 

002234RG 

002104RG 

002452RG 

000000 

007600 

000004 

******  GX 

000016 

000001 

******  GX 

******  GX 

000020 

000046 

000032 

000036 

000050 

000002 

000000 

000010 

000006 

000004 

000052 

000000 

000044 

******  GX 

000002 

000003 

000022 

000040 

000042 


S.UNT 

TER 

TOK 

T$$KMG^ 

T$$MIN: 

UIC 

UIC8UF 
003  UISZ  ■ 
003  USRUIC^ 
003  USRUII^ 
003  V$$CTR^ 

XPTLLN 

X$$DBT 

002  X.FLG 

003  ZF.MFL 
003  ZSS 
002  Z.FLG 
002  SALPHA 

$ANY 
002  $AZFS 
002  SBLANK 
002  SCBDSG 
SCFUIC 
SCLBUF 
SCLDEQ 
SCLIOS 
SCLQUE 
SCLSIZ 
$C5TA  ■■ 
SDIGIT^ 
SDNUMB^ 
$E0S  ■ 
SERRXA 
SERRXB 
JERRXC 
SERRXD 
SERRXE 
SERRXF 
SERRXG 
SERRXH 
SERRXI 
SERRXJ 
SERRXK 
SERRXL 
SERRXM 
SERRXO 
lERRXP 
SERRXO 
SERRXR 


=  ****** 


GX 
000024R 
000152R 
000000 
000000 
000132R 
002106RG 
000014  G 
******  GX 
******  GX 
001000 
002456RG 
000000 
******  GX 
******  GX 

******  GX 
000022 
000020 
****** 

000006 


GX 


=  ****** 
****** 
****** 

=  ****** 
****** 
****** 
****** 


****** 

000024 

000014 

000012 

000300RG 

000324RG 

000412RG 

000440RG 

000474RG 

000532RG 

000570RG 

000614RG 

000640RG 

000664RG 

000724RG 

000754RG 

001014RG 

001114RG 

001164RG 

001234RG 

001300RG 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


SERRXS 

003  SERRXT 

003  SERRXU 

SERRXV 

SERRXW 

003  SERRXX 

002  SERRXY 

SERRIP 

SERRIQ 

SERRIR 

SERRIT 

002  SERRIZ 
SEXIT  = 
SFAIL  = 
$FLAGS= 

003  $FN0UT= 
SFUNC  = 
$GCLEP= 
$LAMDA= 
SLSTAD 
SLSTRM 
SWISS  = 
SNTJCF 
$NUMBR= 
SQBRA  = 
SQOEC  = 
SOMLMC= 
SQXPT  = 
$RAD50= 
SREP.N= 
$RSXNM= 
$SAVAL= 

002  SSTRNG= 
002  SSUBXP= 
002  $TIOUT= 
002  $$SFLG= 
002  S$SKEY= 
002  S$SSTA= 
002  S$STMP= 
002  .BRAD 
.FLBKO= 
.FLBK1= 
.FLBK2= 
.FLBK3= 
.FLBK4= 
.fUDGE= 
.NOMAP= 
.ROBSZ= 
.TPARS= 


002 
002 
002 
002 
002 
002 
002 
002 
002 


GX 
GX 
GX 
GX 


001344RG 

00U12RG 

001470RG 

001054RG 

001604RG 

001646RG 

001536RG 

0001 30RG 

000166RG 

000224RG 

000252RG 

000342R6 

000000 

177777 

****** 

****** 

****** 

****** 

000000 

002006RG 

002004RG 

******  GX 

OOOOOORG 

000002 

****** 
****** 
****** 
****** 

000016 

****** 

****** 

****** 

000004 

000010 

******  GX 

177777 

000033 

000000 

000267R 

002464RG 

******  GX 

******  GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 


002 
002 


005 
002 
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NTL 
COf 


1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
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50 


.TITLE  NTLCFP  -  SCAN  CONFIGURATION  FILF  FOR  INITIALIZATION 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILF  <^.rAN  FOR  PSI  PORTION  OF  "SET  CEX" 

DISTRIBUTED  SYSTEMS  SC  JARE  ENGINEERING 

IDENT  HISTORY: 

1.00  15-JAN-81 

VERSION  3.1  RELEASE 

3.00  16-APR-82 

DECNET-11M  V3.1 
0ECNET-11M-PLUS  Vl.l 

4. CO  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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A95  000676 


20$: 


RETURN 


NN 
NN 

V' 

Nr 
W 

N^ 
N^ 
N^ 
N^ 

N* 

w 
w 
w 
w 


LL 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
LI 
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nc  ri  I  r  t  TC 


iM  Drn  cnDMAT 


Nl 


L 


,.FILE«*ID'«NTLCSR 


H  U 


NN      NN 

TTTTT 

TTTTT 

CCCCCCCC 

ssssssss 

RRRRRRRR 

NN      MN 

TTTTT 

TTTTT 

CCCCCCCC 

ssssssss 

RRRRRRRR 

\-,      NN 

ss 

RR      RR 

Ni'i      NN 

ss 

RR      RR 

NNNN    NN 

ss 

RR      RR 

NNNN    NN 

ss 

RR      RR 

NN  NN  NN 

ssssss 

RRRRRRRR 

NN  NN  NN 

ssssss 

RRRRRRRR 

NN    NNNN 

ss 

RR  RR 

NN    NNNN 

ss 

RR  RR 

NN      NN 

ss 

RR    RR 

NN      NN 

ss 

RR    RR 

NN      NN 

LLLLLLLLLL 

CCCCCCCC 

ssssssss 

RR      RR 

NN      NN 

LLLLLLLLLL 

CCCCCCCC 

ssssssss 

RR      RR 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

_L 

SS 

LL 

SS 

LL 

SS 

.L 

SSSSSS 

LL 

SSSSSS 

LL 

ss 

LL 

SS 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

I  H. 
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LOCAL  DATA 


it 


119 

120  000166 

121 

122 

123 

12^. 

125  000170 

126 

127 

128 

129 

130  000172 

131 

132 

133 

13'. 

135  00017^ 

136 

137 

138 

139 

HO 

1A1 

U2 

K3 


FOUND:   .BLKW   1 

TKB  BASE  ADDRESS  OF  XXXTAB.TSK  FILE 
BASE:    .8LKW   1 


;  NUMBER  OF  UNITS 

UNITS:   .BLKW 

1 

;  END  OF  TABLES 

ADDRESS 

TABEND:  .BLKW 

1 

.IFF 

;  DF  R$$11M 

REQUES;  RQST$ 

XX 

DEVNAM:  .ASCII 

/XX./ 

DPB  TO  REQUEST  DEVICE  DRIVER 

FIRST  THREE  CHARACTERS  OF  DEVICE  NAME 


I   15 
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L 


NTLDEV 
SNLCDD 

6A5 

6A5 

6^6 

bl^l 

6i8 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

66A 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 
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CALL  DRIVER  AT  POWERFAIL  ENTRY 


.Sem  SNLCDD  -  CALL  DRIVER  AT  POWERFAIL  ENTRY 


SNLCDD  -  CALL  DEVICE  DRIVER  AT  POWERFAIL  ENTRY  (UNMAPPED  ONLY) 

THIS  ROUTINE  IS  USED  TO  CALL  THE  LLC'S  DEVICE  DRIVER  AT  HIS  POWERFAIL 
ENTRY  POINT  FOR  ALL  UNITS  WHICH  HAVE  THE  UC.PWF  BIT  SET  IN  U.CTL. 


INPUTS: 


R3=DCB  ADDRESS 

R4=NUM8ER  OF  UNITS  TO  SCAN 

R5=FIRST  UC8  ADDRESS 


OUTPUTS: 

NONE 


.IF  NDF  MSSMGE 


SNLCDD: 
10$: 


20$: 


30$: 


SWSTK$ 

MOV 

BITS 

BEQ 

MOV 

MOV 

MOV 

MOV 

M0V8 

CALL 

MOV 

MOV 

MOV 

ADD 

DEC 

BNE 

TST 

RETURN 

.ENDC 


30$ 

R4,-(SP)       : 

#UC.PWF,U.CTL(R5) 

20$ 

R3,-(SP) 

R5,-(SP) 

D.DSP(R3),R2 

U.SC6(R5),R4 

S.CON(R4),R3 

aD.VPWF(R2) 

{SP)+,R5 

(SP)+,R3 

$FEATR,U.CW3(R5) 

O.UC8L(R3),R5 

(SP) 

10$ 

(SP)t 


ENTER  KERNEL  MODE 

SAVE  UNIT  COUNT 
;•  CALL  DRIVER  AT  POWERFAIL  ENTRY? 

IF  EQ,  NO 

SAVE  DCB  ADDRESS 

AND  UCB  ADDRESS 

GET  DISPATCH  TABLE  ADDRESS 

SCB  ADDRESS 

AND  CONTROLLER  INDEX 

CALL  DRIVER  AT  POWERFAIL  ENTRY 

RESTORE  UCB  ADDRESS 

AND  DCB  ADDRESS 
*  SETUP  THE  FEATURES  WORD 

GIVING  NEXT  UCB  ADDRESS 

ALL  DONE? 

IF  NE,  NO 

PURGE  STACK 

BACK  TO  USER  MODE  AND  THEN  TO  CALLER 
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MAPX 
$MAPX 


MACRO  V05.03b  Sunday  30-Jun-85  C0:00  Page  5 
MAP  TO  EXTENDED  MEMORV 


I  1 


61 
6? 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
§5 


88 
89 
90 
91 
92 
93 
94 
95 


.SBTTL  $MAPX  -  MAP  TO  EXTENDED  MEMORY 

$MAPX  -  Map  to  extended  rnemory  using  one  of  the 
task's  APRS  (co-routine) 

Note  -  this  routine  must  be  caUed  on  kernel  stack 

Inputs: 

RG^Extended  memory  bias 

Outputs: 

R1=Mappina  register  in  use 
R2=Mapping  bias  to  be  used  by  caller 


000000 


000000  016701  OOOOOOG 
000004  012702  120000 


$MAPX : 


.IF 

MOV 
MOV 

,IFF 

MOV 
MOV 


NDF,S$$BAS8R$$PR0 


ISAR5,R1 
#120000, R2 


ISAR6,R1 
#140000, R2 


;*  KISAR5  is  f-rst  task  APR 
;•  Use  APR5 


:*  KISAR6  is  second  task  APR 
r*  Use  APR6 


.ENDC   ;NDF,S$$BAS&R$$PRO 


000010  010167  000000' 

000014  011167  000002' 

000020  010011 

000022 

000024  016777  000002'  000000' 

000032 


MOV 

MOV 

MOV 

CALL 

MOV 

RETURN 


RI.APR 

(RD.APRSV 

R0,(R1) 

a(SP)t 

APRSV,aAPR 


Set  mapping  register  address 

3ave  mapping  register  contents 

Map  to  extended  memory 

Call  the  caller  back 

Restore  maoping  register  contents 

Back  to  user  mode 


.<1APX 
SMAPXP 


MACRO  V05.03b  Sunday  30-Jun-85  00:00 
-  MAO   TO  EXTENDED   POOL 
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NTL 

CREATED  BY 

MACRO  ON  29- 

-JUN-85  AT 

00:22    P 

MACRO  CROSS 

REFERENCE 

C 

MACRO  NAME 

REFERENCES 

ALUN$ 

#5-64 

5-64 

BDOFFt 

#5-65 

CBVTEI 

#5-64 

5-64 

5-64 

#5-64 

CSI$ 

#5-64 

5-64 

CUORDS 

#5-64 

5-64 

5-64 

5-64 

DEF$L 

#5-65 

D1R$ 

#5-64 

FDBDFS 

#5-64 

5-64 

FDBSZS 

#5-64 

5-64 

FDOFFS 

#5-64 

5-64 

#5-64 

5-64 

FDOPSA 

#5-64 

5-64 

FDRCSA 

#5-64 

5-64 

FSRSZS 

#5-59 

5-65 

GCLDFS 

#5-59 

5-64 

GCL$ 

#5-64 

GMCR$ 

#5-64 

5-64 

NBOFFS 

#5-64 

5-64 

NMBLKS 

#5-64 

5-64 

OFF$ 

#5-64 

#5-64 

#5-64 

#5-64 

QDPBS 

#5-64 

5-64 

QIO$ 

#5-64 

5-64 

RAD50$ 

#5-64 

5-64 

5-64 

SETF$ 

#5-64 

5-64 

WTSES 

#5-64 

5-64 

I    2 

PAGE   3 

CREF        04.00 


5-64 
#5-64 


NTLC! 
CESYf 


5-64 


5-64 


#5-64 


5-64 


5-64 


#5-64 


♦♦F[LE««ID"NTLCEX 
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NTLC 
DECB 
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NTLC 
SALT 


A87 
A88 
489 
490 

.SBTTL 

DECBLK  -  SET 

UP  DECNET  HOME  BLOCK 

491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 

DECBLK  -  SET 

UP  DECNET  HOME 

BLOCK  POINTER 

INPUTS:  NONE 

OUTPUT:  SDECPT  DECNET  HOME 

BLOCK  POINTER  SET  UP 

000552 

010146 

)ECeLK: 

MOV 

R1,-(SP) 

SAVE  R1 

502 

000554 

010246 

MOV 

R2,-(SP) 
#DiEND,R1 

SAVE  R2 

503 

000556 

012701 

000104 

MOV 

BLOCK  SIZE  TO  ALLOCATE 

504 

000562 

005000 

CLR 

RO 

ASSUME  ALLOCATION  FAILURE 

505 

000564 

SWSTKS 

20$ 

ENTER  SYSTEM  STATE 

506 

000570 

CALL 

aALOCS 

ALLOCATE  DECNET  HOME  BLOCK 

507 

000574 

103433 

BCS 

10$ 

IF  ERROR  -  BRANCH 

508 

000576 

010066 

000002 

MOV 

R0,2(SP) 

INDICATE  SUCCESS 

509 

000602 

105020 

5$: 

CLRB 

INIT  BLOCK 

510 

000604 

005301 

DEC 

R1 

ANY  LEFT  ? 

511 

000606 

001375 

BNE 

5$ 

IF  YES  -  BRANCH 

512 

000610 

016677 

000002 

OOOOOOG 

MOV 

2(SP),aDECPT 

SET  UP  HOME  BLOCK  POINTER 

513 

000616 

017700 

OOOOOOG 

MOV 

SDECPT, RO 

514 

000622 

010001 

MOV 

RO.fil 

SET  UP  REMOTE  BLOCK  LISTHEAD 

515 

000624 

062701 

000004 

ADD 

#D$RNNt2,R1 

516 

000630 

010160 

000002 

MOV 

R1,D$RNN(R0) 

517 

000634 

112760 

000252 

000024 

M0V8 

#252,D$HI0R(R0) 
#0,D$HIOR+1(R0) 

SET  UP  HI-ORDER  BYTES  OF  ETHE 

518 

000642 

112760 

000000 

000025 

MOVS 

519 

000650 

112760 

000004 

000026 

MOVB 

*4,D$HIOR+2(R0) 

520 
521 
522 

000656 

112760 

000000 

000027 

M0V8 

#0,D$HIOR*-3(R0) 

000664 

10$: 

RETURN 

523 

000666 

012602 

20$: 

MOV 

{SP)+,R2 

RESTORE  R2 

524 

000670 

012601 

MOV 

(SP)+,R1 

RESTROE  R1 

525 

000672 

005700 

TST 

RO 

HOME  BLOCK  ALLOCATION  FAILURE 

526 

000674 

001001 

BNE 

25$ 

IF  NOT  -  BRANCH 

527 

000676 

000261 

SEC 

INDICATE  ERROR 

528 

000700 

25$: 

RETURN 

NTLCEX  -  LOAD  COMM  EXEC  IMAGE   MACRO  V05.O3b  Saturday  29-Jun-85  00:22  Page  10 
DECBLK  -  SET  UP  DECNET  HOME  BLOCK 


NTLCI 
Symbi 


NTLCEX  - 
tALTLC  - 

1050 

1051 

1052 

1053 

105^ 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

106A 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

107A 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 


I  4 

LOAD  COMM  EXEC  IMGE   MACRO  V05.03b  Saturday  29-Jun-o5  00:22  Page  18-1 
SET  UP  XPT  ClRCUi:  COUNT'.R  BLOCK 

002504 
002512 


NTLC 
Tabl 


016767  OOOOOOG  000032' 
016767  OOOOOOG  000030' 


002520  016702  00003A' 
002524 


002530 
002534 
002540 
002544 
002552 
002556 
002566 
002570 
002572 
002574 
002576 
002602 
002606 
002610 
002612 
002620 
002626 
002634 

002642 
002646 

002650 
002654 
002656 
002660 
0C2662 
002664 


016202  OOOOOOG 

016203  000100 

016202  000104 


005712 
100407 
020412 
001406 
062702 


60$: 


000046 


000415 

010412  70$: 

016762  000024'  000030  80$: 

016762  000026'  000032 

016762  000032'  000042 

016762  000030'  000040 


062700  000002 

010304 

005301 

005270 

000241 


000001 


85$: 


90$: 


100$: 


MOV 

.NBRA.NIRO 

MOV 

.RPRI  NIPR 

MOV 

XPTPDV,R2 

SWSTK$ 

90$           ;  ; 

SAVMAP 

MOV 

Z.DAT(R2),R2 

MOV 

N$TLC(R2).R3 

MAP 

N$TLC+2(R2) 

MOV 

N$TLC+4(R2),R2  ;; 

BIAS5 

R2 

TST 

(R2) 

BMI 

70$ 

CMP 

R4.(R2) 

8EQ 

80l 

ADD 

#T$LLEN,R2 

SOB 

R3,60$ 

BR 

85i 

MOV 

R4,(R2) 

MOV 

HTIM,T$T5(R2) 

MOV 

LTIM,T$T6(R2) 

MOV 

N1R0,T$NRNI(R2);; 

MOV 

NIPR,T$RPRI(R2);; 

RESMAP 

RETURN 

ADD 

#2,R0 

MOV 

R3,R4 

DEC 

R1 

BGT 

40$ 

CLC 

; 

RETURM 

.END 


STORE  ROUTER  ADJACENCJFS  VALUE 
STORE  ROUTER  PRIORITY  VALUE 

GET  XPT'S  PDV  ADDRESS 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

GET  ADDRESS  OF  XPT'S  DDB 

GET  NUMBER  OF  COUNTERS 

MAP  TO  COUNTER  BLOCK 
GET  VIRTUAL  ADDRESS 

BIAS  COUNTER  BLOCK  ADDRESS 

HAS  THIS  BLOCK  BEEN  ASSIGNED  ALREADY? 

BR  IF  NO  -  USE  IT 

ELSE  IS  THIS  THE  CORRECT  ENTRY? 

BR  IF  YES 

POINT  TO  NEXT  COUNTER  BLOCK 

CHECK  ALL  COUNTER  BLOCKS 

BR  IF  UNABLE  TO  ALLOCATE  COUNTER  BLOCK 

STORE  CHANNEL  NUMBER  AND  PDV 

STORE  HELLO  TIMER 

STORE  LISTEN  TIMER 
STORE  BROADCAST  ROUTER  ADJACENCIES 
STORE  ROUTER  PRIORITY 

RESTORE  PREVIOUS  MAPPING 


UPDATE  OFFSET  FOR  NEXT  STATION  ENTRY 
RESTORE  STATION  TABLE  ADDRESS 
MORE  STATIONS  TO  CHECK? 

SUCCESSFUL  COMPLETION 


NTLCEX  -  LOAD  COMM  EXEC 
Symbol  table 
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NTLCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85 
Table  of  contents 


00:23 


NTL 


5-  58 

6-  79 

7-  91 

8-  164 

9-  210 

10-  409 

11-  434 

12-  464 

13-  505 
13-  506 


14- 
14- 
15- 
16- 
17- 
18- 
19- 
20- 


25- 
26- 


545 
546 
563 
592 
623 
633 
679 
690 


21-  738 

22-  751 

23-  768 

24-  784 


516 
851 


MACRO  DEFINITIONS 

CONSTANT  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

SNLCFG  -  PROCESS  CONFIGURATION  FILE 

OPEN  THE  CONFIGURATION  FILE 

READ  NEXT  RECORD 

LOOK  FOR  »**$DF  MACRO 
CERR  -  PRINT  ERROR  MESSAGE 
CFERR  -  PRINT  FILE  ASSOCIATED  ERROR  MESSAGE 
CFLIN  -  ECHO  LAST  RECORD 
FNLIN  -  ECHO  FILE  NAME  AND  LAST  RECORD 
REP8A  -  REPLACE  DEVICE  NAME  AND  CONTROLLER  NUMBER 
TPARS  STATE  TABLES  -  COMMON  SUBEXPRESSIONS 
ADDSDF  STATE  TABLE 
LLCSDF  STATE  TABLE 
PLTSDF  STATE  TABLE 
COMMON  ACTION  ROUTINES 
ADDSDF  ACTION  ROUTINES 
PLTSDF  ACTION  ROUTINES 


OPEN 
READ 


GETCSR 
LLCSDF 
FNDPDV 
LNKEND 


ACTION  ROUTINES 

-  FIND  PDV 

-  LINK  BLOCK  AT  END  OF  LIST 
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NTL 
CER 
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Q«**  -  LOOK  FOR  •♦*$DF  MACRO 


NIL 
FND 


464 

.SBTTL 

Q»**  -  LOOK  FOR 

*»*$DF  MACRO 

465 

466 

+ 

467 

Q*** 

-  LOOK  FOR  ***$DF  MACRO 

468 

469 

INPUTS: 

470 

NONE 

471 

472 

OUTPUTS: 

473 

C-8IT=SUCCESS/FAILURE 

474 

R3,R4,R5=DESTROYED 

475 

- 

476 

477 
478 
479  001126 

.ENABL 

LSB 

012705 

000244'        QPLT: 

MOV 

#PLTDF,R5 

;  STATE  TABLE  ADDRESS 

480  001132 

481 

482  001134 

000405 

BR 

10$ 

012705 

000100' 

WDD: 

MOV 

#ADDDF,R5 

;  STATE  TABLE  ADDRESS 

483  001140 

484 

485  001142 

486 

487  001146 

000402 

BR 

10$ 

012705 

000114' 

3LLC: 

MOV 

*LLCDF,R5 

;  STATE  TABLE  ADDRESS 

005001 

0$: 

CLR 

Rl 

;  FULL  KEYWORD  MATCH  LENGTH 

488  001150 

012702 

OOOOOO' 

MOV 

#CFGKW,R2 

;  KEYWORD  TABLE  ADDRESS 

489  001154 

016703 

000352' 

MOV 

CFGSZ,R3 

;  RECORD  LENGTH 

490  001160 

012704 

000144' 

MOV 

#CFGBF,R4 

;  RECORD  BUFFER  ADDRESS 

491  001164 

005067 

000556' 

CLR 

SVNERR 

;  CLEAR  SYNTAX  ERROR  FLAG 

492  001170 

CALL 

.TPARS 

;  GO  DO  THE  PARSE 

493  001174 

103003 

BCC 

20$ 

;  IF  CC,  FOUND  WHAT  WE  WERE  LOOKING 

FOR 

494  001176 

005367 

000356' 

DEC 

SVNERR 

;  DID  SYNTAX  ERROR  OCCUR? 

495  001202 

001401 

BEQ 

101$ 

;  IF  EQ,  YES 

496  001204 

20$: 

RETURN 

497 

498 

499 
500 
501  001206 

;  ERROR 

CONDITION 

101$: 

EMSG$R 

IT 

;  SYNTAX  ERROR 

502 

503 

.DSABL 

LSB 

NILCFG  -  SCAN   CONFIGURATION  FIL  MACRO  V05.03b   Saturday  29-Jun-85 
CERR   -  PRINT    ERROR  MESSAGE  
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NTL 
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FNDPDV  -  FIND  PDV 


NTl 


816 

.SBTTL 

FNDPDV  -  FIND  PDV 

817 

818 

+ 

819 

FNDPDV  -  TRY 

TO  FIND  PDV 

820 

821 

INPUTS: 

822 

R0=RAD50  PDV  NAME 

823 

824 

OUTPUTS: 

825 

C-BJT=SUCCESS/FAILURE 

826 

R0=PDV 

ADDRESS 

827 

R1=PDV 

INDEX 

828 

R2=DESTR0YED 

829 

- 

830  001744 

"NDPDV: 

831  001744 

010046 

'mov 

RO,-(SP) 

;  SAVE  NAME  TO  BE  MATCHED 

832  001746 

833 

834  001752 

017701 

OOOOOOG 

MOV 

aPDVTA.Rl 

;  GET  PDV  TABLE  ADDRESS 

017702 

OOOOOOG 

MOV 

aPDVNM,R2 

;  AND  NUMBER  OF  PDV'S 

835  001756 

001407 

BEQ 

30$ 

;  IF  ZERO,  NO  PDVSI 

836  001760 

012100 

0$: 

MOV 

(R1)+,R0 

;  GET  PDV  ADDRESS 

837  001762 

838 

839  001764 

001403 

BEQ 

20$ 

;  IF  ZERO,  SKIP  THIS  ONE 

026016 

OOOOOOG 

CMP 

Z.NAM(RO),(SP)   ; 

;  DOES  THE  NAME  MATCH? 

840  001770 

001403 

BEQ 

40$ 

;  IF  EQ,  YES  (C-BIT  CLEAR) 

841  001772 

20$: 

SOB 

R2,10$ 

;  LOOP  SPDVNM  TIMES 

842  001776 

000261 

30$: 

SEC 

;  INDICATE  FAILURE 

843  002000 

005226 

40$: 

INC 

(SP)+         ■ 

;  PURGE  STACK 

844  002002 

8'.  5 

846  002004 

006016 

ROfi 

(SP) 

;  SAVE  C-BIT 

005741 

TST 

-(fil) 

;  CALCULATE  PDV  INDEX 

847  002006 

167701 

OOOOOOG 

SUB 

aPDVTA.RI       ; 

848  002012 

006316 

ASL 

(SP) 

•  restore'c-bit 

849  0020U 

RETURN 

J  7 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
K 
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21 
22 
25 
24 
25 
26 
27 
28 
29 
30 
31 
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.TITLE  NTLCF2  -  SCAN  CONFIGURATION  FILE  FOR  INITIALIZATION 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  SCAN  FOR  "SET  CEX" 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-HM-Plus  V3.0 
DECnet-Micro/RSX   VI .0 
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CFLIN  -  ECHO  THE  LAST  RECORD  READ 
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NTL( 
TPAf 


574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 


.S8TTL 
.SBTTL 


CFLIN  -  ECHO  THE  LAST  RECORD  READ 

FNLIN  -  ECHO  FILE  NAME  AND  LAST  RECORD  READ 


001046 

001052  012700  002236' 

001056  016701  002444' 

001062 


CFLIN  -  ECHO  THE  LAST  RECORD  READ  FROM  THE  CONFIG  FILE 
FNLIN  -  ECHO  FILE  NAME  AND  LAST  RECORD  READ  FROM  CONFIG  FILE 

INPUTS; 


NONE 

OUTPUTS: 

NONE 


FNLIN::  CALL  SFNOUT 

CFLIN::  MOV  #CFGBF,RO 

MOV  CFGSZ,R1 

CALLR  $TIOUT 


PRINT  FILE  NAME 

GET  RECORD  BUFFER  ADDRESS 

AND  RECORD  SIZE 

PRINT  IT  ON  TI: 
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NTL 

TDJ 


I  15 

NTLCF2  -  SCAN  CONFIGURATION  FIL  MACRO  V05.C3b  Saturday  29-Jun-85  00;2A 
TPARS  STATE  TABLES  -  LLCSDF ,DLC$DF ,DDM$DF 


Page  2^ 


1017 
1018 
1019 
1020 
1021 
1022 
1023 
102A 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
103A 
1035 
1036 
1037 
1038 
1039 
1010 
1041 
1042 
1043 
1044 


001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 


.S8TTL   TPARS  STATE  TABLES  -  LLCSDF ,DLC$DF ,DDM$DF 


;  LLCSDF,  DLCSDF,  DDMSDF 


STATES 

PRODF 

TRANS 

SRAD50,,PRONM 

STATES 

TRANS 

<',> 

STATES 

PRODF 1 

TRANS 

'I.PRODFI 

TRANS 

<',>,PR0DF2 

TRANS 

:END,$EXIT 

TRANS 

3!ZF.MFL51,PR0DF1,PRMFL 

TRANS 

SRAD50,PRODF1 

STATES 

PR0DF2 

TRANS 

SNUMBR 

STATES 

TRANS 

lEND.SEXIT 

TRANS 

<',> 

STATES 

TRANS 

SNUMBR 

STATES 

TRANS 

IEND,SEXIT 

TRANS 

<'  ,> 

STATES 

TRANS 

SLAMDA.SEXIT 

NTLI 
Syml 

Errc 


tlor\ 
Worl 
Si?( 
Sizi 
Ope 

Elai 
SY:I 
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NTL 


N1LCF2  -  SCAN  CONFIGURATION  FR  MACRO  V05.03b  Saturday  29-Jun-85 
Symbol  table 

Errors  detected;  0 

««»  Assembler  statistics 


00:2 


24  Page  52-3 


NTK 
MACf 


vJork  tile  reads: 
Work  file  writes: 
Si?e  of  work  tile: 
Size  ot  core  pool; 
Operating  system; 


36 

3A 

17918  Words 

17608  Words 

RSX-11M/PLUS 


(  70  Pages) 
(  67  Pages) 


SY:NTLCFr.V2!t°32?HA]NTLCF2/CR/-SP=SY:[1  J3RSXMCM.SML/ML  J130J10]NETLIB/MLJ130JO]RSXMCM/PA:1,[132JO]NTLCF^ 


NTLCF2 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:27 


PAGE  1 
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NIL 
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MACRO  DEf  IMTIONS 


52 

53 

5A 

55 

56 

57 

58 

59 

60 

61 

62 

63  000000 

6A  000000 


NTl 
PC* 


.SBTTL  MACRO  DEFINITIONS 

LIBRARY  MACROS 

.MCALL  ASL$,EMSG$R,GCL$,NTLDF$,NTLER$ 
.MCALL   SLTDF$,RETC 


LIBRARY  SYMBOLS 

NTLDFS 
SLTDFS 


;  NETLDR  REQUEST  BLOCK  OFFSETS 
;  DEFINE  SLT  OFFSETS 
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uMDni         riC  C   I  M  !   T   I  HMC 


NT 
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NT 


497 

498 

499 

son 

SOI 

so;^ 

so^ 

S04 

SOS 

S06 

SOi' 

SOH 

S()9 

S10 

S11 

sv 

SI'S 

000700 

010501 

su 

000702 

116702 

SIS 

000706 

001423 

S1(S 

000710 

105021 

S1^ 

000712 

005300 

sia 

000714 

003375 

S19 

000716 

005001 

s^o 

000720 

005305 

S^l 

000722 

112400 

s?? 

000724 

005701 

v^ 

000726 

001007 

SP'A 

000730 

s?s 

000740 

005201 

S^'iS 

000742 

005205 

s?f 

000744 

000401 

S^H 

000746 

005301 

S^9 

000750 

150015 

ssn 

000752 

005302 

SSI 

000754 

003362 

S52 

000756 

000356' 


.SBTTL  PCKBCD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

PCKBCD  -  PACK  A  STRING  OF  DIGITS  IN  BCD  FORMAT 

INPUTS: 

RO  -  NUMBER  OF  BYTES  IN  PACKED  ADDRESS 

R4  -  ADDRESS  OF  BUFFER  CONTAINING  ASCI  DIGITS  TO  PACK  (0=END  OF  BUFFER) 

R5  -  ADDRESS  OF  PUFFER  TO  STORE  PACKED  DATA 

COUNT  -  NUMBER  OF  DIGITS  SPECIFIED 

OUTPUTS: 

BUFFER  SPECIFIED  IN  R5  CONTAINS  DATA  IN  BCD  FORMAT 


GET  ADDRESS  OF  PACKED  DATA 

GET  NUMBER  OF  DIGITS  IN  STRING 

BR  IF  NOTI'ING  TO  DO 

INITIALIZE  PACKED  ADDRESS 

MORE  TO  INITIALIZE? 

BR  IF  YES 

POSITION  INIDCATOR  (0=HIGH  FOUR  BITS) 

UPDATE  ADDRESS  FOR  FIRST  TIME 

GET  DIGIT  TO  PACK 

STORE  IN  HIGH  FOUR  BITS? 

BR  IF  NO 

MOVE  TO  HIGH  FOUR  BITS 

INDICATE  STORE  IN  LOW  FOUR  BITS  NEXT 

POINT  TO  NEXT  BYTE 

BR  TO  STORE  DECIMAL 

INDICATE  STORE  IN  HIGH  FOUR  BITS  NEXT 

PACK  THE  NUMBER  INTO  THE  BUFFER 

MORE  TO  CONVERT? 

BR  If  YES 


PCKBCD: 

:MOV 

R5,R1 

MOVB 

COUNT, R 

BEQ 

40$ 

5$: 

CLRB 
DEC 
8GT 
CLR 

(R1)  + 
RO 

51 

R1 

DEC 

R5 

10$: 

MOVB 

(R4)+,R 

TST 

R1 

BNE 

20$ 

ASL$ 

4,R0 

INC 

R1 

INC 

R5 

BR 

30$ 

20$: 

DEC 

R1 

30$: 

BIS8 

R0,(R5) 

DEC 

R2 

BGT 

10$ 

40$: 

RETURN 

J  13 


NTlCfP  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:29  Page  16 


f: 


I  1A 


NTLCSR  -  CHECK  CSR  ADDRESS     MACRO  V05.03b  Saturday  29-Jun-85  00:30  Page  4 


1 
2 
1 
I, 

5 
6 
7 
8 
9 

■0 

11 

13 

V, 

15 
16 
17 
18 
19 
20 
?1 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
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.TITLE  NTLCSR  -  CHECK  CSR  ADDRESS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UlTH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CSR  OFFLINE  CHECKING  ROUTINE 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl .0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.l 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


ITS 


NTLCSR  -  CHECK  CSR  ADDRESS 
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LOCAL  DATA 


1  15 

00:3 
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U5 
1A6 
U7 
H8 
U9 
150 
151 
152 
153 
15A 
155 

156  000176 

157  000220 

158  000256 

159  00031A 

160  000342 

161  000370 

162  000426 

163  000456 
16A  000530 

165  000572 

166  000626 

167  000664 

168  000700 

169  000736 

170  000772 

171  001044 

172  001074 

173  001146 

174  001220 

175  001250 

176  001322 

177  001362 
178 

179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 

200  001404 

201  001434 


.SBTTL  ERROR  MESSAGES 


ERROR  MESSAGES 
.!FTF 
.ENABL  LC 


.IFT  ;  DF  R$$11M 

NTLERS  ,2A,4A,DVERR,REP4A,,<Undefi'ned> 

NTLERI  ,28,4,DVERR,iPRV.N,$FNOUT,<0pen  Failure  (-♦**.)> 

NTLERS  ,2C,4,DVERR,$PRV.N,$FN0UT,<Read  Failure  (-*•*.)> 

NTLERS  ,2D,4,DVERR,SREP.P,$FNOUT,<Read  Overflow) 

NTLERS  ,2E,4,DVERR,SREP.P,SFN0UT,<Format  Error> 

NTLERS  ,2F,6,DVERR,SPRV.N,SFN0UT,<0pen  Failure  (-•♦*.)> 

NTLERS  ,2H,6,DVERR,SREP.C,$FNDEQ,<Not  Contiguous) 

NTLERS  ,2J,6,DVERR,$CUR.N,SFNDEQ,<Label  Block  Read  Failure  (-•*♦. 

NTLERS  ,2K,6,DVERR,SREP.C,SFNDEQ,<Not  a  Valid  Binary  Image> 

NTLERS  ,2L,9,DVERR,REP9,$CLDEQ,<Allocat.'on  Failure) 

NTLERS  ,2M,6,0VERR,SCUR.N,FNDEA,<Read  Failure  (-***.)> 

NTLERS  ,2N,4A,DVERR,REP4A,,<0dd> 

NTLERS  ,2P,4A,DVERR,REP4A,,<0utside  Table  Limits) 

NTLERS  ,2Q,9,DVERR,REP9,DVDEA,<Illegal  Unit  Count) 

NTLERS  ,2R,9,DVERR,REP9,DVDEA,<D.UC8  Field  Outside  Table  Limits) 

NTLERS  ,2S,9,DVERR,REP9,DVDEA,^UCB  Address  Odd) 

NTLERS  ,2T,9,DVERR,REP9,DVDEA,<UCB  Address  Outside  Table  Limits) 

NTLERS  ,2U,9,DVERR,REP9,DVDEA,<U.SCB  Field  Outside  Table  Limits) 

NTLERS  ,2V,9,DVERR,REP9,DVDEA,<SCB  Address  Odd) 

NTLERS  ,2W,9,DVERR,REP9,DVDEA,<SC8  Address  Outside  Table  Limits) 

NTLERS  ,2X,9,DVERR,REP9,,<Driuer  Already  Resident) 

NTLERS  ,2Y,4A,DVERR,REP4Al,,<Undefined) 

.IFF  ;  OF  RSS11M 

NTLERS  ,2A,,DVERR,REPDV,,<Unable  to  run  task  ♦♦ ) 

NTLERS  ,28,,DVERR,REPDV,,<Device  »»:  not  in  system) 


)) 


052 
052 


040 
040 


FMTO: 

.ASCIZ 

.EVEN 

.DSABL 

.LIST 

.IFTF 

.DSABL 

.IFT 

LC 

BEX 

;  DF  RSS11M 

LC 

;  DF  RSS11M 

;  ERROR 

MESSAGE 

FORMAT  STRINGS 

123 
123 

FMT4: 
fMT4A: 

.ENABL 
.NLIST 
.ASCIZ 
.ASCIZ 

LC 

BEX 

"»  Symbol  Table  Fi 

"*  Symbol  Table  Fi 

le  — 
le  — 

Symbol  «  " 
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DVERR  -  PRINT  ERROR  MESSAGE 


Page  16 


685 

686 

687 

688 

689 

690 

691 

692 

693 

69A 

695 

696 

697 

698 

699  001 32A 

700  001330 

010005 

701    001332 

012704     000017' 

702  001336 

012503 

703  001340 

704   001342 

105713 

705  001344 

001403 

706  001346 

112324 

707  001350 

001376 

708  001352 

005304 

709  001354 

012503 

710  001356 

112524 

711   001360 

001376 

712  001362 

005304 

713  001364 

012700     000007' 

714  001370 

010401 

715  001372 

160001 

716  001374 

717  001400 

005703 

718  001402 

001401 

719  001404 

720  001406 

000261 

721    001410 

.SBTTL  DVERR  -  PRINT  ERROR  MESSAGE 

DVERR  -  PRINT  ERROR  MESSAGE 

INPUTS: 

RO=MESSAGE  BLOCK  ADDRESS 


OUTPUTS: 

C-eiT=SET 


.IFTF 

DVERR:   CALL 
MOV 
MOV 
MOV 
CALL 
TSTB 
BEQ 
M0V8 
8NE 
DEC 
MOV 
M0V8 
BNE 
DEC 
MOV 
MOV 
SUB 
CALL 
TST 
BEQ 
CALL 
SEC 
RETURN 


10$: 


20$: 
30$: 


40$: 


Df 


R$$11M 


,(R4)< 


$SAVAL 

R0,R5 

#ERR8UF,R4 

(R5)t,R3 

a(R5)+ 

(R3) 

20$ 

(R3)+, 

10$ 

R4 

(fi5)+,R3 

(R5)  +  ,(R4)«- 

30$ 

R4 

*ERRMSG,RO 

R4,R1 

RO.RI 

$TIOUT 

R3 

40$ 

(R3) 


SAVE  ALL  REGISTERS 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  NO 

copy  THE  REST  OF  THE  FORMAT  STRING 

SKIP  the'zero  byte 

GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  the'zero  byte 

PRINT  THE  ERROR  MESSAGE 


IS  THERE  A  LINE  2  ADDRESS? 
IF  EQ,  NO 

GO  PRINT  SECOND  LINE 
RETURN  C-BIT  SET 
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032702  000001 
00U24 

010200 

0A2702  177701 


052702  120000 


.■lAPX    MACRO  V05.03b  Sunday  30' 
SMAPXP  -  MAO  TO  EXTENDED  POOL 


97 

98 

99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 

111  00003A 

112  OOOOAO 

113  0OOOA2 
1U  0000^4 
115  000046 
116 

117 

118 

119  000052 

120 

121 

122 

123 

12A 

125 

126 

127 

128 

129 

130 

131  000072 

132 

133 

134 

135  000076 

136  0001 04 
137 

138 
139 
140 
141 
142 
143 
144 

145  000'  0 

146  goo: 12 

147 
148 
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.SBTTL  $MAPXP  -  MAP  TO  EXTENDED  POOL 

**-$MAPXP-Map  to  extended  pool 
Inputs: 


R2  - 


000006 


042700  176000 


017777  OOOOOOG  OOOOOOG 
060077  OOOOOOG 


000001 


Outputs: 


R2  -  uirtuaL  address 

KISAR5  or  (KISAR6-server  base)  mapped  to  extended  pool. 


Is  the  block  in  extended  pool  7 
If  EQ,  no  -  already  mapped  to  it 
Else,  save  RO 
Copy  block  address 
Return  virtual  address 


. ..  Mapped  through  KISAR5 
...Mapped  through  KISAR6 

Convert  addrer'  to  block  bias 
Clear  extran.  js  bits 


$MAPXP::8IT 
BED 
SAVRG 
MOV 
BIC 

#1,R2 
100$ 
<R0> 
R2,R0 
#1^7701, R2 

.IF 

NDF,S$$BAS8R$$PR0 

BIS 

#1 20000, R2 

.IFF 

;NDF,S$$BAS»R$$PR0 

BIS 

#140000, R2 

.ENDC 

;NDF,S$$BAS8R$$PR0 

.REPT 

ROR 

.ENDR 

6 
RO 

BIC 

#1 76000, RO 

.IF 

NDF,S$$BAS&R$$PRO 

MOV 
ADD 

aX8IAS,aiSAR5 
R0,aiSAR5 

.IFF 

;NDF,S$$FiAS8R$$PR0 

MOV 
ADD 

aXBIAS,aiSAR6   ; 
R0,SISAR6 

.ENDC 

;NDF,S$$BASSR$$PR0 

RESRG 
100$:   RETURN 

<R0> 

;  Map  to  base  address  of  pool 
...  Update  to  proper  block 


;  Map  to  base  address  of  pool 
Update  to  proper  block 


Restore  RO 

Return  to  the  caller 


.END 


MAPX    MACRO  V05.03b  Sunday  30-Jun-85  00:00 
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K  1 


^•FILE'MD»«NTLCEX 


J    2 


NTLCI 
DECBI 


NN      NN 

TTTTTTTTTT 

CCCCCCCC 

EEEEEEEEEE 

XX      XX 

m          m 

TTTTTTTTTT 

CCCCCCCC 

EEEEEEEEEE 

XX      XX 

m          m 

TT 

EE 

XX      XX 

m          NN 

TT 

EE 

XX      XX 

NNNN    NN 

TT 

EE 

XX  XX 

NNNN    NN 

EE 

XX  XX 

NN   NN  NN 

'T 

EEEEEEEE 

XX 

NN   NN  NN 

TT 

EEEEEEEE 

XX 

NN    NNNN 

TT 

EE 

XX  XX 

NN    NNNN 

TT 

EE 

XX  XX 

NN      NN 

TT 

EE 

XX      XX 

NN      NN 

TT 

EE 

XX      XX 

NN      NN 

TT 

LLLLLLLLLL 

CCCCCCCC 

EEEEEEEEEE 

XX      XX 

NN      NN 

TT 

LLLLLLLLLL 

CCCCCCCC 

EEEEEEEEEE 

XX      XX 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

SSSS5SSS 

TTTTT 

TTTTT 

-L 

ss 

.L 

ss 

.L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

.L 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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DECBLK  -  SET  UP  DECNET  HOME  BLOCK 


530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
5A0 
541 
542 
543 
544 
545 
546 

547  000702 

548  000706 

549  000712 

550  000714 
551 

552  000716 

553  000722 

554  000726 
555 

556 

557 

558 

559  000730 

560 

561 

562  000734 

563  000740 

564  000744 

565  000746 
566 

567  000750 

568  000754 

569  000760 

570  000762 
571 

572  000764 

573  000766 

574  000772 

575  000774 
576 


.S8TTL  NL8LK  -  SET  UP  NETLDR  DATA  BLOCK 


NLBLK  -  SETUP  NETLDR  DATA  BLOCK 

INPUTS: 

R1=CETAB  ALLOCATION  ADDRESS 
R2=CETAB  ALLOCATION  LENGTH 
.HOME=NETLDR  DATA  BLOCK  ADDRESS 
CEXPC8=C0MM  EXEC  PCB  ADDRESS 

OUTPUTS: 

DATA  BLOCK  INITIALIZED 


016700  OOOOOOG 

010103 

010204 


062702  OOOOOOG 
005022 


016722  000036' 


NLBLK: 


012700 
016022 
011000 
001374 

012700 
016022 
011000 
001374 

005022 
032702 
001374 
162702 


000120' 
000010 


000156' 
000010 


000077 
000100 


577  001000 

010362 

OOOOOOG 

578  001004 

010462 

OOOOOOG 

579 

580  001010 

10$: 


12$: 


15$: 


20$: 


SWSTK$ 
MOV 
MOV 
MOV 

20$ 

.HOME,RO 
R1,R3 
R2,R4 

CALL 

ADD 

CLR 

$MAPX 

*.CXCSR,R2 
(R2)  + 

.IF  DF 
CLR 

.IFF 
MOV 

.ENDC 

R$$MPL 
(R2)  + 

CEXPCB,(R2)+ 

MOV 
MOV 
MOV 
BNE 

#X8LK1,R0 
10(R0),(R2)*^ 
(R0),r6 
10$ 

MOV 
MOV 
MOV 
BNE 

#VX8LK1 ,R0 
10(R0),(R2)+ 
(RO),RO 
12$ 

CLR 
BIT 
BNE 
SUB 

(R2)  + 
*77, R2 
15$ 
#100, R2 

MOV 
MOV 

R3,.CXALLCR2) 
R4,.CXLEN(R2) 

RETURN 


;*  ENTER  KERNEL  MODE 

;*  GET  DATA  BLOCK  ADDRESS 

;*  COPY  CETAB  ALLOCATION  ADDRESS 

;♦  COPY  CtTAB  ALLOCATION  LENGTH 

;*  MAP  TO  THE  DATA  BLOCK 

;*  SKIP  THE  NTINIT  STUFF 


;»  SKIP  CEX  PCB  ADDRESS 
;*  STORE  CEX  PCB  ADDRESS 


*  GET  NONVECTORED  VALIDATION  BLOCK  ADDRESSES 

*  STORE  SYMBOL  VALUE 

*  GET  NEXT  SYMBOL  BLOCK  ADDRESS 

*  IF  NE,  NOT  AT  END  YET 

*  GET  VECTORED  VALIDATION  BLOCK  ADDRESSES 

*  STORE  SYMBOL  VALUE 

*  GET  NEXT  SYMBOL  BLOCK  ADDRESS 

*  IF  MORE  -  BRANCH 

*  ZERO  THE  REMAINDER  OF  BLOCK 


BACK  TO  START  OF  HOME  BLOCK 

STORE  THE  CETAB  ALLOCATION  ADDRESS 
STORE  THE  CETAB  ALLOCATION  LENGTH 


CF.A 

CF.D 

CF.D 

CF.F 

CF.I 

CF.I 

CF.f 

CF.^ 

CF.F 

CF.S 

CF.S 

CF.I 

CF.I 

CF.I 

CKf 

rf  .D 

CF.D 

CKF 

(i-.F 

CF.F 

fl.F 

CF.I 

CF.I 

rf.i 

CF.f 

K  3 
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NTLC 


ALOCB  = 

•»»*»•  GX 

CF.SOM= 

A$$CHK= 

000000 

CF.SYN= 

A$$CPS= 

000000 

CF.T1M= 

A$$PRI= 

000000 

CF.TRN= 

ASSTRPi 

000000 

CMODE  = 

BUFUMP= 

17235A 

CM.C1R= 

CBLKl 

OOOOAOR 

002  CM.FMT= 

CBLK3 

0OO054R 

002  CM.HRD= 

CBLKA 

000070R 

002  CM.LIN= 

CBLKS 

0001  OAR 

002  CM.L00= 

CB.CCB= 

000002 

CM.XLO= 

CB.DDM= 

000040 

CP.DCF= 

CB.DLC= 

000020 

CP.HDL= 

CB.RDB= 

OOOOOi 

CP.PS  = 

CB.SDB= 

000010 

CP.PSI= 

CB.SLI= 

000100 

CP.XCF= 

CB.XLB= 

000001 

CP.2FR= 

CCBCT  = 

»♦♦♦»*  GX 

CRC$0V= 

CCBLH  = 

**♦*»*  GX 

CS.ABO= 

CCBNM  = 

»*»***  GX 

CS.BRO= 

CCBS 

001736R 

CS.BUF= 

CCBSZ  = 

♦*»»**  GX 

CS.CES= 

CC.LLC= 

000200 

CS.CHN= 

CEAVL  = 

*♦***♦  GX 

CS.CMP= 

CEClK 

00135AR 

CS.DCR= 

CENTI 

001354R 

CS.DEF= 

CEPTR 

001012R 

CS.DEV= 

CEPUR  = 

******  GX 

CS.DIS= 

CE5YM 

0O032AR 

CS.ENA= 

CETNAM 

00001 2R 

002  CS.ENB= 

CEXNAM 

000006R 

002  CS.ERR= 

CEXPCB 

000036R 

002  CS.FTL= 

CE.ABO= 

100562 

CS.HCR= 

CE.DAO= 

1003A6 

CS.HFE= 

CE.DIS= 

100366 

CS.LST= 

CE.ERR= 

100370 

CS.MTL= 

CE.ILN= 

100350 

CS.RNG= 

CE.LTO= 

100356 

CS.ROV= 

CE.MOP= 

100372 

CS.RSN= 

CE.NTE= 

100361 

CS.SHU= 

CE.RTE= 

100376 

CS.SID= 

CE.SRC= 

10036A 

CS.STR= 

CE.STP= 

100352 

CS.SUC= 

CE.TME= 

10035A 

CS.TMO= 

CE.TMO=- 

100374 

CS.XUR= 

CE.UNS= 

100344 

CXOPT  = 

CF.CHN= 

000001 

C$$CICP= 

rF.DDM= 

000002 

C$$0RE= 

CF.DVN= 

000004 

C$$RSH= 

CF.EIS- 

000010 

C.ADD 

CF.EOM= 

000004 

C.BID 

CF.FRK= 

100000 

C.BUF 

CF.HDR= 

000020 

C.BUF1 

CF.LB  = 

100000 

C.BUF2 

CF.LIN= 

000002 

C.CNT 

CF.LOG= 

000020 

C.CNT1 

CF.MDM= 

000001 

C.CNT2 

000010 

C.FLG 

000022 

000040 

C.FLG1 

000022 

000400 

C.FLG2 

000032 

000100 

C.FNC 

000010 

140000 

C.LIN 

000006 

000002 

C.LNK 

000000 

100000 

C.MOD 

000011 

000002 

C.NSP 

000004 

000000 

C.PRO 

000042 

000001 

C.RSV 

000002 

000004 

C.STA 

000007 

000040 

C.STS 

000012 

000007 

C.URM 

177776 

177400 

C.XACP 

000004 

000200 

C.XID 

000035 

000100 

C.XLEN 

000044 

000030 

C.XPLI 

000040 

«**»*♦  GX 

C.XPT 

000034 

000100 

C.XSVC 

000042 

000002 

C.XTC 

000037 

000200 

C.X25 

000036 

000002 

DECBLK 

000552R 

000010 

DECPT  = 

******  GX 

000200 

DSAMXC 

000072 

000400 

DSAMXH 

000074 

000004 

D$ANN 

000000 

000002 

DSBRPR 

000102 

000040 

DSBRTM 

000100 

000001 

DSDELF 

000045 

000020 

DSDELU 

000046 

100000 

DSEND  = 

000104 

001000 

D$FN8 

000034 

000001 

DSHIOR 

000024 

002000 

DSHOST 

000022 

040000 

DSINAC 

000044 

004000 

DSINCT 

000042 

000010 

D$IPL 

000051 

000004 

DSLID 

000020 

010000 

DSLNAM 

000006 

000001 

DSLNUM 

000014 

000002 

D$LST 

000047 

000004 

DSMAXC 

000064 

000001 

DSMAXH 

000066 

020000 

OSMAXV 

000070 

000004 

D$MLL 

000040 

******  GX 

DSMNOD 

000041 

000000 

D$NA 

000062 

000400 

DSNBEA 

000056 

177564 

DSNBRA 

000054 

000034 

D$NEND= 

000054 

000003 

DSNLfJ 

000030 

000014 

D$NN 

000060 

000014 

DSOUTT 

00004  3 

000024 

DSRETF 

000050 

000020 

DSRNN 

000002 

000020 

DSRTMR 

000076 

000030 

D$SEG 

000036 

D$SER 

DSSQRL 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

ELTIME= 

ETAB1 

ETAB2 

E$NBR 

ESNBS 

E$NCR 

E$NCS 

E$NIC 

ESNLEN 

ESNLLA 

ESNLNK 

ESNML 

E$NMR 

E$NMS 

ESNNOD 

E$NRT 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESSTRT 

E$$XPR= 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FE.CEX= 

FL.NTI= 

FMASK  = 

FS.AST= 

FS.CIB= 

FS.CRA= 

FS.DIS= 

FS.[)VC  = 

FS.ENB= 

FS.EXI= 

FS.GET= 

FS.HLT= 

FS.INI= 

FS.KIL= 

FS.LCL= 


000032 

000052 

177514 

000000 

000001 

000000 

000000 

******  GX 

000334R 

000344R 

000014 

000020 

000034 

000036 

000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000042 

000005 

000010 

000046 

000004 

000006 

000000 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 


000000 
002000 
001000 
013000 
001000 
012000 
001000 
006000 
000000 
000000 
000000 
100000 


GX 
GX 
GX 


FS.LTM= 
FS.MNT= 
FS.MSN= 
FS.REA= 
FS.RET= 
FS.REZ= 
FS.RLB= 
FS.RNG= 
002  FS.RST= 
002  FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.STM= 
FS.STP= 
FS.STR= 
FS.TRM= 
FS.ULB= 
FS.XKL= 
FS.XOF= 
FS.XON= 
FS.2ER= 
F$$LVL= 
GTBUF 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRO= 
HTIM 
IBLK1 
IBLK2 
IBLK3 
I$$RAR= 
I$$RDN= 
KISARO= 
KISAR6= 
KSAR5  = 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
K6TMP 
LD$LP  = 
LF.ACT= 
LF.BRO= 
LF.BUT^ 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.HFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 


001000 

004000 

014000 

001000 

000000 

003000 

002000 

011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

002250R 

000000 

000000 

000000 

000000 

000024R 

000214R 

000226R 

000240R 

000000 

000000 

172340 

172354 

******  GX 

177546 

177546 

000000 

000074 

OOOOOOR 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 


002 
002 
002 
002 


002 
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NTL 
CER 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 


.TITLE  NTLCFG  -  SCAN  CONFIGURATION  FILE  FOR  DYNAMIC  INFORMATION 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  SCAN  FOR  "SET  LINE"  AND  "SET  PROCESS" 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 
DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

3.01  27-Sep-82 
Add  support  for  PLTSDF  macro. 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S    V4.2 
DECnet-HM-Plus  V5.0 
DECnet-Micro/RSX   VI. 0 


(number  of  EPM  channels) 
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NTL 
CFL 
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NTL 
INK 


505 

506 

507 

508 

509 

510 

511 

512 

513 

5K 

515 

516 

517 

518  0012U 

010046 

519  001216 

520  001222 

012600 

521   00122^ 

010005 

522  001226 

012704     000027' 

523  001232 

012503 

52A  00123'i 

525  001236 

105713 

526  001240 

001403 

527  0012A2 

112324 

528  001244 

001376 

529  001246 

005304 

530  001250 

012503 

531    001252 

112524 

532  001254 

001376 

533  001256 

005304 

534  001260 

012700     000017' 

535  001264 

010401 

536  001266 

160001 

537  001270 

538  001274 

005703 

539  001276 

001401 

540  0C1300 

541   001302 

016706     000354' 

542  001306 

000261 

543  001310 

.SBTTL 
.SBTTL 


CERR  -  PRINT  ERROR  MESSAGE 

CFERR  -  PRINT  FILE  ASSOCIATED  ERROR  MESSAGE 


CERR  -  PRINT  ERROR  MESSAGE 

CFERR  -  PRINT  FILE  ASSOCIATED  ERROR  MESSAGE 

INPUTS: 

RO=MESSAGE  BLOCK  ADDRESS 

OUTPUTS: 

C-BIT=SET 

RETURN  TO  SNLCFG'S  CALLER 


CERR: 


CFERR: 


10$: 


20$: 
30$: 


40$: 
RTSPC: 


MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

CALL 

TSTB 

BEQ 

MOVB 

BNE 

DEC 

MOV 

MOVB 

BNE 

DEC 

MOV 

MOV 

SUB 

CALL 

TST 

BEQ 

CALL 

MOV 

SEC 

RETURN 


RO,-(SP) 

$CLDEQ 

(SP)+,RO 

R0,fi5 

*ERR8UF,R4 

(R5)+,R3 

a(R5)+ 

(R3) 

20$ 

(R3)+,(R4)+ 

10$ 

R4 

(R5)+,R3 

(R5)+,(R4)t 

30$ 

R4 

#ERRMSG,RO 

R4,R1 

RO.RI 

$TIOUT 

R3 

40$ 

(R3) 

SPSAV,SP 


SAVE  RO 

CLOSE  THE  CONFIG  FILE 

RESTORE  RO 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  YES 

ELSE  COPY  REST  OF  FORMAT  STRING 

SKIP  the'zero  byte 

GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  the'zero  byte 

GET  ERROR  MESSAGE  ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT  IT 

SHOULD  SECOND  LINE  BE  PRINTED? 

IF  EQ,  NO 

PRINT  SECOND  ERROR  MESSAGE  LINE 

RESTORE  SP  FROM  ENTRY 

RETURN  C-BIT  SET 


K 
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NTI 
MA( 


851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 

865  002016 

866  002020 

867  002022 

868  002024 

869  002026 

870  002032 

871  002034 

872  002036 

873  002040 

874  002042 

875  002046 


010001 
011000 
001405 
010046 

012600 
000770 
010546 
010146 


.SBTTL   LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 

h 

LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 

INPUTS: 

RO  -  ADDRESS  OF  LISTHEAD 

R5  -  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 

OUTPUTS: 

BLOCK  IS  LINKED  AT  END  OF  LIST 


LNKEND: :MOV 
MOV 
BEQ 
MOV 
CALL 
MOV 
6R 

10$:    MOV 
MOV 
CALL 
RETURN 


RO.RI 

(RO),RO 

10$ 

R0,-(SP) 

SCEACX 

(SP)+,RO 

LNKEND 

R5,-(SP> 

R1,-(SP) 

$LINKX 


SAVE  ADDRESS  OF  PREVIOUS  BLOCK 
GET  ADDRESS  OF  NEXT  BLOCK  IN  LIST 
BR  IF  END  OF  LIST  -  LINK  IT  HERE 
SET  UP  UNMAPPED  ADDR  FOR  CONVERSION 
CONVERT  TO  MAPPED  ADDRESS 
RETRIEVE  MAPPED  ADDRESS 
GET  NEXT  BLOCK  IN  LIST 
GET  UNMAPPED  ADDR  OF  CURRENT  BLOCK 
GET  ADDRESS  OF  PREVIOUS  BLOCK 
LINK  BLOCK  INTO  LIST 
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NTL 
REF 


54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
M 
65 
66 
67 
68 

69  000000 

70  000000 

71  000000 

72  000000 

73  000000 


.SBTTL  MACRO  DEFINTIONS 
LIBRARY  MACROS 


.MCALL 
.MCALL 

.IF  DF, 

.MCALL 

.ENDC 


ASL$,EMSG$R,GCL$, I  STATS, NTLDF$,NTLER$, STATES, TRANS 
SLTDF$,DH8DFS,FNBDFS,SERDFS 

RSSIIM 
EMSGS 


LIBRARY  SYMBOLS 

NTLDFS 
DH8DFS 
SLTDFS 
FNBDFS 
SERDFS 


NETLDR  REQUEST  BLOCK  OFFSETS 
OECNET  HOME  BLOCK  OFFSET 
DEFINE  SLT  OFFSETS 
DEFINE  DLL  FILE  BLOCK  OFFSETS 
DEFINE  SERVER  BLOCK  OFFSETS 
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TPAI 


594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 

613  001066 

614  001066 

615  001070 

616  001074 

617  001076 

618  001100 

619  001102 

620  001104 

621  001106 

622  001112 

623  001114 

624  001116 

625  001122 

626  001126 

627  001130 

628  001132 

629  001134 


.SBTTL  REP8B 
.SBTTL  REP8C 


REPLACE  PARTITION  NAME 
REPLACE  REGION  NAME 


REP8B  -  REPLACE  PARTITION  NAME 
REP8C  -  REPLACE  REGION  NAME 

INPUTS: 

R2  =  POINTER  TO  RAD50  NAME 
R3  =  FORMAT  STRING  ADDRESS 
M   =   ERROR  MESSAGE   BUFFER  ADDRESS 


112314 

122724  000052 

001374 

005304 

010400 

012201 

010246 

013601 
001402 

122740  000040 
001775 
005200 
010004 


;  OUTPUTS: 

R0,R1 

fi2  =  DESTROYED 

R3,R4 

=  UPDATED 

REP8B: 

^EP8C: 

:  MOVB 

(R3)t,(R4) 

CMPB 

*'»,(R4)t 

BNE 

REP8B 

DEC 

R4 

MOV 

R4,R0 

(R2)+,R1 

MOV 

R2,-(SP) 

CALL 

$c5ta 

MOV 

a(SP)+,Rl 

BEQ 

10$ 

CALL 

$C5TA 

10$: 

CMPB 

#•  ,-(R0) 

BEQ 

10$ 

INC 

RO 

MOV 

R0,fi4 

RETURN 


COPY  FORMAT  STRING 
LOOKING  FOR  THE  ASTERISK 

SKIP  THE  ASTERISK 
COPY  BUFFER  ADDRESS 
GET  FIRST  HALF  OF  NAME 
SAVE  POINTER  TO  NAME 
CONVERT  TO  ASCII 
GET  SECOND  HALF  OF  NAME 
IF  ZERO,  IT'S  ALL  SPACES 
CONVERT  SECOND  HALF 
SKIP  TRAILING  BLANKS 


SET  NEW  BUFFER  ADDRESS 


NTLCF2 

DC  n  hiiL!  _  DC  Di  \rc 
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TPARS  STATE  TABLES  -  SLTSDF 
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Page  25 


10A6 

10A7 

10A8 

10A9 

1050 

1051 

1052 

1053 

105A 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

106A 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

107A 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

108A 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 


.SBTTL   TPARS  STATE  TABLES  -  SLTSDF 


001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
C01252 
001252 
001252 
001252 


SLTSDF 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 


SLTDF 
SRAD50,,S.NAME 

SRAD50 

SRAD50 

<',>,SLTDF2 

SLAMDA 
SLTDF3 

XLF.MFLX, SLTDF 1,,LF.MFL,MRKFL 

XLF.ENAX, SLTDF 1,,LF.ENA,MRKFL 

XLF.SERX, SLTDF 1,,LF.SER,MRKFL 

SRAD50 
SLTDF1 

'!,SLTDF3 

SLTDF2 
SNUM8R,,S.CTL 

SNUM8R,,S.UNT 
lEND.SEXIT 

<',>,SCTIM 
SSTRNG 

lEND.SEXIT 

SCTIM 

snumbr,schelo,s.ctim 

<',>,SCHEL 
SCHELO 
IEND,SEXIT 
<'  ,> 

SCHEL 
SNUM8R,BRADJ 

BRADJ 

<',>,BRADJ1 
.'END.SEXIT 
BRADJ 1 
SNUM8R,$EXn,S.BRA 


NTLCF2 
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SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


BUFDF 
CERR 


CFERR 

CFGBF 

CFGEXT 

CFGKW 

CFGNAM 

CFGST 

CFGSZ 

CFLIN 


CIRMUL 

CIRNAM 

CIRNUM 

CIRUNT 

CWARN 

DEACB 

DECPT 

DEVBUF 

DEVNM 

DVSZ 

DSEND 

DSLNAM 

DSNBRA 

D$NN 

ECLLLN 

ECLNOD 

ENDHEX 

ENDPAS 

ERRBUF 

ERRMSG 

FIELDC 

FILBUF 

FILFLG 

FLSZ 

FL.NTI 

FMT8 


FM.8B 

FM.9 

FNBEXT 

FNBSZ 


000574  R 
000742  RG 


000752  RG 
002235  RG 
000006  R 
000000  RG 
000000  R 
000000  RG 
002444  RG 
001052  RG 


002056  RG 
002050  RG 
002054  RG 
002154  RG 
000732  RG 
»**»«♦  Gx 
«*»*»♦  GX 
002142  RG 
002060  RG 
000010  G 
000104 
000006 
000054 
000060 
002460  RG 
002462  RG 
002104  RG 
002032  RG 


000022 
000012 
000003 
002122 
002152  RG 
000020  G 
**♦»*♦  GX 
001726  RG 


R 
R 

G 
RG 


FMT8B  001746  RG 
FMT9  001710  RG 
FM.8    =  000000 


000000 
000000 
000006  G 
002164  RG 
000044  G 


REFERENCES 

11-493 

7-110 

7-133 

7-147 

7-107 
#7-229 
#6-89 

11-501 
#6-88 
#17-701 
#7-230 

7-110 

7-133 

7-148 
#7-197 
#7-195 
#7-196 
#7-211 

7-114 

8-349 

8-334 
#7-208 
#7-198 
#7-209 

8-347 

8-339 
•8-335 

8-336 
#7-256 
#7-257 
#7-200 
#7-189 
#6-96 
#6-94 
#7-223 
#7-205 
#7-210 
#7-206 

8-290 

7-107 

7-134 

7-148 

7-112 

7-114 
#7-107 
#7-134 
#7-148 
#7-112 
#7-114 
#7-222 
#7-216 
#7-219 


7-112 
7-134 
7-148 
7-108 
10-459 
9-433 
#17-701 
9-432 

»10-461 
7-112 
7-134 
7-149 


#12-537 

8-346 
7-209 


16-681 
*8-338 


12-548 
12-560 

7-206 


7-108 

7-135 

7-149 

7-113 

#7-160 

#7-108 

#7-135 

#7-149 

#7-113 


7-113 
7-135 
7-149 
7-109 
11-503 


11-502 
7-113 
7-135 
7-150 


8-348 


7-109 
7-141 
7-150 
7-117 

#7-109 
#7-141 
#7-150 
#7-117 


J 

PAGE   1 

11 

CREF       04. 

00 

7-117 
7-141 
7-150 
7-127 
13-590 

7-119 
7-142 
7-151 
7-128 

7-121 

7-143 

#12-541 

#12-545 

7-122 
7-144 

7-129 
7-145 

7-132 
7-146 

13-591 
7-117 
7-142 
7-151 

7-119 

7-143 

#13-590 

7-121 
7-144 

7-122 

7-145 

7-129 
7-146 

7-132 
7-147 

16-680 

7-110 
7-142 
7-151 
7-119 

7-122 

7-143 

#7-161 

7-121 

7-127 
7-144 

7-133 

7-128 
7-145 

#7-162 

7-129 
7-146 

7-132 

7-147 

#7-110 
#7-142 
#7-151 

#7-122 
#7-143 

#7-127 
#7-144 

#7-128 
#7-145 

#7-129 
#7-146 

#7-132 
#7-147 

NTLl 
LOC; 


#7-121 


#7-133 


NTLCF2 
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LOCAL  SYMBOL  DEFINITIONS 


i   12 

00:29 
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NTL 
LN* 


67 

68 

69 

70 

71 

00007A 

72 

000076 

75 

0000^0 

7A 

OOOOAO 

75 

002000 

76 

007777 

-7 

000C06 

78 

000000 

79 

023417 

80 

000177 

.SBTTL  LOCAL  SYMBOL  DEFINITIONS 


LOCAL  SYMBOL  DEFINITIONS 


LBRA  = 

'< 

RBRA  = 

•> 

SPACE  = 

40 

BLKSMN 

=  32. 

BLKSMX 

=  1024. 

CHNLMX 

==  4095. 

CUNMMX 

==  6 

SUBAMN 

-=  0 

SUBAMX 

==  9999. 

WNDSMX 

=  127. 

LEFT  ANGLE  BRACKET 
RIGHT  ANGLE  BRACKET 
ASCII  SPACE 

MINIMUM  VALUE  FOR  BLOCK  SIZE 
MAXIMUM  VALUE  FOR  BLOCK  SIZE 
MAXIMUM  VALUE  FOR  CHANNEL  NUMBER 
MAXIMUM  VALUE  FOR  CUG  NAME 
MINIMUM  VALUE  FOR  SUBADDRESS  RANGE 
MAXIMUM  VALUE  FOR  SUBADDRESS  RANGE 
MAXIMUM  VALUE  FOR  WINDOW  SIZE 


K  12 
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NT 


L- 
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LNKENO  -  LINK  BLOCK  AT  END  OF  LIST 


Nl 


53^ 
535 
536 
537 
538 
539 
5^0 
541 
542 
543 
544 
545 
546 
547 

548  000760 

549  000762 

550  000764 

551  000766 

552  000770 

553  000774 

554  000776 

555  001000 

556  001002 

557  001004 

558  001910 


010001 
011000 
001405 
010046 

012600 
C00770 
010546 
010146 


.S8TTL  LNKEND  -  LINK  BLOCK  AT  END  OF  LISI 


LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 

INPUTS: 

RO  -  ADDRESS  OF  LISTHEAD 

R5  -  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 

OUTPUTS: 

BLOCK  IS  LINKED  AT  END  Of  LIST 


10$: 


MOV 

RO.RI 
(R0),RO 

MOV 

BFO 

10$ 

MOV 

RO,-(SP) 

CALL 

$CEACX 

MOV 

(SP)t,RO 

BR 

LNKEND 

MOV 

R5,-(SH) 

MOV 

R1,-(SP) 

CALL 

SLINKX 

RETURN 


SAVE  ADDRESS  OF  PREVIOUS  BLOCK 
GET  ADDRESS  Of  NEXT  BLOCK  IN  LIST 
BR  IF  END  OF  LIST  -  LINK  IT  HERE 
SET  UP  UNMAPPED  ADDR  FOR  CONVERSION 
CONVERT  TO  MAPPED  ADDRESS 
RETRIEVE  MAPPED  ADDRESS 
GET  NEXT  BLOCK  IN  LIST 
GET  UNMAPPED  ADDR  OF  CURRENT  BLOCK 
GET  ADDRESS  OF  PREVIOUS  BLOCK 
LINK  BLOCK  INTO  LIST 
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NTLCSR  -  CHECK  CSR  ADDRESS 


5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
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000000 


000000 
000006 


OOOOK 
000016 


000020  000120'  000120' 


89 

90 

91    000000 


;    LIBRARY  MACROS 

•  *** 

.MCALL 
.IF  DF 
.MCALL 
.ENDC 

**  * 

LOCAL  DATA 
**  * 


DIR$,SVTK$ 

R$$MPL 

STAF$,RMAF$S 


.PSECT      DATA.D 


SET  SST  VECTOR  DP8S 


SST: 
NOSST: 


SVTKS 
SVTK$ 


SSTA8,2 


TEMPORARY  STORAGE  OF  UISAR7,UISDR7 


UAR7SV:  .BLKW 
UDR7SV:  .BLKW 


SST  TRANSFER  TABLE 

SSTAB:   .WORD  OFFLIN.OFFLIN 

SET  AFFINITY  DPS 

.IF  OF  R$$MPL 

SETAF:   STAFS  0 
.ENDC 

.PSECT 


NTLCSR  -  CHECK  CSR  ADDRESS 
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LOCAL    DATA 
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202  00U75 

205  001516 

20^ 

205 

206 

207 

208  000000 

209 

210 

211 

212 

213  000000 

2U 

215 

216 

217  000000 


052 
052 


OAO 

c;2 


111 
0^0 


FMT6: 
FMT9: 


.ASCIZ 

.ASCIZ 

.EVEN 

.DSABL 

.LIST 


Image  File  --  ' 
:  Device  Tables 


LC 
BEX 


.PSECT   ..6UF,D 

;  DISK  BUFFER  FOR  LABEL  BLOCK  READ 
DSKBUF:  .8LKW   1 

.IFTF    ;  DF  R$$11M 

.PSECT 


<   15 
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NTLDEV   -  BUILD  DEVICE   DATA   3TRU  MACRO  V05.05b   Saturday  29-Jun-85   00:30     Page   17 
DVDEA  -  DEALLOCATE    DATA   STRUCTURES   AND   CLOSE    FILE 
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72? 
72A 
725 
726 
727 
728 
729 
730 
731 
732 
753 
73A 
73S 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 


.S8TTL  DVDEA  -  DEALLOCATE  DATA  STRUCTURES  AND  CLOSE  FILE 
.SBTTL   FNDEA  -  PRINT  FILE  NAME  AND  DEALLOCATE 
.S8TTL   IFNDEQ  -  PRINT  FILE  NAME  AND  CLOSE  FILE 


DVDEA  - 
FNDEA  - 
SFNDEQ 

INPUTS: 


DEALLOCATE  DATA  STRUCTURES  AND  CLOSE  IMAGE  FILE 
PRINT  FILE  NAME  AND  DE-ALLOCATE 
-  PRINT  FILE  NAME  AND  CLOSE  FILE 


001412 

001416 

001422  016700 

001426  016701 

001432 

001436 
00H42 


$LBUF=8UFFER  ADDRESS 
$LLEN=BUFFER  LENGTH 


R$$11M 


OOOOOOG 
OOOOOOG 


;  OUTPUTS: 

NONE 

FNDEA: 
DVDEA: 

.IFT 
CALL 
SUSTKS 
MOV 

MOV 
CALLR 

;  OF 

SFNOUT 

SCLDEQ 

SLBUF.RO 

$LLEN,R1 

aOEACB 

iFNDEQ 

CALL 
CALLR 

SFNOUT 
SCLDEQ 

PRINT  FILE  NAME 
»  ENTER  KERNEL  MODE 

•  GET  BUFFER  ADDRESS 

*  AND  LENGTH 

»  DE-ALLOCATE  DEVICE  DATA  STRUCTURES 

PRINT  FILE  NAME 
CLOSE  FILE  AND  EXIT 


NTI  DFV 
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Symbol  table 
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NTLC 
Tahl 


APR 

OOOOOORG 

002 

D$$YNM=  000000 

K$$TPS= 

000074 

N$$ACC= 

000001 

APRSV 

000002RG 

002 

E$$XPR=  000000 

LD$LP  = 

OCOOOO 

N$$BUF= 

889851 

A$$CHK= 

000000 

f$$LVL=  000001 

L$$ASG= 

000000 

N$$LDV= 

000001 

A$$rP5= 

000000 

G$$TPP=  000000 

L$$DRV= 

000000 

N$$^CP= 

000001 

A$$PRI= 

000000 

G$$TSS=  000000 

L$$P11= 

000001 

N$$MLL= 

998291 

A$$TRP= 

000000 

G$$TTK=  000000 

L$$11R= 

000000 

N$$MOV= 

000010 

C$$CKP= 

000000 

G$$URD=  000000 

M$$CR8= 

000124 

N$$NCT= 

000001 

Ct$ORE= 

OOOAOO 

ISAR5  =  ****** 

GX 

H$$CRX= 

000000 

N$$PEM= 

099991 

CS$RSH= 

17756A 

1$$RAR=  000000 

M$$fCS= 

000000 

P$$P45= 

000000 

C)ttBUG= 

1775K 

I$$RDN=  000000 

M$$MGE= 

000000 

P$$URD= 

000000 

D$$!SK= 

000000 

K$$CNT=  177546 

M$$NET= 

000000 

0$$OPT= 

000010 

D$$Ln  = 

000001 

K$$CSR=  177546 

M$$OVR= 

000000 

R$$DER= 

000000 

D$SYNC= 

000000 

K$$LDC=  000000 

.  ABS. 

000000 

000 

(RW,I,GBL,ABS,0VR) 

000000 

001 

(RW,1,LCL,REL, 

ON) 

DATA 

000004 

002 

(RU,D,LCL,REL, 

ON) 

.'lAPX 

0001  K 

003 

(RW,I,LCL,REL, 

ON) 

errors 

detected: 

0 

»•«  Assembler  statistics 

Work   f 

lie  reads 

:  0 

Work   f 

lie  writes 

:  0 

R$$K11=  000001 
R$$SND=  000000 
R$$11M=  000000 
S$$WRG=  000000 
S$$YSZ=  0C7600 
T$$KMG=^  000000 
T$$MIN=  000000 
V$$CTR=  001000 
X8IAS  =  ****..*  GX 
X$$DBT=  000000 
$MAPX  OOOOOORG 
SMAPXP  000034RG 


003 
003 


Size  ot  work  file; 
Size  of  core  pool : 
Operating     system; 


9038  Words     (  36  Pages) 
14440  Words      (   55  Pages) 
RSX-11M/PLU5 
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NTLCEX  -  LOAD  COMM  EXEC  IMAGE 
Tahle  of  contents 
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NTLC 
CEPT 


s- 

SA 

h- 

99 

t- 

r'HS 

8- 

^81 

9- 

A  89 

10- 

Sil 

11- 

S8,' 

12- 

fi(S8 

H- 

^02 

U- 

HOS 

n- 

«f-7 

1ft- 

91  ■> 

1/- 

960 

18-  995 


MACRO  DEFINITIONS 

LOCAL  DATA 

SSCEX  -  TRANSFER  COMM  EXEC  INTO  CORE 

CESYM  -  LOOK  FOR  SPECIAL  SYMBOLS 

DECBLK  -  SET  UP  DECNET  HOME  BLOCK 

NLBLK  -  SET  UP  NETLDR  DATA  BLOCK 

CEPTR  -  RELOCATE  CETA8  ADDRESSES 

CECLK  -  SET  UP  MULTI-PROCESSOR  CLOCK  QUEUE  ENTRIES 

CENTI  -  NTINIT  PART  OF  SET  SYS  +  NTINIT 

CCBS  -  ALLOCATE  AND  LINK  CCB'S 

RDBS  -  ALLOCATE  RDBS 

SDBS  -  ALLOCATE  SDBS 

GT8UF  -  GET  NEXT  BUFFER  ADDRESS 

SALTLC  -  SET  UP  XPT  CIRCUIT  COUNTER  BLOCK 
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NTLC 
CEPT 
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CEPTR  -  RELOCATE  CETAB  ADDRESSES 
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582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 

596  001012 

597  001012 

598  001014 

599  001020 

600  001024 

601  001030 

602  001034 

603  001036 

604  001044 

605  001052 

606  001060 

607  001066 

608  001074 

609  001102 

610  001106 

611  001112 

612  001120 

613  001126 

614  001134 

615  001142 

616  001150 

617  001156 

618  001164 

619  001172 

620  001200 

621  001206 

622  001212 
623 

624 
625 
626 
627 

628  001220 

629  001224 

630  001230 

631  001234 

632  001240 

633  001244 

634  001246 

635  001250 

636  001254 

637  001260 

638  001264 


.SBTTL  CEPIR  -  RELOCATE  CETAB  ADDRESSES 

h 

CEPTR  -  RELOCATE  CETAB  ADDRESSES 

INPUTS: 

R1=CETAB  ALLOCATION  ADDRESS 

OUTPUTS: 

$NTLPT=NETLDR  DATA  BLOCK  ADDRESS 
R0,R1,R2=DESTROYED 


CEPTR: 


010146 

017700 

OOOOOOG 

012701 

000012 

010077 

OOOOOOG 

012601 

016777 

000262- 

OOOOOOG 

016777 

000274' 

OOOOOOG 

016777 

000306' 

OOOOOOG 

016777 

000320' 

OOOOOOG 

016777 

000332' 

OOOOOOG 

016777 

000224' 

OOOOOOG 

005077 

OOOOOOG 

017700 

OOOOOOG 

016760 

OOOOOOG 

000060 

016760 

OOOOOOG 

000076 

016760 

OOOOOOG 

000064 

016760 

OOOOOOG 

000066 

016760 

OOOOOOG 

000070 

016760 

OOOOOOG 

000062 

016760 

OOOOOOG 

000056 

016760 

OOOOOOG 

000072 

016760 

OOOOOOG 

000074 

016760 

OOOOOOG 

000100 

006360 

000070 

016777 

OOOOOOG 

OOOOOOG 

MOV  R1,-(SP) 

NOV  aTKPS,RO 

MOV  #10.,R1 

CALL  $DIV 

MOV  RO.aTKlOO 

MOV  (SP)+,R1 

MOV  .PDVTB+10,aPDVTA 

MOV  .SLTMB+lO.aSLTMA 

MOV  .LLCTB+10,aLLCTA 

MOV  SLTTOT+10,aSLTNM 

MOV  PDVTOT+lO.aPDVNM 

MOV  I8LKl*-10,aCX0PT 

CLR  aLGDDB 

MOV  aDECPT.RO 

MOV  .NN,D$NN(R0)    , 

MOV  .ROUTM,D$RTMR(RO) 

MOV  .MAXC,D$MAXC(RO) 

MOV  .MAXH,D$MAXH(RO) 

MOV  .MAXH,D$MAXV(RO) 

MOV  .NA,D$NA(RO) 

MOV  .N8EA,D$NBEA(R0) 

MOV  .AMAXCOSAMXCCRO) 

MOV  .AMAXH,D$AMXH(RO) 

MOV  .ROUTB,D$BRTM(R0) 

ASL  D$MAXV(RO) 

MOV  .HOME.aNTLPT 


RELOCATE  CETAB  ADDRESSES 


060177 
060177 
060177 
017700 
017702 
001440 
060120 

017700 
017702 
001421 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


5$: 


ADD 

R1,aPDVTA 

ADD 

Rl.aSLTMA 

ADD 

Rl.aLLCTA 

MOV 

aPDVTA,RO 

MOV 

aPDVNM,R2 

BEO 

101$ 

ADD 

R1,(R0)t 

SOB 

R2,5$ 

MOV 

aSLTMA,R0 

MOV 

aSLTNM,R2 

BEQ 

10$ 

SAVE  Rl 

GET  PROGRAMMABLE  CLOCK  VALUE 
CALCULATE  $TKPS/10. 
DO  IT 

INITIALIZE  TIMER  VALUE 
RESTORE  Rl 
INITIALIZE  THE  TABLE  POINTERS 


INITIALIZE  THE  NUMBER  OF  TABLE  ENTRIES 


SET  UP  COMM  EXEC  OPTIONS 
NO  LOGGING  DATABASE  YET 
STORE  DECNET  HOME  BLOCK 
INITIALIZE  ROUTING  PARAMETERS 


COPY  NETLDR  DATA  BLOCK  ADDRESS 


RELOCATABLE  ADDRESSES 

relocate" THE  PDV  TABLE 

MUST  BE "at  LEAST  1  PDV  1!1 

REPEAT'$PDVNM  TIMES 
RELOCATE  THE  SLT  TABLE 

IF  EQ/nO  ENTRIES  IN  SLT  TABLE 
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NTLC 
MACR 


LF.TIM= 

LF.UNL= 

LF.X2P= 

LGDDB  = 

LLCTA  = 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

IN.0AU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LTIM 

L$$A5G= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MAXOV  = 

MPAR   = 

MPCSR  = 

M$$CRB= 

M$$CRX= 

M$$FCS= 

l«l$$MGE  = 

MS$NET= 

M$$OVR= 

NBIAS  = 

NETPF  = 

MPR 

NIRO 

NLBLK 

NTLPT  = 

NTPT 

N$ADJ1 


000010 
020000 
000000 

****** 
****** 

000000 

000005 

OOOOOA 

000003 

000003 

000001 

000000 

OOOOOA 

000001 

000002 

000002 

000017 

000360 

000006 

000026R 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

OOOOK 

000021 

000013 

172100 
177746 
000124 
000000 
000000 
000000 
000000 
000000 


GX 
GX 


GX 


000030R 

000032R 

000702R 

.♦*.*♦  G 

000002R 

000072 


GX 
GX 


GX 


N$ADJ2 

000074 

RDBCT  = 

******  GX 

TSLTCL 

000024 

$ERR56= 

****** 

GX 

NSCACH 

000062 

RDBLH  = 

******  GX 

TSLTIH 

000026 

$ERR57= 

****** 

GX 

NSCRC 

000120 

RDBNM  = 

******  GX 

TSLTPR 

000014 

$ERR58= 

****** 

GX 

N$HC1 

000052 

RDSS 

002032R 

TSLTPS 

000020 

$ERR59= 

****** 

GX 

N$HC2 

000056 

RDBSZ  = 

******  GX 

TSNAPL 

000004 

$ERR60= 

****** 

GX 

N$LV1 

000002 

RD8TH  ^ 

******  GX 

T$NFE 

000000 

$ERR61= 

****** 

GX 

N$LV2 

000010 

R$$DER= 

000000 

TSNLEN 

000010 

$ERR62= 

****** 

GX 

NIMHCI 

000036 

R$$K11= 

000001 

TSNNUL 

000002 

$ERR63= 

****** 

GX 

N$MHC2 

000044 

R$$SND= 

000000 

TSNOPL 

000006 

$ERR64= 

****** 

GX 

NSPLD 

000016 

R$$11M= 

000000 

TSNRNl 

000042 

$ERR65= 

****** 

GX 

N$PRI 

000076 

SDBCT  = 

******  GX 

TSNRPL 

000005 

$ERR66= 

****** 

GX 

NSROAI 

000022 

SDBLH  = 

******  GX 

TSNRUL 

000007 

$ERR67= 

****** 

GX 

N$R0A2 

000030 

SDBNM  = 

******  GX 

TSNVR 

000001 

$ERR68= 

****** 

GX 

NSRTMX 

000014 

SDBS 

002140R 

TSRPR] 

000040 

$FLAGS= 

****** 

GX 

NSRTMI 

000014 

SDBSZ  = 

******  GX 

T$SVC 

000034 

$FRKHD= 

****** 

GX 

N$RTM2 

000015 

SF.ACT= 

000200 

T$T5 

000030 

$HEADR= 

****** 

GX 

N$RT1 

000000 

SF.ENA= 

000100 

T$T6 

000032 

$MAPX  = 

A***** 

GX 

N$RT2 

000006 

SF.LPB= 

000004 

T$$KMG= 

000000 

SPRCLN 

000004RG 

002 

NSTCTL 

000112 

SF.MFL= 

000040 

T$$M]N= 

000000 

SPREXT 

OOOOOORG 

002 

002  NSTLC 

000100 

SF.PAC= 

000020 

UBMPft  = 

170200 

SPRINC 

000004RG 

002 

NSTNC 

000114 

SF.REA= 

000010 

UISARO= 

177640 

$PRIO  = 

****** 

GX 

N$TRC 

000106 

SF.SER= 

000001 

UISAR1= 

177642 

SPRLEN 

000004RG 

002 

NSTTCB 

000110 

SF.SVC= 

000002 

VXBLKl 

0001 56P 

002 

SPRLLN 

000004RG 

002 

NSVER 

000066 

SF.UNL= 

000040 

VXBLK2 

0001 70R 

002 

$RSXNM= 

****** 

GX 

NSXLEN 

000124 

SLTMA  = 

******  GX 

VXBLK3 

000202R 

002 

$SLTA  = 

****** 

GX 

N$$ACC= 

000001 

SLTNM  = 

******  GX 

V$$CTR= 

001000 

$STKDP= 

****** 

GX 

N$$BUF= 

000001 

SLTTOT 

00031  OR 

002  XAVL  = 

****** 

GX 

$SYMBL= 

****** 

GX 

N$$LDV= 

000001 

ST8ERR 

000544R 

XBIAS  = 

****** 

GX 

$XPAR  = 

****** 

GX 

N$$MCP= 

000001 

ST8EXT 

000020R 

002  XBLKl 

000120F 

002 

$$HTIM= 

****** 

GX 

N$$MLL= 

000001 

SWR   = 

177570 

XBLK2 

000132F 

002 

$$LTIH= 

****** 

GX 

N$$MOV= 

000010 

SYSNM  = 

******  GX 

XBLK3 

000144F 

002 

.ALL0C= 

****** 

GX 

N$$NCT= 

000001 

S$CEX 

OOOOOORG 

XPTPDV 

000034f 

002 

.AMAXC= 

****** 

GX 

N$$PEM= 

000001 

S$$WRG= 

000000 

X$$DBT= 

000000 

.AMAXH= 

****** 

GX 

PAVL   = 

****** 

GX 

S$$YSZ= 

007600 

ZTIME  = 

****** 

GX 

.BASEB= 

uoooo 

PDVID  = 

****** 

GX 

S.COST 

000001 

Z.DAT  = 

****** 

GX 

.CCBNM= 

****** 

GX 

PDVNM  = 

****** 

GX 

S.FLG 

000000 

Z.MAP  = 

****** 

GX 

.CXALL= 

****** 

GX 

PDVTA  = 

****** 

GX 

S.LEN 

000004 

$ALL16= 

****** 

GX 

.CXC5R= 

****** 

GX 

PDVTOT 

000322R 

002  S.NMST 

000002 

$ALL18= 

****** 

GX 

.CXLEN= 

****** 

GX 

PIRQ  = 

y77772 

S.OUNR 

000003 

SALTLC 

00231 4RG 

.HOME  = 

****** 

GX 

PMODE  = 

030000 

TKPS  = 

******  GX 

SAZFS  = 

****** 

GX 

.LLCTB 

000276R 

002 

PRO 

000000 

TK100  = 

******  GX 

$CLINS= 

****** 

GX 

.HAXC  = 

****** 

GX 

PR1 

000040 

TPS   = 

177564 

$CTBIO= 

****** 

GX 

.MAXH  = 

****** 

GX 

PR2 

000100 

TSKERR 

000316R 

$CXUIC= 

****** 

GX 

.MXPRO= 

**  Jr*** 

GX 

PR3 

000140 

TSFLAG 

000044 

$DEA16= 

****** 

GX 

.NA   = 

****** 

GX 

PR4 

000200 

TSLIF 

000013 

$DIV  = 

****** 

GX 

.NBEA  = 

****** 

GX 

PR5 

000240 

TSLIFL 

000013 

$ERRQY= 

****** 

GX 

.NBRA  = 

****** 

GX 

PR6 

000300 

TSLIFO 

000013 

$ERRXQ= 

****** 

GX 

.NN   = 

****** 

GX 

PR7 

000340 

TSLIFS 

000013 

$ERRZA= 

****** 

GX 

.NOMAP= 

****** 

GX 

PS 

177776 

T$LIN 

000000 

$ERR44= 

****** 

GX 

.NTPSZ= 

****** 

GX 

PUMR  = 

t * t*** 

GX 

TSLIPS 

000006 

$ERR45= 

****** 

GX 

.PCB  = 

****** 

GX 

P$$P45= 

O^mOO 

r$LLD 

000012 

$ERR46= 

****** 

GX 

.PDVTB 

000252R 

002 

002  P$$WRD= 

000000 

TSLLDC 

000045 

$ERR47: 

****** 

GX 

.PUMR  = 

****** 

GX 

002  P.BLK5= 

****** 

GX 

TSLLDL 

000012 

$ERR4b-- 

****** 

GX 

.RDBNM= 

****** 

GX 

P.REL  = 

****** 

GX 

TSLLDO 

000012 

$ERR51= 

****** 

GX 

.ROUTB= 

****** 

GX 

06IAS  = 

****** 

GX 

T$LL()S 

000012 

|ERR53= 
$ERR54= 

****** 

GX 

.ROUTM= 

****** 

GX 

002  QSTRT  = 

****** 

GX 

TSLLEN 

000046 

****** 

GX 

.RPR!  = 

****** 

GX 

Q$$0PT= 

000010 

TSLOPR 

000002 

$ERR55= 

****** 

GX 

.SDBNM= 

****** 

GX 
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NTL 
CFL 


58 

59 

60 

61 

62 

63 

6A  000000 

65  000000 

66 

67 

68 

69 

?0 

71 

72 

73 

7A 

75 

76 

77 


.SBTTL  MACRO  DEFINITIONS 
LIBRARY  MACROS 

.MCALL  ASL$,EHSG$R,GCL$, I  STATS, NTLER$, STATES, TRANS, SLTDF$,DH8DF$ 


SLTDFS 
DhBDFS 


LOCAL  .MACROS 


REJECT  TPARS  TRANSITION 

.MACRO  REJS 
ADD     #2,(SP) 
CLR     SVNERR 
.ENDM   REJS 


;  DEFINE  SLT  OFFSETS 

;  DEFINE  DECNET  HOME  BLOCK  OFFSETS 


RETURN  TO  CALLER+2 
INDICATE  NO  SYNTAX  ERROR 
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NTL 
LNK 


545 
5A6 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 


.S8TTL 
.SBTTL 


CFLIN  -  ECHO  LAST  RECORD 

FNLIN  -  ECHO  FILE  NAME  AND  LAST  RECORD 


001312 

001316  012700  000144' 

001322  016701  000352' 

001326 


CFLIN  -  ECHO  THE  LAST  RECORD  READ  FROM  THE  CONFIG  FILE 
FNLIN  -  ECHO  FILE  NAME  AND  LAST  RECORD  READ  FROM  CONFIG  FILE 

INPUTS: 

NONE 


OUTPUTS: 

NONE 

FNLJN::  CALL  SFNOUT 

CFLIN::  MOV  #CFG8F,R0 

MOV  CFGSZ.RI 

CALLR  STIOUT 


PRINT  FILE  NAME 

GET  RECORD  BUFFER  ADDRESS 

AND  RECORD  SIZE 

PRINT  IT  ON  TI: 
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LNKEND  -  LINK  BLOCK  AT  END  OF  LIST 


877 
878 
879 

880  002050 

881  002054 

882  002056 

883  002062 

884  002066 

885  002070 

886  002074 

887  002076 

888  002100 

889  002102 

890  002104 
891 

892 
893 

894  002106 

895  002112 

896  002114 

897  002120 

898  002122 

899  002126 

900  002130 

901  002132 

902  002134 

903  0021 36 
904 


005767  OOOOOOG 

001012 

016700  OOOOOOG 

022700  000040 

101005 

022700  002000 

103402 

000241 

000401 

000261 


005767  0000006 

001010 

016700  OOOOOOG 

002405 

022700  000177 

103402 

000241 

000401 

000261 


CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 


CHKBLK::TST 
BNE 
MOV 
CMP 
BHl 
CMP 
BLO 
CLC 
BR 

10$:    SEC 


.PNUMH 

10$ 

.PNUMB,RO 

#8LKSMN,R0 

10$ 

#BLKSMX,R0 

10$ 

20$ 


20$: 


RETURN 


CHECK  FOR  LEGAL  UlNDOW  SIZE  VALUE 


000001 


CHKWND 


10$: 
20$: 


:TST 
BNE 
MOV 
BLT 
CMP 
BLO 
CLC 
BR 
SEC 

RETURN 
.END 


.PNUMH 

10$ 

.PNUMB,RO 

10$ 

#UNDSMX,RC 

10$ 

20$ 


NT 
10' 


DOUBLE  WORD  VALUE? 

BR  IF  YES  -  ERROR 

GET  BLOCK  SIZE  VALUE 

IS  BLOCK  SIZE  WITHIN  RANGE? 

BR  IF  NO  -  ERROR 

BR'iF  no  -  ERROR 
INDICATE  LEGAL  VALUE 
AND  RETURN 
INDICATE  ILLEGAL  VALUE 


DOUBLE  WORD  VALUE? 
BR  IF  YES  -  ERROR 
GET  WINDOW  BLOCK  VALUE 
BR  IF  ILLEGAL  VALUE 
WITHIN  VALID  RANGE? 
BR  IF  NO  -  ERROR 
INDICATE  LEGAL  VALUE 
AND  RETURN 
INDICATE  ILLEGAL  VALUE 
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NI 
ER 


NTLCF2 
LOCAL  DA 

75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
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TA 

.SBTTL  LOCAL  DATA 


NTl 
REF 


000000 


000000 
000006 


000012 
000013 
000022 


103 
115 


015 
116 


105 
101 


124 


LOCAL  DATA 

.PSECT  DATA,D 
.NLIST  BEX 

CONFIG  FILE  NAME  AND  EXTENSION 


124  CFGNAM:  .ASCIZ 
103  CFGEXT:  .ASCIZ 


"CETAB' 
"MAC" 


ERROR  MESSAGE  BUFFER 


ERRMSG:  .BYTE  15 

114         .ASCII  "NTL  — 

ERRBUF:  .BLKS  70. 

.EVEN 
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NIL 
TPA 


'31 
652 
633 
63A 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 

645  001156 

646  001136 

647  001140 

648  001142 

649  001146 

650  001150 

651  001152 

652  001156 
655  001160 

654  001164 

655  001170 

656  001172 


.SBTTL  REP.NN  -  REPLACE  SIGNED  DECIMAL  NUMBER 


REP.NN  -  REPLACE  SIGNED  DECIMAL  NUMBER 

INPUTS: 

R5    =   ERROR   MESSAGE   BLOCK   ADDRESS 

OUTPUTS: 

RDB  SIZE  STORE  !N  BUFFER 


010500 

005720 

122720  000052 

001375 

005300 

016701 

005002 

112720  0CC056 
105020 


REP.NN: 


10$: 


OOOOOOG 


MOV 

TST 

CMPS 

BNE 

DEC 

MOV 

CLR 

CALL 

M0V6 

CLRB 

RETURN 


R5,R0 

(R0)  + 

#'*,(R0)+ 

10$ 

RO 

.RD8SZ,R1 

R2 

$C8DS6 

#'.,(RO)t 

(R0)  + 


COPY  ERROR  MESSAGE  BLOCK  ADDRESS 
POINT  TO  OUTPUT  BUFFER 
SEARCH  FOR  ASTERISK 

BACK  UP  TO  ASTERISK 

GET  RDB  SIZE 

ZERO  SUPPRESSION 

CONVERT  TO  DECIMAL  SIGNED 

INSERT  DECIMAL  INDICATOR  (PERIOD) 

SET  END  OF  STRING 
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NIL 


NTLCF2 

TPARS  STATE  TABLES 

1105 
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SYMBOL   VALUE 


FNBUFF 

FNLIN 

F.NXT 

F.USE 

F.VAR 

HEXSTR 

IE. EOF 

lE.RBG 

LBRA 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LO.CON 

LO.CSR 

LO.CTL 

LO.LINI 

LO.PAR 

LD.PRI 

LO.SCR 

LO.STA 

LO.VCT 

LR.AST 

LR.CIR 

LR.CTL 

LR.EFN 

LR.LIN 


002166  RG 

001046  RG 

000000 

000002 

000003 

002064  RG 

*♦♦*•*  GX 

»«*»*»  GX 

00007A 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000006 

000006 

000014 

000004 

000010 

000010 

000014 

000015 

000012 

000026 

000002 

000004 

000004 

000002 


REFERENCES 

#7-218 

7-109 
#5-72 
#5-7? 
#5-72 
#7-199 

10-469 

10-472 
#7-263 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 


7-219 
#13-589 


7-220 
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NTL 
LOC 


8-322 


8-322 


8-322 


NTLCF2 


CREATED  BY     MACRO     ON  29-JUN-85   AT  00:27  PAGE   3 


L   11 


NIL 


K  12 

MLCFP  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:29 

LOCAL  DATA 


Page  7 


82 

83 

8^ 

85 

86 

87 

88  000000 

89 

90 

91 

92 

93 

9A 

95  000000 

96  000006 
97 

98 

99 

100 

101  000012 

102  000013 
105  000022 
lOA 

105 
106 
107 
108 

109  000130 

110  000336 
111 

112  0003A0 

113  0003^2 
1U  0003AA 
115 

116  0003A6 

117  000350 

118  000351 

119  000352 

120  000351 

121  000356 

122  000357 
123 

12A 
125 
126 

127  000360 

128  000362 

129  00036A 

130  000366 
131 

132 

133 

13'i  000370 

135  000372 

136 

137 

138 


NTI 
FNI 


103 
115 


015 
116 


105 
101 


121 


124 
103 


114 


000001 
000002 


.SBTTL   LOCAL  DATA 


;  LOCAL 

DATA 

.PSECT 

DATA.D 

.NLIST 

BEX 

■  CONFIC 

FILE  NAME  AND 

CFGNAM: 
CFGEXT: 

.ASCIZ 
.ASCIZ 

"CETAB" 
"MAC" 

■  ERROR 

MESSAGE 

BUFFER 

ERRMSG: 
ERRBUF: 

.BYTE 

.ASCII 

.BLKB 

15 

"NTL  — 
70. 

.EVEN 
RECORD  BUFFER  AND  BUFFER  LENGTH 


CFGBF:: 
CFGS7:: 


.BLKB 
.BLKW 


SPSAV:  .BLKW 
SYNERR::.BLKW 
MRKFL::  .BLKW 


LINNAM 
LINCTL 
LINUNT 
NEXT:: 
PORTNO 
COUNT: 
CVTBUF 


.BLKW 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
.BLKB 
.BLKB 
.EVEN 


DATA  FOR  X3P$D 


BLKSZD 
8LKSZM 
WNDSZD 
WNDSZM 


•  BLKW 
.BLKW 
.BLKW 
.BLKW 


DATA  FOR  DTE$D 


DTEDES: 
DTEFLG: 


.BLKW 

.BLKW 

DE.ON 

DE.OFF 

.EVEN 


34. 


MACRO 


MACRO 


SAVED  STACK  POINTER  FOR  ERROR  EXIT 
SYNTAX  ERROR  FLAG 
MARKED-FOR-LOAD  FLAG 

DEVICE  NAME  FROM  LINE-ID  (RAD50) 

CONTROLLER  NUMBER 

UNIT  NUMBER 

ADDRESS  OF  NEXT  AVAILABLE  BYTE 

PORT  NUMBER  FROM  PSNSDF  MACRO 

COUNT  OF  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 

CONVERSION  BUFFER  FOR  ASCII  TO  DECIMAL  DIGIT 


DEFAULT  BLOCK  SIZE 
MAXIMUM  BLOCK  SIZE 
DEFAULT  WINDOW  SIZE 
MAXIMUM  WINDOW  SIZE 


DTE  ADDRESS 

FLAGS  WORD 

SET  DTE  STATE  TO  "ON" 

SET  DTE  STATE  TO  "OFF' 
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560 
561 
562 
563 
56A 
565 
566 
567 
568 
569 
570 
571 
572 
575 

574  001012 

575  001012 

576  0010K 

577  001020 

578  001 02A 

579  001026 

580  001030 

581  001032 

582  001036 

583  001040 

584  001044 

585  001046 

586  001050 

587  001052 

588  001054 

589  001060 

590  00^062 


.SBTTL   FNDPDV  -  FIND  PDV 


FNDPDV  -  TRY  TO  FIND  PDV 


INPUTS: 

R0=RAD5O  PDV  NAME 

OUTPUTS: 

C-B1T=SUCCESS/FAILURE 
RO=PDV  ADDRESS 
R1=PDV  INDEX 
R2^.)ESTR0YED 


010046 
017701 
017702 
001407 
012100 
001403 
026016 
001403 

000261 
005226 
006016 
005741 
167701 
006316 


OOOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 


FNDPDV: 


10$: 


20$ 
30$ 
40$ 


MOV 
MOV 

MOV 
BEQ 
MOV 
BEQ 
CMP 
BEQ 
SOS 
SEC 
INC 
ROR 
TST 
SUB 
ASL 
RETURN 


RO,-(SP) 

aPDVTA,Rl 

aPDVNM,R2 

30$ 

(R1)+,R0 

20$ 

Z.NAM(RO), 

40$ 

R2,10$ 

(SP)  + 

(SP) 

-(R1) 

aPDVTA.Rl 

(SP) 


(SP) 


SAVE  NAME  TO  BE  HATCHED 
GET  PDV  TABLE  ADDRESS 
AND  NUMBER  OF  PDV'S 
IF  ZERO,  NO  PDV'S! 
GET  PDV  ADDRESS 
IF  ZERO,  SKIP  THIS  ONE 
DOES  THE  NAME  MATCH? 
IF  EQ,  YES  (C-BIT  CLEAR) 
LOOP  IpDVNM  TIMES 

indicate  failure 
purge  stack 
save  c-bit 
calculate  pdv  index 

restore'c-bit 
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95 

9t, 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 

107  000000 

108  000000  005046 
109 

110 

in 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125  000002 

126 

127  000010 

128  000014  052766  OOOOOOG 

129  000022  017767  OOOOOOG 

130  000030  017767  OOOOOOG 

131  000036  017777  OOOOOOG 

132  000044  052777  077400 
133 

134  000052 
135 

136  000054     005710 

137  000056 

138  000062  016777  000016' 

139  000070  016777  000014' 

140  000076  042766  OOOOOOG 

141  0001C4 
142 

143  000106 

144 

145 

146 

147 

148 

149 


SNLCSR  -  TEST  FOR  DEVICE  ONLINE 

THIS  ROUTINE  IS  CALLED  TO  TEST  THE  DEVICE  CSR  FOR  ONLINE/OFFLINE.  IF  ODT 
IS  BEING  USED  WITH  NTL,  THE  ODD  ADDRESS  TRAP  IS  SERVICED  BY  ODT,  NOT  BY 
THE  ROUTINE  "OFFLIN". 

INPUTS: 

RO  =  CSR  ADDRESS 

$URM  =  UNIBUS  RUN  MASK  FOR  MULTI-PROCESSOR  RSX-11M+  SYSTEMS 


OUTPUTS: 

C-SIT 


iNLCSR: 


10$: 
20$: 


000020 

000014' 

000016' 

OOOOOOG 

OOOOOOG 


22$: 


OOOOOOG 
OOOOOOG 
000020 


25$: 


CLR 

.IF  DF 

TSTB 

BEQ 

MOV 

DIR$ 

BCS 

TST 

BPL 

INC 

BR 

.ENDC 

DIR$ 

SWSTK$ 

BIS 

MOV 

MOV 

MOV 

BIS 

RETURN 

TST 

SWSTK$ 

MOV 

MOV 

BIC 

RETURN 

DIR$ 

.IF  DF 

TSTB 

BEQ 

RMAF$S 


=  SUCCESS/FAILURE 

-(SP) 

R$$MPL 

SNCPU 

20$ 

$URM,SETAFtS.AFAF 

#SETAF 

10$ 

$DSW 

20$ 

(SP) 

30$ 


*SST 

22$ 

#PR7,20(SP) 

SUSAR7,UAR7SV 

aUSDR7,UDR7SV 

aK;SAR7,aUSAR7 

#77400, SUSDR7 


(RO) 

25$ 

UDR7SV,aUSDR7 

UAR7SV,aUSAR7 

#PR7,20(SP) 


#NOSST 

R$$MPl 

aNCPU 
30$ 


ASSUME  SUCCESS 


IS  THIS  A  MULTI-PROCESSOR  SYSTEM  ? 

IF  EQ,  NO 

;  ELSE,  RUN  ON  THE  RIGHT  PROCESSOR 

SET  AFFINITY 

IF  CS,  CAN'T 

WAS  IT  SUCCESSFUL  ? 

IF  PL,  YES 

INDICATE  FAILURE 

AND  LEAVE 


SETUP  SST  TO  CATCH  NXM  AND  MP  ONLY 

ENTER  SYSTEM  STATE 

RETURN  TO  USER  STATE  AT  PRIORITY  7 

SAVE  USER  APR7 

SAVE  USER  PDR7 

MAP  USER  TASK  TO  I/O  PAGE 

ACCESS  4KW 


TRY  TO  ACCESS  DEVICE  REGISTER 

ENTER  SYSTEM  STATE 

RESTORE  USER  PDR7 

RESTORE  USER  APR7 

RETURN  TO  USER  STATE  AT  PRIORITY  0 


TURN  OFF  SST'S  COMPLETELY 


IS  THIS  A  MULTI-PROCESSOR  SYSTEM 

IF  EQ,  NO 

REMOVE    THE    CPU  AFFINITY 


NTlCSR   -   CHECK   CSR   Ai  >'<ESS 
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219 

220 

221 

222 

22! 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239  000000 

240 

241 

242 

243  000000 

244  000004 

245  000006 

246  000012 

247  000014 

248  000020 

249  000022 

250  000026 

251  000030 

252  000034 

253  000036 

254  000042 

255  000044 

256  000050 

257  000054 

258  000062 

259  000064 

260  000072 

261  000076 
262 

263 
264 
265 
266 
267 
268 
269 
270 
271 

in  000102 

273  000106 

274 

275 


.SBTTL  SNLDtV  -  SET  UP  DEVICE  DATA  STRUCTURES 


tNLDEV  -  SETUP  DEVICE  DATA  STRUCTURES 

THIS  ROUTINE  IS  CALLED  WHEN  DOING  A  "SET  PROCESS"  OF  AN  LLC  If  THE  LLCSDf 
MACRO  IN  CETA8  INCLUDED  A  DEVICE  NAME  (SIXTH  MACRO  ARGUMENT).  If  THE  DEVICE 
DATA  STRUCTURES  ALREADV  EXIST,  THE  PCS  ADDRESS  IS  COPIED  fROM  THE  PDV  INTO 
THE  DC8.  If  THE  DATA  STRUCTURES  DO  NOT  EXIST,  THE  fILE  [1 31 ,54]XXXTAB.TSK 
IS  ASSUMED  TO  BE  AN  IMAGE  COPY  OF  THE  DEVICE  TABLES. 

INPUTS: 

$$DEV=2  CHARACTER  DEVICE  NAME  (ASCII) 
$PDVA=PDV  ADDRESS 
$NAME=PROCESS  NAME  (RAD50) 


103440 

103435 
005767 
001013 

103427 

103424 

103421 

016703 
016763 
001412 
016763 
016704 
016305 


000166' 


000150' 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000172' 

OOOOOOG 


OUTPUTS: 

C-BIT=SUCCESS/fAILURE 

LDEV:: 

.IfT 

;  DF  R$$11M 

CALL 

FIND 

BC5 

20$ 

CALL 

DVSVM 

BCS 

20$ 

TST 

FOUND 

BNE 

10$ 

CALL 

DVL8L 

BCS 

20$ 

CALL 

DVALL 

BCS 

20$ 

CALL 

DVXfR 

BCS 

20$ 

CALL 

$CLDEQ 

$ :    MOV 

DCe,R3 

MOV 

$$T8L,D.DSP(R3) 

BEO 

101$ 

MOV 

$PC8,D.PCB(R3) 

MOV 

UNITS, R4 

MOV 

D.UC8(R3),R5 

.If  DF 

R$$MPi 

SAVRG 

<R5> 

MOV 

U.SC8(R5),R5 

ADD 

SKS5,R5 

MOV 

$8IAS,(R5) 

RESRG 

<R5> 

.ENDC 

CALL 

$NLCDD 

)$:    RETURN 

SEE  IF  DATA  STRUCTURES  ALREADY  EXIST 

If  CS,  DRIVER  ALREADY  RESIDENT: 

LOOK  rOR  SPECIAL  SYMBOLS 

If  CS,  STB  fILE  ERROR 

DO  STRUCTURES  ALREADY  EXIST? 

IF  NE,  YES 

OPEN  IMAGE  fILE,  READ  LABEL  BLOCK 

If  CS,  fAILURE 

ALLOCATE  SPACE  fROM  THE  POOL 

If  CS,  fAILURE 

TRANSfER  STRUCTURES  INTO  CORE 

If  CS,  fAILURE 

CLOSE  IMAGE  fILE 

GET  DCS  ADDRESS 

COPY  DISPATCH  TABLE  ADDRESS 

IF  E(3,  ERROR 

COPY  PCB  ADDRESS 

GET  NUMBER  Of  UNITS 

GET  fIRST  UCB  ADDRESS 


SAVE  UCB  ADDRESS 
COPY  SC8  ADDRESS 
POINT  TO  S.KS5  OFFSET 
SETUP  S.KS5  FOR  HRC 
RESTORE  UCB  ADDRESS 


CALL  DRIVER  AT  POWERFAlL  ENTRY 


I 
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REP'.A  -  REPLACE  XXTAB  NAME  AND  SrMBOL  NAME 


750 
751 
75? 
755 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
76^.  00UA6 

765  00K50 

766  00U5A 

767  OOK56 

768  00U60 

769  00K62 

770  00U66 

771  00U70 

772  C0K72 

773  00U7A 
lli^   001500 

775  001504 

776  001510 

777  001512 

778  00151A 

779  001516 

780  001520 

781  001522 

782  001526 

783  001530 
734  001532 
7«  001536 
736  001542 

787  001546 

788  001552 

789  001554 

790  001560 

791  001564 

792  001566 

793  001570 

794  001574 

795  001576 


.SBTTL 
.S8TTL 


REP4A  -  REPLACE  XXTA8  NAME  AND  SI'MBOL  NAME 
REP4A1  -  REPLACE  XXX  NAME  AND  SVMBOL  NAME 


010146 

000420 
010146 
112314 
122724 
001374 
005304 
010400 
016701 

122740 
001775 
005200 
010004 
012601 
112314 
122724 
001374 
010400 
112744 
016146 
016101 

012601 

122740 
001775 
005200 
112720 
010004 


REP4A  -  REPLACE  XXXTAB  NAME  AND  SYMBOL  NAME 
REP4A1  -  REPLACE  XXX  NAME  AND  SYMBOL  NAME 


INPUTS: 


R1=SYMB0L    LOOKUP   CONTROL   BLOCK   ADDRESS 


OUTPUTS: 

R1=:DESTR0YED 


000052 

OOOOOOG 
000040 

000052 


000042 
000006 
000004 


000040 
000042 


REP4A1 
10$: 


20$: 


REP4A:  MOV 
CALL 
BR 
MOV 
M0V8 
CMPB 
BNE 
DEC 
MOV 
MOV 
CALL 
CMPB 
BED 
INC 
MOV 
REP4A2:  MOV 
10$:    M0V8 
CMPB 
BNE 
MOV 
MOVB 
MOV 
MOV 
CALL 
MOV 
CALL 
CMPB 
BEQ 
INC 
M0V8 
MOV 
RETURN 


20$: 


R1,-(SP) 

$REP.P 

REP4A2 

R1,-(SP) 

(R3)t,(R4) 

#'«,(R4)t 

10$ 

R4 

R4,R0 

$NAME , R 1 

$C5TA 

*'  ,-(R0) 

20$ 

RO 

R0,R4 

(SP)+,R1 

(R3)+,(R4) 

#'*,{R4)r 

10$ 

R4,R0 

#''',-(R4) 


6(R1) 

4(fi1) 

$C5TA 

(SP)+,R1 

$C5TA 

*'  ,- 

20$ 

RO 

*"',(R0) 

R0,R4 


(SP) 
R1 


(RO) 


SAVE  R1 

REPLACE  XXXTAB  NAME 

SAVE  R1 

COPY  FORMAT  STRING 

LOOKING  FOR  FIRST  ASTERISK 

SKIP  the'asterisk 

COPY  BUFFER  ADDRESS 
get  LLC  NAME 
CONVERT  TO  ASCII 
DISCARD  TRAILING  SPACES 


SET  NEW  BUrFER  ADDRESS 

RESTORE  R1 

COPY  FORMAT  STRING 

LOOKING  FOR  THE  SECOND  ASTERISK 

COPY  BUFFER  POINTER 
DEPOSIT  A  DOUBLE  QUOTE 
SAVE  SECOND  HALF  OF  NAME 
GET  FIRST  HALF  OF  NAME 
CONVERT  TO  ASCII 
RESTORE  SECOND  HALF  OF  NAME 
CONVERT  TO  ASCII 
DISCARD  TRAILING  BLANKS 


DEPOSIT  ANOTHER  DOUBLE  QUOTE 
SET  NEW  BUFFER  POINTER 
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WAPX       CREATED  BV  MACRO  ON  30-JL'N-85  AT  00:00 
5>MB0^  CROSS  PfPERENCE 


L  1 

PAGE  1 

CREF   04.00 


NTL( 


SYMBOL   VALUE 


APR 
APR  5  J 
SAR5 
Rt$CRO 
SSSBAS 
XBIAS 
SMA^f 
tMAP<c 


000000  RG 
000002  RG 
......  GX 


......  GX 

000000  RG 
000034  RG 


REFERENCES 

#4-53 
#4-57 

5-80 

5-78 

5-78 

6-135 

#6-111 


•5-90 
«5-91 
6-135 
6-117 
6-117 


5-94 

5-94 

6-136 

6-133 

6-133 
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NTLC 
CEPT 


5 

4 
5 
6 

7 

8 
9 
10 
11 
12 
13 
M, 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
31 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 
50 
5' 
52 


.TITLE  NTLCEX  -  LOAD  COMM  EXEC  IMAGE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICF.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  "SET  SYS"  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTOR': 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
Dr"nct-11M-Ptus  V3.0 
DEvnet-Micro/RSX  VI. 0 
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NTLC 
CECL 
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CEPTR  -  RELOCATE  CETAB  ADDRESSES 


639  001266 
6^0  001270 
6A1  00127A 

642  001300 

643  001304 

644  001306 

645  001310 

646  001312 

647  001314 

648  001316 

649  001320 

650  001324 
651 

652 
653 
654 
655 
656 
657 

658  001330 

659  001336 

660  001340 

661  001344 
662 

663 
664 
665 
666  001346 


060120 

017700 
017702 
006201 
005710 
100402 
005720 
0004D3 
060110 
052720 


OOOOOOG 
OOOOOOG 


100000 


6$: 

7$: 

8$: 
9$: 


032767  OOOOOOG  OOOOOOG  10$: 
001402 

20$: 


ADD 

SOS 

MOV 

MOV 

ASR 

TST 

BMI 

TST 

BR 

ADD 

BIS 

SOB 


R1,(R0)*- 

R2,6$ 

aLLCTA,RO 

aSLTNM,R2 

R1 

(RO) 

8$ 

(R0)  + 

9$ 

RI.CRO) 

#100000, (RO)i 

R2,7$ 


.IF  DF  R$$MPL 

CALL  CECLK 

.ENDC 

BIT  *FL.NTI,$FLAGS 

BEQ  20$ 

CALL  CENTI 
RETURN 


ERROR  CONDITION 
i01$:   EMSG$R  ZA 
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RELOCATE  TABLE 

RELOCATE 'the  REVERSE  MAPPING  TABLE 

SAME  NUMBER  OF  ENTRIES  AS  IN  SLT  TABLE 

DIVIDE  CETAB  START  ADDRESS  BY  2 

IS  THIS  A  STATION  TABLE  ADDRESS  ? 

IF  MI,  YES  ..  RELOCATE 

ELSE,  SKIP  IT 

LOOK  FOR  MORE 

RELOCATE  ADDRESS 

MAKE  SURE  HI  BIT  SET 

REPEAT  <$SLTNM>  TIMES 


SET  UP  MULTI-PROCESSOR  CLOCK  QUEUE  ENTRIES 


IS  THIS  SET  SYS  *   NTINIT  ? 

IF  EQ,  NO 

ELSE  GO  DO  NTINIT  WORK  ALSO 


INCONSISTENT  COMM  EXEC  IMAGE 


NTLC 
Symb 

.SLT 

AB 

DATA 
Erro 


Work 
Work 
Size 
Size 
Oper 

Elap 
SY:N 
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NTLC 
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NTLC 
CONS 


.SLTMB  00026AR 


002  .UMRFL=  »**»»*  GX 


.$$$$.=  000034 


.  ABS. 

177776 

000 

(RW,1 

,GRI 

,ARS 

OVR) 

002666 

001 

(RU.I 

,1  CI 

,RbL 

CON) 

DATA 

000410 

002 

(RW,D 

,LCL 

RtL 

CUNJ 

Errors 

detected: 

0 

**  Assembler  statistics 


Work   file  reads:  63 

Work   file  writes:  64 

Size  ot  work  file:  20486  Words 

Size  of  core  pool:  17608  Words 

Operating  system:  RSX-11M/PLUS 


(  81  Pages) 
(  67  Pages) 


SYfNTLCEx'v2![?32??^4]NTLCEX/CR/-SP  =  SY:[1 J ]RSXMCM.SML/ML,[1 30,11 03NETLIB/ML, [130, 10]RSXMCM/PA:1, [152,1  03NTLCEX 


NTLCEX 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:23 


PAGE   1 


n   4 


NTLl 
LOC 
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CONSTAI^T  DEFINITIONS 


NTL 
REF 


79 
80 
81 
82 
83 
84 
85 
86 
87 


000007 
000200 
OOOOAO 
002000 
000177 
007777 


.S8TTL   CONSTANT  [DEFINITIONS 
CONSTANTS 


MAXWND  =  7 
MAXNDC  =128. 
BLKSMN  =  32. 
BLKSMX  =  1024. 
WNDSMX  =  127. 
CHNLMX  ==  4095. 


MAXIMUM  WINDOW  SIZE  (SVCSDF) 

MAXIMUM  NUMBER  OF  NODE  COUNTERS  (LLCSDF) 

MINIMUM  BLOCK  SIZE  VALUE 

MAXIMUM  BLOCK  SIZE  VALUE 

MAXIMUM  WINDOW  SIZE  VALUE 

MAXIMUM  VALUE  FOR  CHANNEL  NUMBER 
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LOCAL    DATA  
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NTl 
TPy 


NTLCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85 
REP8A  -  REPLACE  DEVICE  NAME  AND  CONTROLLER  NUMBER 


hoA 


3  Page  15 


563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 

578  001332 

579  001334 

580  001340 

581  001342 

582  001346 

583  001352 

584  001354 

585  001360 

586  001362 

587  001366 

588  001372 

589  001374 

590  001400 


112314 
122724 
001374 
012700 
112064 
112024 
122720 
001402 
116024 
112724 
111014 
152724 


.SBTTL  REP8A  -  REPLACE  DEVICE  NAME  AND  CONTROLLER  NUMBER 


REP8A  -  REPLACE  DEVICE  NAME  AND  CONTROLLER  NUMBER 

INPUTS: 

R3=F0RMAT  STRING  ADDRESS 
R4==ERR0R  MESSAGE  BUFFER  ADDRESS 
NAME=L1NE  (DDM)  NAME 
CTL=C0NTR0LLER  NUMBER 

OUTPUTS: 

R0=DESTROYED 
R3,R4=UPDATED 


000052 

000012' 
U7777 

000040 

U7777 
000055 

000060 


REP8A: 


10$: 


MOVB 

CMP8 

BNE 

MOV 

MOVB 

MOVB 

CMPB 

BED 

MOVB 

MOVB 

MOVB 

BISB 

RETURN 


(R3)+,(R4) 

*'*,(R4)+ 

REP8A 

#NAME,RO 

(R0)+,-1(R4) 

(R0)  +  ,(R4)*- 

#'  ,(R0)+ 

10$ 

-1(R0),(R4)+ 

#'-,(R4)*- 

(R0),(R4) 

#'0,(R4)t 


LOOK  FOR  THE  ASTERISK 


POINT  AT  LINE  ID  INFO 
COPY  LINE  NAME 

SKIP  TRAILING  BLANK  (IF  ANY) 

COPY  LAST  CHARACTER  OF  NAME 
DEPOSIT  A  HYPHEN 
COPY  CONTROLLER  NUMBER 
MAKE  IT  AN  ASCII  NUMBER 
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TPARS  STATf  TABLES  -  COMMON  SUBEXPRESSIONS  
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Symbol  table 
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NT 
ER 


ADDDF 

000100R 

003 

DSNBEA 

AD.NUM 

001534R 

DSNBRA 

A$$CHK= 

000000 

D$NEND= 

A$$CPS= 

000000 

DSNLN 

ASSPRI^ 

000000 

D$NN 

A$$TRP= 

000000 

DSOUTT 

BITS 

OOOOOOR 

003 

DSRETF 

BITS1 

000030R 

003 

DSRNN 

BITS2 

00004AR 

003 

DSRTMR 

BLKSMN= 

000040 

DSSEG 

BL<SMX= 

002000 

DSSER 

CERR 

001214RG 

DSSQRL 

CFERR 

00122ARG 

D$$BUG= 

CFGBF 

OOOUARG 

002 

DS$ISK= 

CFGEXT 

000006R 

002 

D$$L11= 

CFGFLG 

0001 36RG 

002 

D$$VNC= 

CFGKW 

OOOOOORG 

004 

DS$VNM= 

CFGNAM 

OOOOOOR 

002 

D.NAME 

CFGST 

OOOOOORG 

003 

END 

^FGSZ 

000352RG 

002 

ERRBUF 

.  FLIN 

001316RG 

ERRMSG 

CHKBLK 

002050RG 

EXT 

CHKWND 

002106RG 

E$SXPR= 

CHNLMX= 

007777  G 

FG.X2P= 

CTL 

00001 5RG 

002 

FG.X3P= 

C$SCKP= 

000000 

FMT8 

C$$ORE= 

OOOAOO 

FMT8A 

C$$RSH= 

177564 

FMT8B 

DECPT  = 

»*♦»•»  GX 

FM.8  = 

DE.GFF= 

000002  G 

FM.8B  = 

DE  ON  = 

000001  G 

FNDPDV 

DTtDES 

000360RG 

002 

FNLIN 

DTEFLG 

000362RG 

002 

F$SLVL= 

DSAMXC 

000072 

GETCSR 

DSAMXH 

000074 

GSSTPP= 

DSANN 

000000 

GSSTSS= 

DSBRPR 

000102 

G$STTK= 

DSBRTM 

000100 

G$$WRD= 

DSDELF 

000045 

HSHADD 

DSDELW 

000046 

HSHSZ 

DSEND  = 

000104 

IE.EOF= 

DSFNB 

000054 

IE.RBG=: 

DSHIOR 

000024 

INC 

0$HOST 

000022 

I$$RAR= 

DSINAC 

000044 

ISSRDN= 

DSINCT 

000042 

KSSCNT=: 

D$IPL 

000051 

K$$CSR= 

DSL  ID 

000020 

KSSLDC= 

OSLNAM 

000006 

K$STPS= 

DSLNUM 

000014 

LCTIM 

DSL  ST 

000047 

LDSLP  = 

DSMAXC 

000064 

LF.ACT=: 

DSMAXH 

000066 

LF.8R0= 

DSMAXV 

000070 

LF.BWT= 

DSMLL 

000040 

LF.ENA= 

DSMNOD 

C00041 

LF.LPB= 

OSNA 

000062 

LF.MDC= 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

001402RG 

000070R 

000027RG 

00001 7RG 

000206R 

000000 

000001  G 

000002  G 
001626RG 
001646RG 
001677RG 
000000 
000000 
001744RG 
001312RG 
000001 
001622RG 
000000 
000000 
000000 
000000 
000366RG 
000364RG 
******  GX 
******  GX 
0001 76R 
000000 
000000 
177546 
177546 
000000 
000074 
000236R 
000000 
100000 
000400 
000007 
002000 
001000 
000100 


LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LLCDF 
LLCOFl 
LNKEND 
LN.CL0= 
LN.DUM= 
LN.L0A= 
LN.LOO= 
LN.OAU= 
LN.OFF^ 
003  LN.ON  = 
002  LN.OOP= 

002  LN.OPE= 

003  LN.REF= 
LN.SER= 
LN.STA= 
LN.SUB= 

002  LN.TRI= 

002  L$$AS6= 

002  L$$DRV= 

L$SP11= 

L$$11R= 


,CH1 

,CH2 

.COST 

,CT1M 

.CTL 

.CVA 

.DDM 


003 


L.DDS 
002  L.DLC 

002  L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NAME 
L.NMST 
L.NSTA 
L . OWNR 

003  L.SEG 
L.UNT 
MAXNDC= 
MAXWND= 
MS.CIR= 
MS.EXT= 
|V|S.INC  = 
MS.LLC= 


004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000114R 

000152R 

002016RG 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000000 

000000 

000001 

000000 

001664R 

001674R 

000015 

001704R 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

001402R 

000020 

000014 

000021 

00V30R 

000013 

000200 

000007 

******  GX 

****«»  GX 

******  GX 

**«*»*  GX 


MS.MTP= 
MS.MUX= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
NAME 
003  N$$ACC= 
003  N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$INCT= 
N$$PEH= 
OPEN 
PDVNM  = 
PDVTA  ^ 
PLTDF 
PL.CHN 
P$$P45= 
P$$URD= 
P. EXT 
P. INC 
QADD 
QLLC 
QPLT 
Q$$OPT= 
READ 
REP8A 
RTSPC 
RSSDER= 
R$SK11= 
RS$SND= 
RS$11M= 
SCNT 
SF.ACT= 
SF.ENA= 
SF.LPB= 
SF.MFL= 
SF.PAC= 
SF.REA= 
SF.SER= 
SF.SVC= 
SF.UNL= 
SPSAV 
SYNERR 
S$$WRG=: 
SSSYSZ= 
S.COST 
S.FLG 
S.LEN 
S.NAME 
S.NMST 
S.OWNR 


******  GX 

******  GX 

000124 

000000 

000000 

000000 

000000 

000000 

00001 2R6 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000772R 

******  GX 

******  GX 

000244R 

001566R 

000000 

000000 

001506R 

001466RG 

001134R 

001142R 

001126R 

000010 

001034R 

001332RG 

001310RG 

000000 

000001 

000000 

000000 

000140RG 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000354R 

000356RG 

000000 

007600 

000001 

000000 

000004 

001402RG 

000002 

000003 


002 


TSSKMG= 

T$SMIN= 

UCNT 

UNT 

V$$CTR= 

UNDSMX= 

X$$DBT= 

ZF.PSE= 

Z.FLG  = 

Z.NAM  = 

$ALPHA= 

SANY  = 

SAZFS  = 

$BLANK= 

$CEACX= 

$CFUIC= 

SCL8UF= 

$CLOEQ= 

$CLIOS= 

$CLQUE= 

003  SCLSIZ= 
SCTIM  = 
$C5TA  = 
$DIGIT= 
$DNUMB= 
SEOS  = 
SERRYP 
SERRYR 
SERRZP 
SERRZQ 
SERRIA 
SERRIP 
SERRIQ 
SERRIR 
SERRIS 
SERRU 
SERRIU 

002  SERRIV 
SERRIW 
SERRIX 
SERRIY 
SERRIZ 
$ERR2A 
$ERR2C 
$ERR2F 
$ERR2I 
$ERR3A 

002  $ERR3B 

002  SERR3C 
SEXIT  = 
SFAIL  = 
SFEATR= 
SFNOUT= 
$GCLEP= 
$LAMDA= 
$L1NKX= 
SMISS  = 


000000 

000000 

000142RG 

000016RG 

001000 

000177 

000000 

****** 


GX 
GX 
GX 


****** 
****** 
000022 
000020 
******  GX 


000006 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 

******  GX 
******  GX 
******  GX 
000024 
000014 
000012 
001356RG 
001400RG 
001434RG 
001304RG 
001062R 
000370R 
000426R 
000464R 
000512R 
000542RG 
000570R 
000626R 
000664R 
000722R 
000760R 
001024R 
001124RG 
001174RG 
001250RG 
001264RG 
001466R 
001524R 
001562R 
000000 
177777 
******  GX 
«***»»  GX 
******  GX 
000000 
******  GX 
******  GX 


002 
002 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
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NTl 
REF 


100 
101 
102 
103 
104 
105 
106 

107  000130 

108  000166 

109  000224 

110  000252 
111 

112  000300 

113  00032<1 

114  000342 
115 

116 

117  000412 

118 

119  000440 

120 

121  000474 

122  000532 
123 

124 
125 
126 

127  000570 

128  000614 

129  000640 
130 

131 

132  000664 

133  000724 

134  000754 

135  001014 
136 

137 
138 
139 
140 

141  001054 

142  001114 

143  001164 

144  001234 

145  001300 

146  001344 

147  001412 

148  001470 

149  001536 

150  001604 

151  001646 
152 

153 
154 
155 
'56 


.SBTTL  ERROR  MESSAGES 


ERROR  MESSAGES 

.ENABL  LC 


NTLERI 
NTLERS 
NTLERS 
NTLERS 
.If  DF 
NTLERS 
NTLERS 
NTLERS 

.IFTF 
NTLERS 
.IFT 
NTLERS 

NTLERS 
NTLERS 

.IFF 

NTLERS 

.IFTF 

NTLERS 

NTLERS 

NTLERS 

.IFT 

NTLERS 
NTLERS 
NTLERS 
NTLERS 

.IFF 

NTLERS 

NTLERS 

.ENDC 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 


<:>,lP,8,CFERR,SREP.N,$FN0UT,<0pen  Failure  (-***.)> 

<:>,1Q,8  CFERR,SREP.N,SFNOUT,<Read  Failure  (-***.)> 

<:>,1R,8,CFERR,RTSPC,FNLIN,<Read  0verflow> 

<:>,1T,8,CERR,RTSPC,CFLIN,<Syntax  Error> 

RSS11M 

<:>,XA,8S,CERR,REP8B,CFLIN,<Not  Common> 

<:>,X8,8B,CERR,REP8B,CFLIN,<Busy> 

<:>,lZ,9,CUARN,REPND,,<System  name  changed  to  ******  > 

<:>,XC,8B,CERR,REP88,CFLIN,<Not  In  System> 

<:>,XD,8B,CERR,REP88,CFLIN,<Too  Small  For  RDBS> 

.IF  DF  HSSMGE 

<:>,XE,8B,CERR,REP8B,CFLIN,<Not  System-Control  led> 

<:>,XF,8,CERR,RTSPC,CFLIN,<NonUMR  Area  Too  Large> 

.ENDC 

<:>,XF,8,CERR,RTSPC,CFLIN,<Non-UMR-Mapped  Area  Too  Large> 

<:>,XG,8,CFERR,RTSPC,,<N0  BUFSDF  ?> 
<:>,XH,8,CFERR,RTSPC,,<N0  PARSDF  ?> 
<:>,XI,8,CERR,RTSPC,CFLIN,<N0  BUFSDF  ?> 

.IF   DF     MSSMrE 

<;>,XJ,8,CERt  ,RTSPC,CFLlN,<Sub-PCB  Alloc.    FaUure> 

<:>,XK,8B,CERR,REP8B,CFLIN,<Too  Fragmented> 

<:>,XL,8,CERR,RTSPC,CFLIN,<UMR  Blk.  Alloc.  Failure> 

<:>,XM,8,CERR,RTSPC,CFLIN,<Not  Enough  Contig.  UMRs> 

.ENDC 

<:>,XJ,8C,CERR,REP8C,CFLIN,<Creation  Failed) 
<:>,XK,8C,CERR,REP8C,CFLIN,<Mapping  Failed> 

<:>,XV,i 
<:>,X0,! 
<:>,XP,f 
<:>,XQ,i 
<:>,XR,i 
<:>,XS,f 
<;>,XT,f 
<:>,XU,! 
<:>,XV,i 
<;>,XW,I 
<:>,XX,I 


,CERR,RTSPC,,<Binary  buffer  ouerflow> 
,CERR,RTSPC,CFLIN,<Ulegal  max  logical  links  v/alue> 
,CERR,RTSPC,CFLIN,<Illegal  max  node  counter  value> 
,CERR,RTSPC,CFLIN,<Illegal  delay  factor  value> 
,CERR,RTSPC,CFLIN,<IUegal  delay  weight  \/alue> 
,CERR,RTSPC,CFLIN,<megal  packet  limiter  ualue> 
,CERR,RTSPC,CFLIN,<Illegal  link  service  threshold  «alue> 
,CERR,RTSPC,CFLIN,<Ulegal  incoming  timer  v/alue> 
,CERR,RTSPC,CFLIN,<Illegal  outgoing  timer  «alue> 
,CERR,RTSPC,CFLIN,<Illegal  inactivity  timer> 
,CERR,RTSPC,CFLIN,<Illegal  retransmit  value> 


.DSABL  'C 


ERROR  MESSAGE  FORMAT  STRINGS 
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NTL 
5TA 


658 
659 
660 
661 
662 
663 
66A 
665 
666 
667 
668 
669 
670 
671 
672 
673 
67A  001174 

675  001176 

676  001200 

677  001204 

678  001206 

679  001210 

680  001214 

681  001220 

682  001224 

683  001226 

684  001232 

685  001234 

686  001236 

687  001240 

688  001242 

689  001246 

690  001250 
691 

692 


.S8TTL  REPND  -  REPLACE  NODE  NAME 

t- 

REPND  -  PLACE  NODE  NAME  IN  ERROR  MESSAGE  TEXT 

INPUTS: 

R5   -   ERROR  MESSAGE   BLOCK   ADDRESS 

OUTPUTS: 

R0,R1,R2   DESTROYED 

NEW  NODE   NAME    IN  BUFFER 


010500 

005720 

122720     000052 

001375 

005300 

012702     000006 


OOOOOOG 
000006 


017701 

062701 

112110 

122710     000040 

001403 

005200 

005302 

003371 

112720  000042 

105020 


REPND: 
5$: 


10$: 


20$: 


.IF 

MOV 

TST 

CMPB 

BNE 

DEC 

MOV 

MOV 

ADD 

Move 

CMPB 
BEQ 
INC 
DEC 

BGT 
MOVB 
CLRB 
RETURN 

.ENDC 


DF,R$$rM 

R5,R0 

(R0)  + 

#'*,(R0)*- 

5$ 

RO 

#6,fi2 

aDECPT,Rl 

#D$LNAM,R1 

(R1)+,(R0) 

#•  ,(R0) 

R2 
10$ 
«'", 
(RO) 


(R0)< 


COPr  ERROR  MESSAGE  BLOCK  ADDRESS 

POINT  TO  OUTPUT  BUFFER 

LOOK  FOR  ASTERISK 

BR  IF  NOT  ASTERISK 

BACK  UP  TO  ASTERISK 

NODE  NAME  IS  MAXIMUM  OF  6  CHARACTERS 

STORE  DECNET  HOME  BLOCK 

GET  ADDRESS  OF  NODE  NAME  TO  COPY  (ASCII) 

STORE  NODE  NAME 

IS  IT  A  SPACE' 

BR  IF  YES  -  END  OF  NODE  NAME 

UPDATE  RO 

MORE  TO  MOVE? 

BR  IF  YES 

STORE  DOUBLE  QUOTE  AT  END  OF  NAME 

CREATE  ASCI7  STRING 
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STA$DF,ADD$DF    STATE    TABLES 


1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
111A 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 


.S8TTL      STA$DF,AD[)$[)F    STATE    TABLES 


001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 
001252 


001252 
001252 


;•  STASDf 

STATES 

STAbF 

TRANS 

SNUMBR 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

$RAD50 

STATES 

TRANS 

<',^,STADF1 

TRANS 

SLAMDA,$EXIT 

DON' 

STATES 

STADFl 

TRANS 

'!,STADF1 

TRANS 

XSF.ENA%, STADFl 

,SF 

tNA 

MRKFL 

TRANS 

5!SF.MFL%, STADFl 

,SF 

MFL 

MRKFL 

TRANS 

XSF.SERX, STADFl 

,,SF 

SFH 

MRKFL 

TRANS 

$RAD50, STADFl 

TRANS 

$LAMDA,SEXIT,X. 

L(i 

;  ADDSDF 

STATES 

ADDDF 

TRANS 

SNUMSR.SEXIT 

DON'T   REQUIRE   ANYMORE 
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CREF   0^.00 


NTL 

LOC 


SYMBOL  VALUE 


LR.PRM 

LR.PRO 

LR.STS 

LR.TCB 

LR.UNT 

LS.AST 

LS.CEX 

LS.CIR 

LS.CXO 

LS.CX5 

LS.DLM 

LS.ECH 

LS.FDX 

LS.HDX 

LS.LIN 

LS.LMC 

LS.NTI 

LS.DN 

LS.OPT 

LS.PRO 

LS.PWF 

LS.TOP 

LS.UNF 

LS.X25 

L5.11D 

LX.CEX 

LX.LIN 

LX.PRO 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MFLDF 

MR<FL 

MS.BUF 

MS. NTT 

MS.NT2 

MS. PAR 

M$$MGE 

NBRA 


000050 
000002 
000000 
000002 
000005 
100000 
000001 
000010 
010000 
000400 
OOAOOO 
001000 
OOAOOO 
010000 
000003 
000007 
OOAOOO 
000011 
000400 
000002 
040000 
002000 
020000 
000012 
004000 
000004 
000006 
000005 
000015 
00"01' 

17777 

ooc;-: 

00U006 

000010 

000000 

000016 
:  000022 

000022 

000020 

000014 

000021 

000013 

001026  R 

002454  RG 
GX 
GX 
GX 

•♦•••♦  GX 

000000 

002450  RG 


r  **♦*  t ♦ 


REFERENCES 

#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 
#5-71 

11-498 
#7-250 

8-392 

8-297 

8-297 

8-399 

7-120 
#7-240 


♦8-322 


*8-326 
8-302 


7-131 
8-338 


22-928 


NTLCf2 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:27 


PAGE  4 


M  n 


NTL 


L  12 

NTLCFP  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:29 
LOCAL  DATA 

MSHSZ::  .BLKW  1 
HSHADD::.8LKW  1 
CTIM::   .8LKW   1 

DATA  FOR  PVCSDF  MACRO 

PVSTA::  .BLKW   1 

PV.OFF  ==  1 
PV.ON  ==  2 

DATA  FOR  DSTSDF  MACRO 


139  00037'^ 

HO  000376 

Ul  000400 

U2 

U3 

UA 

1A5  000A02 

1A6 

000001 

U7 

000002 

1A8 

1A9 

150 

151  OOOAOA 

152 

000001 

153 

000002 

15A  000A06 

155  000A12 

156  000A20 

157  000A21 

158 

159 

160 

161 

162 

163 

16A 

165 

166  000A22 

000506'  000507' 

167  000A26 

0005A7'  000550' 

168  000A32 

000500'  000A60' 

169  000A36 

000000 

170 

171 

172 

173 

000017 

174  OOOAAO 

175  0O0A57 

000 

176 

OOOA56' 

177  00OA60 

178  000A7O 

179  000A76 

180  000A77 

181  000500 

182 

183  000502 

18A  00050A 

185 

186 

187 

188  000506 

189  000507 

190  0005A7 

191  000550 

192 

DSFLG: 


DSTTSK 
DSTNAM 
DSTPRI 
DSTOBJ 


.BLKW 
DS.)(25 
DS.X29 
i.BLKW 
:.BLKB 
i.BLKB 
:.BLK8 


1 


Page  7-1 


HASH  TABLE  SIZE 
ADDRESS  OF  HASH  TABLE 
COUNTER  TIMER  VALUE 


PVC  STATE 

STATE  =  OFF 
STATE  =  ON 


LOCAL  FLAG  WORD 

X25  DESTINATION  TYPE 

X29  DESTINATION  TYPE 

OBJECT  TASK  NAME  -  RAD50 

DESTINATION  NAME 

PRIORITY 

OBJECT  NUMBER 


NT 
ST 


TABLE  OF  ADDRESSES  OF  COUNT  FIELDS  FOR  VARIABLE  LENGTH  PORTION 
OF  DESTINATION  DESCRIPTOR  BLOCK 
ENTRY  FORMAT: 

ADDRESS  OF  COUNT,  ADDRESS  OF  SPECIFIED  FIELD 

♦*♦  ORDER  IS  IMPORTANT  (SEE  DSTDFS  MACRO)  »•« 

CALL  DATA  MASK  COUNT 
CALL  DATA  VALUE  COUNT 
REMOTE  DTE  ADDRESS  COUNT 
END  OF  TABLE 


MAX  NUMBER  OF  DIGITS  IN  REMOTE  DTE  ADDRESS 

TEMP  STORAGE  FOR  UNPACKED  REMOTE  DTE  ADDRESS 

END  OF  STRING  INDICATOR  FOR  REMOTE  DTE  ADDR 

END  OF  REMOTE  DTE  ADDRESS 

PACKED  DTE  ADDRESS 

CLOSED  USER  GROUP  NAME 

COUNT  OF  DIGITS  IN  LOW  SUBADDRESS 

COUNT  OF  DIGITS  IN  HIGH  SUBADDRESS 

COUNT  OF  DIGITS  IN  REMOTE  DTE  ADDRESS 

LOW  END  OF  SUBADDRESS  RANGE 
HIGH  END  OF  SUBADDRESS  RANGE 


DSTVAR 

:.WORD   DSCMCT, DSCMSK 

.WORD   DSCVCT, DSCVAL   ; 

.WORD   DSARCT, DSARDP 

. WORD   0 

■  DATA 

FOR  DSASDF 

DARMLN  ==  l3. 

DSARDT 

:.BLKB   DARMLN 

.BYTE   0 

DARDEN  ==  .-2 

DSARDP 

:.BLKB   <DARMLN/2>+1 

DSACUG 

:.BLKB   6 

DSALCT 

:.BLKB   1 

DSAHCT 

:.BLK8   1 

DSARCI 

:.BLKB   1 

.EVEN 

DSASLO 

:.BLKW   1 

DSASHI 

:.8LKW   1 

;  DATA 

FOR  DSCSDF  MACRO 

DSCMCT 

:.BL''8   1 

DSCMSK 

:.BLK8   32. 

DSCVCT 

:.BLK8   1 

DSCVAL 

:.8LKB   32. 

.EVEN 

NUMBER  OF  HEX  DIGITS  IN  CALL  DATA  MASK 
CALL  DATA  MASK 

NUMBER  OF  HEX  DIGITS  IN  CALL  DATA  VALUE 
CALL  DATA  VALUE 


NTLCFP  -  SCAN  CONF  IGi'RAT  ION  FIL  MACRO  V05.03b  Saturda) 


M  12 

29-Jun-85  00:29 


Page  8 


NT 


L 


NTLCFP  -  SCAN  CONFIGURAIION  F 
STR^JXT  -  STORE  NEXT  DIGIT 


592 
593 
59A 
595 
596 
597 
598 
599 
600 
601 
602 
603 
60A 
605 
606 

607  001064 

608  001072 

609  001076 

610  00110'. 

611  001106 

612  001112 

613  001116 
6U   001122 

615  001126 

616  001132 


i  13 

00:29 


IL  MACRO  V05.03b  Saturday  29-Jun-85  00:29  Page  18 


.SBTTL   STRNXT  -  STORE  NEXT  DIGIT 


61.' 
61f 


116767  OOOOOOG  000357' 

012701  000017 

126727  OOOOOOG  000052 

OOKOA 

012700  000357' 

110177  000352' 

005267  000352' 

105267  000356' 


000001 


STRNXT 
INPUTS: 


STORE  NEXT  DIGIT 


.PCHAR  -  MATCHED  CHARACTER  FROM  TPARS  TRANSITION 
NEXT  -  ADDRESS  OF  NEXT  BYTE  AVAILABLE  FOR  STORAGE 


OUTPUTS: 

NEXT 


ADDRESS  OF  NEXT  AVAILABLE  BYTE 
COUNT  -  UPDATED 
R0,R1  DESTROYED 


STRNXT: 


10$: 


:MOVB 
MOV 
CMP8 
BED 
MOV 
CALL 
MOVS 
INC 
INCB 
RETURN 

.END 


.PCHAR, CVTBUF 

*17,fi1 

.PCHAR,*'* 

10$ 

#CVTBUF,RO 

$CDT6 

R1,SNEXT 

NEXT 

COUNT 


MOVE  DIGIT  TO  CONVERTSION  BUFFER 

ASSUME  CHAR  IS  AN  '*' 

IS  CHAR  AN  '»'  ? 

BR  If  YES 

POINT  TO  CONVERSION  BUFFER 

CONVERT  TO  BINARY 

STORE  BINARY  DIGIT 

POINT  TO  NEXT  AVAILABLE  BYTE 

INCREMENT  DIGIT  COUNT 


N  13 


NTLCFP  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:29  Page  18-1 


[ 


N'.iSR   -   CHECK   CSR   ADDRESS 


MACRO  V05.05b  Saturday   29-Jun-85 


W:\ 


0  Page  6-1 


150 
151 
152 

153  OOCU 

154  000116 
155 

156 
157 
158 

159  000120 

160  000124 
161 

162 
163 

.ENDC 

005426 

30$:    NEG     {SP)t 
RETURN 

;  SET  C-8IT  IF  DEV 

•  MARK,  DEVICE  OFFLINE 

005266 
000C02 

000001 

000004 

OFFUN:  INC     4(SP) 
RTI 

.END 

;  INDICATE  FAILURE 
;  RETURN  FROM  SST 

N^lCSR  -  check;  CSR  ADDRESS 


H  U 


MACRO  V05.03b  Saturday  29-Jun-85  00:30  Page  6-2 


NTlDEV  -  Build  device  data  STRU  macro  V05.03b  Saturday  29-Jun-8S  00:50  Page  8-1 
SNLDEV  -  SET  UP  DEVICE  DATA  STRUCTURES 


00:50 


?76 

;  ERROR 

CONDITION 

777 

?7R 

000110  01^701  000U6" 

lOlI: 

MOV 

♦DUMMY -A, Ri 

?79 

0001  U 

EMSG$R 

?y 

7  an 

?ai 

.IFF 

;  DF    R$$11M 

?R? 

?R^ 

CLR 

RO 

?84 

MOV 

$$DEV,R4 

?8S 

CLR 

R5 

?a6 

CALL 

..FDEV 

?R7 

BCS 

102$ 

?RR 

MOV 

#DEVNAM,RO 

?RP 

MOVB 

$$DEV,(RO) 

?90 

M0V8 

$$DEVt1,1(R0) 

?91 

MOV 

PCRI 

?q? 

CALL 

$CAT5 

?'55 

MOV 

*REQUES,RO 

?''A 

MOV 

Rl.R.QSTNtRO) 

P^JS 

DIR$ 

RO 

?% 

BCS 

101$ 

?<57 

MOV 

$FEATR,U.C5(R5) 

?9R 

MOV 

$GCD,U.LBH(R5) 

?9q 

RETURN 

^nn 

101$: 

EMSG$R 

2A 

301 

102$: 

EMSG$R 

28 

POINT  AT  DUMMY  SYMBOL 

DCS  DISPATCH  TABLE  ADDRESS  UNDEFINED 


GET  ASCII  DEVICE  NAME 

UNIT  NUMBER  0 

LOOK  FOR  DEVICE 

BR  IF  CAN'T  FIND  IT 

GET  FIRST  CHARACTER  OF  DEVICE  NAME 

GET  SECOND  CHARACTER 

PERIODS  ARE  VALID 

CONVERT  IT  TO  RAD50 

POINT  TO  RQST$  DPB 

STORE  FIRST  HALF  OF  TASK,  NAME 

REQUEST  TASK  TO  RUN 

BR  IF  FAILED 

STORE  FEATURES  WORD 

STORE  GCD  ADDRESS  OF  PROCESS 

REQUEST  DRIVER  TO  RUN 
DEVICE  NOT  IN  SYSTEM 


n  15 


NTi  DEv  -  BuILD  DEVICE  DATA  STRJ  MACRO  v05.05b  Saturday  29-Jun-85  00:30  Page  9 


NTlDEv   -  BJUD  DEVICE   DATA  STRU  MACRO  V05.03b  Saturday  29-Jun-85   D0;50     Page   19 
Rfpq   .   REPLACE    DEVICE   NAME 


D0;50 


797 
798 
799 
800 
801 
802 
80? 
SO'. 
805 
806 
807 
808 
809 
810 
811 
812 


001600 
001602 
001606 
001610 
001616 
001622 


1123U 

001374 
116764 
116724 


.SBTTL  REP9  -  REPLACE  DEVICE  NAME 

REP9  -  REPLACE  DEVICE  NAME 

INPUTS: 

NONE 


OUTPUTS: 

NONE 


000052 

OOOOOOG  177777 
000001 G 


REP9: 


M0V8 

CMP8 

BNE 

MOVB 

MOVE 

RETURN 


(R3)t,(R4) 
#'♦,  (R4)t 
REP9 

$$DEV,-1(R4) 
$$DEV+1,(R4)+ 


COPV  THE  FORMAT  STRING 
LOOKING  FOR  THE  FIRST  ASTERISK 

STORE  DEVICE  NAME 


hFu  -  Riilin  RFVIfF  nATA  ^TRil  MACRO  v05.03b  Saturday  29-Jun-85  00:30  Paae  20 


1^0 


MAPI  CREATED  B"     MACRO     ON   30-JJN-85   AT    00:00 

MACRC    "ROS^    REFERENCE 
IHACRC  NAME  REFERENCES 


n    1 

■^GE   2 
CREF       OA.OO 


NTL( 
MAC! 


CALl 

5-q5 

^ESRG 

#4-45 

6--'A5 

RETURN 

5-95 

6-U6 

SAvRG 

»4-45 

6-113 

«FlLf- 


N     1 


*NTl 


NTL 
LOC, 


NTLCEX  -  lQAD  COMM  EKEC 
MACRO  DEMMTIONS 

55 
56 
57 
58 
59 
60 
61 

62  000000 

63  OOCOOO 
6A  000000 
65 
66 
67 

68  000000 
69 
70 
71 
72 

73  OOCOOO 
7A  000000 
75  000000 
76 

n 

78 
79 
80 

81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 


I!«IAGE 


M  2 

MACRO  V05.03b  Saturday  29-Jun-85  00:22  Page  5 

.S8TTL  MACRO  DEFINITIONS 
LIBRARy  MACROS 


NTLC 
CECL 


.MCALL      ASL$,ASR$,CCBDF$,0PT[)F$,EMSG$R,DHBDF$,CTRDF$,RETt,BIAS5 
.MCALL      XPDD8$,MAP,SLTDF$,RESRG,SAVRG 


CTRDFS 
SLTDFS 
XPDDBS 

.MCALL   NHWDF$ 

NHWDFS 

LIBRARY  SYMBOLS 

CCBDFS 
OPTDFS 
DHBDFS 

LOCAL  MACRO  DEFINITIONS 
.MACRO  SAVMAP 

MOV   a/<;sAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)t,aKSAR5 

.ENDM 

.MACRO  MAP  BIAS 
MOV     BIAS,aKSAR5 
.ENDM 

.MACRO  BIAS5  REG 

SIC  #160000, REG 

BIS  #"20000, REL 
.ENDM 


DEFINE  LINE  COUNTER  BLOCK  OFFSETS 

DEFINE  SLT  OFFSETS 

DEFINE  XPT  DATA  BASE  OFFSETS 


;  DEFINE  HARDWARE  OFFSETS 


CCB  OFFSETS 

COMM/EXEC  OPTIONS 

DECNET  HOME  BLOCK  OFFSETS 


SAVE  APR  5 


RESTORE  APR5 


N     2 

NTLCEX   -  LOAD   fOMM  EXEC    IMAGE       MACRO  V05.03b  Saturday  29-Jun-85  00:22     Page  6 
LOCAL   DATA 


NTL( 
CENl 


M  3 

NTLCEX  -  LOAD  COMM  EXEC  IMAGE   MACRO  V05.03b  Saturday  29-Jun-85  00:22 
CECLK  -  SFT  UP  MULTI-PROCESSOR  CLOCK  GJEUE  ENTRIES 


Page  12 


66P 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678  001 35i 

679 

680 

681 

682 

683 

68A 

685 

686 

687 

688 

689 

690 

691 

692 

693 

69A 

695 

6'56 

697 

698 

699 

700 


.SBTTL   CECLK  -  SET  UP  MULTI-PROCESSOR  CLOCK  QUEUE  ENTRIES 


CECLK  -  SET  UP  MULTI-PROCESSOR  CLOCK  QUEUE  ENTRIES 

OUTPUTS: 

NONE 


CECLK:   .IF  DF   R$$MPL 


10$: 


MOVB 
BEQ 

SWSTKS 
CLR 

MOV 
ADD 
MOV 
MOV 
MOV 
ADD 
CLR 
MOV 
ADD 
SOB 


100$:   RETURN 
.ENDC 


aNCPU.RO 
100$ 

100$ 
R1 

K6TAB,R2 

R1,R2 

(R2),aKSAR5 

M100Q,R3 

R3,R4 

#1^0000, R3 

(R3)  + 

R';,(R3) 

#2,R1 

,^0,10$ 


GET  #  OF  PROCESSORS  IN  CONFIGURATION 
IF  EQ,  SINGLE  PROCESSOR  SYSTEM 

ENTER  SYSTEM  STATE 
;  INITIALISE  PROCESSOR  NUMBER 

GET  $K6TAB  ADDRESS 

POINT  TO  CPU  PARTITION  BIAS 

MAP  TO  THE  CPU  PARTITION 

GET  $M100Q  ADDRESS 

SAVE  ASSRESS 

MAP  THRU  APRS 

INITIALISE  100  MSEC  TIMER  QUEUE 

MOVE  ON  PROCESSOR  NUMBER 
SCAN  ALL  PROCESSORS 


N  3 

NTLCEX  -  LOAD  COMM  EXEC  IMAGE   MACRO  V05.03b  Saturday  29-Jun-85  00:22  Page  13 
CENTI  -  NTINIT  PART  OF  SET  SYS  +  NTINIT 


NTLCEX     CREATED  BY  MACRO  OM  29-JUN-85  AT  00:23 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


ALOCB 

BUFUMP 

CBLKI 

CBK3 

CBL.  4 

CBLK5 

CB.CCB 

CCBCT 

CCBLH 

CCBNM 

CCBS 

CCBSZ 

CEAVL 

CECLK 

CENTl 

CEPTR 

CEPUR 

CESYM 

CETNAM 

CEXNAM 

CEXPCB 

CF.DDM 

CF.DYN 

CF.EIS 

CF.FRK 

CF.LOG 

CF.MDM 

CF.TIM 

CMODE 

CRCSQV 

CXOPT 

C.BID 

DECBLK 

DECPT 

DSAMXC 

0$AI";(H 

D$8RTM 

0$END 

DSHIOR 

DSLNAM 

DSMAXC 

DSMAXH 

OSMAXV 

D$NA 

DSNBEA 

D$NN 

DSRNN 

DSRTMR 

ELTIME 

ETAB1 

ETAB2 

EtMBR 


-  ****** 
=  17235^ 

OOOOAO  R 

000054   R 

000070  R 

0001 OA   R 

=  000002 

z   ****** 

=  ****** 

:r  ****** 

001736  R 

-  ****** 
r  ****** 

001354  R 
001354  R 
001012  R 


GX 


GX 
GX 
GX 

GX 
GX 


000324 
000012 


GX 

R 
R 


000006  R 
000036  R 
=  000002 
=  000004 
=  000010 
=  100000 
=  000020 
=  000001 
=  000400 
=  140000 

:;  ****** 
=  ****** 

000003 
000552 

r  ****** 

000072 
000074 
000100 
=  000104 
000024 
000006 
000064 
000066 
000070 
000062 
000056 
000060 
000002 
000076 

=   ****** 

000334  R 

000544 

000014 


GX 
GX 


GX 


GX 


REFERENCES 

9-506 
#5-68 
#6-175 

6-175 

6-179 

6-184 

14-843 

13-723 

14-841 

13-719 

13-788 

14-824 

7-326 
#12-678 

11-660 

7-356 

7-365 

7-303 
#6-143 
#6-131 
#6-170 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-68 

15-886 

11-608 
M4-843 

7-554 

7-567 
♦11-618 
♦11-619 
♦11-620 

9-505 
•9-517 

7-568 
♦11-613 
♦11-614 
♦11-615 
•11-616 
•11-617 
•11-611 

9-515 
♦11-612 

7-358 
#6-256 
#6-264 
#5-62 


8-405 
#6-179 
#6-184 
#6-189 

13-726 
14-842 
13-727 
#14-822 
14-854 


#13-718 
#11-596 

#8-398 
7-347 
7-308 

•7-525 

15-724 


16-933 
13-724 

#9-501 
9-512 


•9-518 


♦11-621 


♦9-516 


8-483 
7-377 


M     A 

PAGE    1 

CREF       04.00 


NTLC 
LOC/> 


8-464 


14-851 
14-823 


14-853 


8-421 
8-400 
10-559 


8-414 


9-515  11-610 


•9-519  ^9-520 


NTLCEX 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:23 


PAGE   2 


N     4 


NTLI 
LOCi 


M  5 

NTLCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-8:i  00:23 
LOCAL  DATA 


Page  7 


NTl 


000000 


91 

92 

93 

9^. 

95 

96 

97 

98 

99 
100 
101 
102 

103  000000 
10^  000006 
105 
106 
107 
108 

109  000012 

110  000015 

111  000016 
112 

113 
1U 

115  000017 

116  000020 

117  000027 
118 

119 

120 

121   000136 

122 

123 

12A 

125 

126 

127  OOOUO 

128  000U2 
129 

130 

131 

132 

133 

13A 

135 

136 

137 

138 

139  000354 

140 

U1 

U2 

143 

144 

145 

'46 

147 


103 
115 


105 

iri 


015 
116 


000001 
000002 


124 


114 


C00144 
000352 


.SBTTL  LOCAL  DATA 


LOCAL  DATA 

.PSECT  DATA.D 
.NLIST  BEX 
CONFIG  FILE  NAME  AND  EXTENSION 


124  CFGNAM:  .ASCIZ  "CETAB' 
103  CFGEXT:  .ASCIZ  "MAC" 


;  LINE 

DENTIFICATION 

NAME : : 

Cn:: 

UNT:: 

.8I.KB 
.8LKB 
.BLKB 

3 
1 

1 

;  ERROR 

MESSAGE 

BUFFER 

:RRMSG: 
ERRSUF: 

.8VTE 

.ASCII 

.BLKB 

.EVEN 

15 

"NTL  - 
70. 

CFGFLG: 

.8LKU 

FG.X2P 

FG.X3P 

1 
==  1 
==  2 

;•  COUNTERS 

SCNT:: 
UCNT:: 

.BLKW 
.BLKW 

1 
1 

■  RECORD  BUFFER 

AND  SU 

CFGBF:: 
CFGS7:: 

.BLKB 

.BLKW 

134. 
1 

•  SAVED 

STACK  POINTER 

SPSAV: 

.BLKU 

1 

;  UNiBUS  RUN  MASK  FLAG 

URMFL:: 

.IF  DF 

.BLKW 

.ENDC 

R$$MPL 
1 

DDM  NAME 

CONTROLLER  NUMBER 
UNIT  NUMBER 


FLAGS  WORD 

X2P$DF  MACRO  IS  NECESSARY 

X3P$DF  MACRO  IS  NECESSARY 


STASDF'S  SEEN 
UNTSDF'S  SEEN 


=1  IF  UNIBUS  RUN  MASK  PRESENT 


N  5 

NTLCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:23 
LOCAL  DATA  


Page  ^-1 


N' 
ADI 


M  6 

NTLCFG  -  SCAN  CONFIGURATION  FIL  MACRO  V05.O3b  Saturday  29-Jun-85  00:23 
TPARS  STATE  TABLES  -  COMMON  SUBEXPRESSIONS 


Page  16 


592 

593 

59A 

595 

596  001402 

597 

598 

599 

600 

601 

602 

603  00U02 

604  00K02 

605  00U02 

606  0OUO2 

607  0OU02 

608  001A02 

609  001A02 

610  00U02 

611  00U02 

612  00U02 

613  0OK02 
6K  00U02 
615  001402 
616 

617 
618 

619  00K02 

620  001402 

621  001402 


.SBTTL   TPARS  STATE  TABLES  -  COMMON  SUBEXPRESSIONS 
TPARS  STATE  TABLES 

ISTATS  CFGST.CFGKW 
COMMON  SUBEXPRESSIONS 

FLAG  BIT  DEFINITIONS  I LUS  TRAILING  COMMA 


STATES 

BITS 

TRANS 

XLF.X2PX,BITS1, 

,K. 

X2P 

CFGFLG 

TRANS 

XZF.X3P%,BITS1, 

,Ffi 

X3P 

CFGFLG 

TRANS 

SRADSO.BITSI 

TRANS 

<',>,SEXIT 

STATES 

BITS! 

TRANS 

<'I>,BITS2 

TRANS 

'+,BITS2 

TRANS 

<',>,SEXIT 

STATES 

BITS2 

TRANS 

XLF.X2P%,BITS1, 

.Ki 

X2P 

CFGFLG 

TRANS 

:i!2F.X3P!!,BITS1, 

,FG 

X3P 

CFGFLG 

TRANS 

SRADSO.BITSI 

;  CHECK  FOR  END 

OF  SOURCE  LINE 

STATES  END 
TRANS   <';>,SEXIT 
TRANS   SEOS,SEXIT 


NTI 

Syi 

%Hi 
SNI 
SNI 
SPI 
$Q 
SQI 
SQI 
SQ 


DA 
SS 
%K 
SK 
Er 


Wo 
Uo 
Si 
Si 
Op 

El 
SY 
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NT 
ER 


SNAME  = 
tNLCFG 
$NUMBR= 
tPDVA  = 
$QCNT  = 
SQDDM  = 
SQDTE  = 
SQFEA  = 

ABS. 

DATA 
SSTATE 
$KTAB 
SKSTR 


»••***  GX 
OOOOOORG 
000002 

*•*•♦♦  GX 

*.<.♦.  GX 

.»»*♦*  GX 

»«»»»»  GX 

*♦♦*♦»  GX 

177776 
002H0 
001730 
000260 
000016 
000061 


Errors  detected: 


000 
001 
002 
003 
OOA 
005 
0 


$QPVC  =  ******  GX 
SQSLT  =  ******  GX 
$QSTA  =  «*«***  GX 
SQSVC  =  ******  GX 
$QUNT  =  ******  GX 
$QX2P  =  ******  GX 
$QX3P  =  ******  GX 
$RAD50=  000016 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,C0N) 


$REP.N= 

****** 

GX 

$SLTA  = 

****** 

GX 

$STRNG= 

000004 

$SUBXP= 

000010 

$TIOUT= 

****** 

GX 

$$DEV  = 

****** 

GX 

$$EXT  = 

****** 

GX 

$$INC  = 
$$LSAD= 
$$MTP  = 
$$MUX  = 
$$$FLG= 

$$$KEY=  000006 
$$$STA=  000000 


****** 
****** 
****** 
****** 
77777 


GX 
GX 
GX 
GX 


$$$TMP= 

000O52R 

.PCHAR= 

****** 

GX 

.PNUMB= 

****** 

GX 

.PNUMH= 

****** 

GX 

.PSTCN= 

****** 

GX 

.PSrPT= 

****** 

GX 

.rPARS= 

****** 

GX 

005 


***  Assemblei  statistic? 


Work   file  reads:  0 

Work   f i le  writes :  0 

Size  of  work  file:  15122  Words 

Size  of  core  pool:  16552  Words 

Operating  system:  RSX-11M/PLUS 


(  60  Pages) 
(  63  Pages) 


SY?NTLCFG!v2!ci32,134]NTLCFG/CR/-SP=Sy:[1,1]RSXmCM.SML/ML,[130,110]NETL!B/ML,[130,10]RSXMCM/PA: 


,[132,10]NTLCFG 


NTLCFG 
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052 
105 
103 


127 
157 
157 


101 


000000 
000000 


OOOOU 
000020 


000010 


FMT9:: 
FMT8:: 
FMT8B:: 

.ENASL 
.NLIST 
.ASCIZ 
.ASCIZ 
.ASCIZ 

LC 

BEX 

"♦WARNING*  — 

"Config  File  —  " 

"Config  File  —  Partition  » 

FMT8C: 

.IF  NDF 

.ASCIZ 

.ENDC 

R$$11M 

"Config  File  ~  Region  •,  " 

.EVEN 

.DSA8L 

.LIST 

LC 
BEX 

n  8 

NTLCF2  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:24 
ERROR  MESSAGES 

157 
158 
159 

160  001710 

161  001726 
^^2  001746 

o3 
164 
165 
166 
167 
168 
169 
170 
171 
172 

173  002002 

174  002004 

175  002006 
176 
177 
178 
179 
180 

181  002010 

182  002010 

183  002012 

184  002014 

185  002016 

186  002020 
187 

188  002022 

189  002032 

190  002032 

191  002036 

192  002040 

193  002046 
194 

195  002050 

196  002054 

197  002056 

198  002060 

199  002064 

200  002104 
201 

202  002104 

203  002106 
204 

205  002122 
206 
207 

208  002142 
209 

210  002152 

211  002154 

212  002156 

213  002160 


Page  7-1 


NTl 
REI 


STAN:: 

.BLKW 

1 

SLSTRM 

:.WORD 

0 

SLSTAD 

r.WORD 

u 

•  + 

;  DLL  DATA 

SERBEG 

SERFLG 

:.8LKW 

1 

SERNOD 

:.BLKW 

1 

SERHST 

:.8L/<W 

1 

SERCIR 

:.BLKU 

1 

SERDEV 

;.8LKW 

1 

SERPAS 

:.BLKB 

8. 

ENDPAS 

SERDMP 

:.8LKW 

2 

SERDCT 

:.8LKW 

1 

SERADD 

:.BLKW 

^ 

SERTMP 

:.BLKW 

1 

CIRNAM 

:.BLKW 

2 

CIRNUM 

:.BLKW 

1 

CIRMUL 

:.8LKW 

1 

DEVNM: 

.BLKW 

2 

HEXSTR 

:.8LKe 

16 

ENDHEX 

STRSIZ 

:.BLKW 

1 

UICBUF 

:.BLK!J 

6 

UISZ== 

-UlCSUF 

FIL8UF 

:.8LKB 

16 

FLSZ^= 

-FIL8UF 

DEVBUF 

:.8LKW 

4 

DVSZ== 

-DEV8UF 

FILFLG 

:.BLKW 

1 

CIRUNT 

:.BLKW 

1 

SERCUR 

::.BL<W 

1 

SEROFF 

: :.8LKW 

1 

STATION  COUNT 

LAST  REMOTE  NODE  BLOCK  POINTER 

HIGHEST  NODE  ADDRESS 


SERSDF  PARSING  FLAG 
NODE  ADDRESS 
HOST  ADDRESS 
SLN/STA  PAIR 
DEVICE  NAME  CRAD50) 

;  PASSWORD 

DUMP  ADDRESS  (22  BITS) 
DUMP  COUNT 
HARDWARE  ADDRESS 
WORK  LOCATION 

CIRCUIT  NAME 
CIRCUIT  NUMBER 
TRIB  NUMBER 
DEVICE  NAME  (ASCII) 
HEX  STRING  BUFFER 


STRING  LENGTH 

UK  BUFFER 

UK  BUFFER  SIZE 

FILE  NAME  BUFFER 

FILE  NAME  BUFFER  SIZE 

DEVICE  NAME  BUFFER 

DEVICE  NAME  BUFFER  SIZE 

FILSDF  PARSING  FLAG 

UNIT  NUMBER  OF  CIRCUIT 

CURRENT  SERVICE  BLOCK  UNMAPPED  ADDRESS 

FNB  POINTER  OFFSET  INTO  SERVICE  BLOCK 
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REPND  -  REPLACE  NODE  NAME 

694 

695 

696 

697 

698 

699 

700 

701  001252 

702 

703 

70A  001252 

705  001252 

706  001252 

707  001252 
708 
70^^  001252 

710  001252 

711  001252 
712 

713  001252 

7U  001252 

715  001252 
716 

717  001252 

718  001252 

719  00i252 
720 

721  001252 

722  001252 

723  001252 
72A 

725  001252 

726  001252 

727  001252 
728 

729  001252 

730  001252 

731  001252 
732 

733  001252 

734  001252 

735  001252 
736 

737  001252 

738  001252 
739 

740  C01252 

741  001252 
742 


Page  17 


NTL 
TPA 


FILSDF  STATE 

TABLE 

ISTATS 

CFGST.CFGKW 

STATES 
TRANS 
TRANS 
TRANS 

FILDF 
<',>,TER 
SEOS.SEXIT 
IFILSPC.FLBKO 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 
<'  ,> 

STATES 
TRANS 
TRANS 

TER 

<',>,LOA 
IFILSPC.FLBKI 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 
<'  ,> 

STATES 
TRANS 
TRANS 

LOA 

<',>,DIA 

IFILSPC,,.FLBK2 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 

STATES 
TRANS 
TRANS 

DIA 

<',>.DUM 

IFILSPC,,.FLBK3 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 
<'  .> 

STATES 
TRANS 

DUM 
IFILSPC,,.FLBK4 

STATES 
TRANS 

SEOS.SEXIT 
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TPARS   STATE    TABLES   -  OBJSDF 


1133 
1134 
1135 
1136 
1137 
1138 
1139 
lUO 
1U1 
11A2 
1U3 
lUA 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1102 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 


OBJSDF 


001252 
001252 

001252 
001252 

001252 
001252 
001252 

001252 
001252 

001252 
001252 

001252 
001252 

001252 
001252 

001252 
001252 

001252 
001252 

001252 
001252 
001252 

001252 
001252 


:•  OBJECT  DEFINITIONS  (OBJSDF) 

STATES 
TRANS 

OBJDF 
SNUHBR,,O.NUM 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 
TRANS 

-',>,0BJ2 
LBRA 

STATES 
TRANS 

SRAD50,,0.NAME 

STATES 
TRANS 

R8RA 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

OBJ  2 
SNUMBR,,O.VFV 

STATES 
TRANS 

<'.> 

STATES 
TRANS 

SNUMBR,,O.FLAG 

STATES 
TRANS 
TRANS 

lEND.SEXIT.O.END 

STATES 
TRAN-. 

SNUM8R,SEXIT,0.C 

;  ALLOW  FOR  BLANK  OBJECT  NAME 
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PAGE  4 

CREF   04.00 


NTl 
ERR 


SYMBOL 

VALUE 

REFERENCES 

OPEN 

000510  R 

8-300 

#9-431 

PARDF 

000654  R 

11-495 

PDVNM 

=    ..•••♦     GX 

8-310 

PDVTA 

=    «»«»«•     Gx 

8-308 

QBUF 

000644  R 

8-390 

#11-493 

QMFL 

000660  R 

8-327 

#11-498 

QPAR 

000652  R 

8-383 

8-397 

#11-495 

QROU 

r     »♦»*.»        GX 

8-388 

8-395 

8-402 

RBRA 

^  000076 

#7-264 

READ 

000552  R 

8-324 

8-381 

8-393 

8-400 

#10-459 

REPND 

001174  RG 

7-114 

#16-674 

REP.NN 

001136  RG 

*15-645 

REPGB 

001066  RG 

7-112 

7-113 

7-117 

7-119 

7-121 

7-133 

#14-613 

14-616 

REP8C 

001066  RG 

*14-614 

RTSPC 

001044  RG 

7-109 

7-110 

7-122 

7-127 

7-128 

7-129 

7-132 

7-134 

7-135 

7-141 

7-142 

7-143 

7-144 

7-145 

7-146 

7-147 

7-148 

7-149 

7-150 

7-151 

12-568 

#12-571 

R$$11M 

=  000000 

5-62 

7-111 

7-164 

8-331 

16-673 

SERADD 

002040  RG 

#7-192 

SERBEG 

002010  RG 

#7-181 

SERCIR 

002016  RG 

#7-185 

SERCUR 

002156  RG 

#7-212 

SERDCT 

002036  RG 

#7-191 

SERDEV 

002020  RG 

#7-186 

SEPOMP 

002u32  RG 

#7-190 

SERFIN 

002166  RG 

#7-217 

SERFLG 

002010  RG 

#7-182 

SERHST 

002014  RG 

#7-1 84 

SERNOD 

002012  RG 

#7-183 

SEROFF 

002160  RG 

#7-^13 

SERPAS 

002022  RG 

#7-1,18 

SERSLT 

002162  RG 

#7-215 

SERTMP 

002046  RG 

#7-193 

SF.ACT 

=  000200 

#5-71 

SF.CIR 

=  000010 

#5-73 

SF.DEV 

=  000020 

#5-73 

SF.DIA 

=  004000 

#5-73 

SF.DPA 

=  000100 

#5-73 

SF.OPC 

=  000200 

#5-73 

SF.DUM 

=  010000 

#5-73 

SF.ENA 

=  000100 

#5-71 

5F.HAD 

=  000004 

#5-73 

SF.HST 

=  000002 

#5-73 

SF.LOA 

=  002000 

#5-73 

SF.LPB 

=  000004 

#5-71 

5F.MFL 

=  000040 

#5-71 

SF.PAC 

=  000020 

#5-71 

SF.PH3 

=  020000 

#5-73 

SF.PS5 

=  000040 

#5-73 

SF.REA 

=  000010 

#5-71 

SF.SEC 

=  000400 

#5-73 

SF.SER 

=  000001 

#5-71 

NT^CF2 
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ERROR  MESSAGES 


Page  8 


19A 
195 
196 
197 
198 
199 

200  000610 

201  00064A 

202  000700 
205  000734 

204  000770 

205  001044 

206  001120 

207  001154 

208  001174 

209  001234 

210  001264 

211  001314 

212  001344 

213  001402 

214  011440 

215  001466 
216 

217 
218 
219 
220 
221 
222 

223  001514 

224  001534 
225 

226 
227 
228 
229  000000 


.SBTTL  ERROR  MESSAGES 


ERROR  MESSAGES 

.ENABL  LC 


NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
.DSA8L 


<:>,P7, 
<:>,P8, 
<:>,P9, 
<:>,00, 
<:>,01, 
<:>,02, 
<;>,05, 
<:>,06, 


<:> 
<:> 

LC 


>,09 
>,M4 
:>,M5, 
:>,M6, 
;>,1P. 
;>,1Q, 
1R, 
IT, 


,CERR,RTSPC 

,CERR,RTSPC 

,CERR,RTSPC 

,CERR,RTSPC 

CERR.RTSPC 

CERR.RTSPC 

,CERR,RTSPC 

,CERR,RTSPC 

,CERR,RTSPC 

CERR.RTSPC, 

CERR.RTSPC, 

CERR.RTSPC 

CFERR.SREP. 

CFERR.SREP. 

CFERR.RTSPC 

CERR.RTSPC, 


CFLIN,<default  block  si2e> 

CFLIN.<maximum  block  size> 

CFLIN,<default  window  si2e> 

CFLIN.<maxinium  window  size> 
CFLIN,<Default  block  size  exceeds  maximum> 
CFLIN.<Default  window  size  exceeds  maximum> 
,CFLIN,<counter  timer  value> 
.CFLIN.<line-id> 
,CFLIN.<loqical  channel  number> 
.<X3PSDF  mi5sing> 
.<DSA$DF  missing> 
,<DSCSDF  missing> 
N,SFNOUT.<Open  Failure 
N,SFNOUT.<Read  Failure 

FNLJN.<Read  0verflow> 
(:FLlN.<Syntax  Error> 


{-»♦« . )> 
(-♦*♦. )> 


ERROR  MESSAGE  FORMAT  STRINGS 


103 
103 


157 
157 


156 
156 


FMT8:: 
FMT10:: 


.ENABL 

.NLIST 

.ASCIZ 

.ASCIZ 

.EVEN 

.DSABL 

.LIST 

.PSECT 


LC 

BEX 

"Conf 

q 

Fl 

le 

-- 

'  ' 

"Conf 

g 

Fl 

le 



III 

egal 

LC 
BEX 
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-1 

Symbol 

table 

A$$CHK= 

000000 

D$SISK= 

000000 

LN.OOP= 

000004 

L.DDS 

000004 

STRNXT 

001064RG 

A$SCP5= 

000000 

DStLiU 

000001 

LN.OPE= 

000001 

L.DLC 

000003 

SUBAMN= 

000000  G 

A$$PRI= 

000000 

D$$YNC= 

000000 

LN.REf= 

000002 

L.DLM 

000006 

SUBAMX= 

023417  G 

A$tTRP= 

000000 

D$$YNM= 

000000 

LN.SER= 

000002 

L.DLS 

000010 

SVNERR 

000342RG 

002 

BLKSMN= 

0000^0 

ERRBUF 

000O22R 

002 

LN.STA= 

000017 

L.FLG 

000000 

S$$WRG= 

000000 

BLKSMX- 

002000 

ERRMSG 

00001 2R 

002 

LN.SU8= 

000360 

L.KRBA 

000016 

S$$VSZ= 

007600 

BLKSZD 

000360RG 

002 

E$$XPR= 

000000 

LN.TRJ= 

000006 

L.LEN  = 

000022 

S.COST 

000001 

BLKSZH 

000362RG 

002 

FL.NT1= 

»••♦»♦  GX 

LO.CON 

000006 

L.MPF 

000022 

S.FLG 

000000 

CERR 

00037ARG 

FMT10 

001534RG 

002 

LO.CSR 

000006 

L.NMST 

000020 

S.LEN 

000004 

CFERR 

000404RG 

FMT8 

0015URG 

002 

LO.CTL 

000014 

L.NSTA 

000014 

S.NMST 

000002 

CFGBF 

000130RG 

002 

FM.10  = 

000000 

LO.LIN 

000004 

L.OWNR 

000021 

S.OWNR 

000003 

CFGEXT 

000006R 

002 

FM.8  = 

000000 

LO.PAR 

000010 

L.UNT 

000013 

T$$KMG^ 

000000 

CFGNAM 

OOOOOOR 

002 

FNDPDV 

001012RG 

LO.PR] 

000010 

MRKFL 

000344RG 

002  T$$MIN= 

000000 

CFGSZ 

000336RG 

002 

FNLIN 

000500RG 

LO.SCR 

000014 

M$$CRB= 

000124 

V$$CTR= 

001000 

CFLIN 

000504RG 

F$$LVL= 

000001 

LO.STA 

000015 

M$$CRX= 

000000 

WNDSMX= 

000177 

CHKBLK 

000610RG 

G$$TPP= 

000000 

LO.VCT 

000012 

M$$FCS= 

000000 

UNDSZD 

000364RG 

002 

CHKWNO 

0006A6RG 

G$$TSS= 

000000 

LR.AST 

000026 

M$tMGE= 

000000 

WNDSZM 

000366RG 

002 

CHNLMX= 

007777  G 

G$$TTK= 

000000 

LR.CIR 

000002 

M$$NET= 

000000 

X$$08T= 

000000 

COUNT 

000356RG 

002 

G$$WRD= 

000000 

LR.CTL 

000004 

M$$OVR= 

000000 

Z.NAM  = 

*♦***»  GX 

CTIM 

OOOAO' 

002 

HSHADD 

000376RG 

002 

LR.EFN 

000004 

NEXT 

000352RG 

002  $AZFS  = 

•»»«♦«  GX 

CUNMMX- 

OOOOOt 

HSHSZ 

000374RG 

002 

LR.LiN 

000002 

N$$ACC= 

000001 

SCATS  = 

♦»»»••  GX 

CVTBUF 

000357R& 

J02 

lE.EOF^ 

«•«»•'  GX 

IR.PRM 

000030 

N$$BUF= 

000001 

SCDTB  = 

•*»»•»  GX 

CWARN 

00036AR 

IE.RBG= 

•♦»••♦  GX 

LR.PRO 

000002 

N$$LDV= 

000001 

$CEACX= 

...*».  GX 

CS$CKP= 

000000 

I$$RAR= 

000000 

LR.STS 

000000 

N$$MCP= 

000001 

$CFUIC= 

»***•»  GX 

Ct$ORE= 

OOOAOO 

I$$RDN= 

000000 

LR.TC8 

000002 

N$$MLL= 

000001 

$CL8UF= 

*«***»  GX 

C$$RSH= 

177564 

K$$CNT= 

177546 

LR.UNT 

000005 

N$$MOV= 

000010 

tCLDEQ= 

•*»*•*  GX 

DARDEN= 

000456RG 

002 

K$$CSR= 

177546 

LS.AST= 

100000 

N$$NCT= 

000001 

$CLI0S= 

•***•♦  GX 

DARMLN= 

000017  G 

K$$LDC= 

000000 

LS.CEX= 

000001 

N$$PEM= 

000001 

$CLQUE= 

......  GX 

DEVCTL 

000546RG 

K$$TPS= 

000074 

LS.CIR= 

000010 

OPEN 

000230R 

$CLSIZ= 

»***»♦  GX 

DEVNAM 

000520RG 

LBRA  = 

000074 

LS.CXO= 

010000 

PCKBCD 

000700RG 

$ERRM4 

001234RG 

002 

DEVUNT 

000564RG 

LD$LP  = 

000000 

LS.CX5= 

000400 

PDVNM  = 

••****  GX 

$ERRM5 

001264RG 

002 

DE.OFF= 

000002  G 

LF.ACT= 

100000 

LS.DLM= 

004000 

PDVTA  = 

*•*♦»*  GX 

$ERRM6 

001314RG 

002 

DE.ON  = 

000001  G 

LF.BRO= 

000400 

LS.ECH= 

001000 

PORTNO 

000354RG 

002  SERROO 

000734RG 

002 

DSACUG 

0004 70RG 

002 

LF.BWT= 

000007 

LS.FDX= 

004000 

PVSTA 

000402RG 

002  SERROl 

000770RG 

002 

DSAHCT 

000477RG 

002 

LF.ENA= 

002000 

LS.HDX= 

010000 

PV.OFF= 

000001  G 

$ERR02 

001044RG 

002 

DSALCT 

000476RG 

002 

LF.LP8= 

001000 

LS.LJN= 

000003 

PV.ON  = 

000002  G 

$ERR05 

001120RG 

002 

DSARCT 

000500RG 

002 

LF.MDC= 

000100 

LS.LMC= 

000007 

P$$P45= 

000000 

$ERR06 

001154RG 

002 

D5ARDP 

000460RG 

002 

'  i^.MFL  = 

004000 

LS.NTJ= 

004000 

P$$URD= 

000000 

$ERR09 

001174RG 

002 

DSARDT 

000A40RG 

002 

LF.«TP= 

000020 

LS.ON  = 

000011 

Q$$OPT-- 

000010 

$ERRP7 

00061  ORG 

002 

DSASHI 

000504RG 

002 

LF.PAC= 

000200 

LS.OPT= 

000400 

RBRA  = 

000076 

$ERRP8 

000644RG 

002 

DSASLO 

0O05O2RG 

002 

LF.RDY= 

040000 

LS.PRO= 

000002 

READ 

000272R 

$ERRP9 

000700RG 

002 

DSCMCT 

000506RG 

002 

LF.REA= 

010000 

LS.PWF= 

040000 

RTSPC 

000476RG 

SERRIP 

001344RG 

002 

DSCMSK 

000507RG 

002 

LF.SER= 

000040 

LS.TOP= 

002000 

R$$DER= 

000000 

SERRIQ 

001402RG 

002 

DSCVAL 

000550RG 

002 

LF.T]M= 

000010 

LS.UNF= 

020000 

R$$K11= 

000001 

SERRIR 

001440RG 

002 

OSCVT 

000547RG 

002 

LF.UNL= 

020000 

LS.X25= 

000012 

R$$SND= 

000000 

SERRIT 

001466RG 

002 

DSFLG 

000404RG 

002 

LF.X2P= 

000000 

LS.11D= 

004000 

R$$11H= 

000000 

$FLAGS= 

«**♦**  GX 

OSTEND= 

♦♦•••»  GX 

LINCTL 

000350RG 

002 

LX.CEA= 

000004 

SF.ACT= 

000200 

$FN0UT= 

•♦♦••»  GX 

DSTNAM 

000A12RG 

002 

LINNAM 

000346RG 

002 

LX.LIN= 

000006 

SF.ENA= 

000100 

$GCLEP= 

......  GX 

DSTOSJ 

000421RG 

002 

LINUNT 

000351RG 

002 

LX.PRO= 

000005 

SF.LPB^ 

000004 

$LINKX= 

«♦.♦.«  GX 

DSTPRI 

00042CRG 

002 

LNKEND 

000760RG 

L$$ASG= 

000000 

SF.MFL= 

000040 

$NTCF3 

OOOOOORG 

DSTTS< 

000406RG 

002 

LN.CLO^ 

000000 

L$$DRV= 

000000 

SF.PAC= 

000020 

SQCHN  = 

»*••*♦  GX 

DSTVAR 

000422RG 

002 

LN.DUM= 

000005 

L$$P11= 

000001 

SF.REA: 

000010 

SQCUG  = 

...«.»  GX 

D5.X?5= 

C00001  G 

LN.LOA= 

000004 

L$$11R= 

000000 

SF.SER= 

000001 

SQDSA  = 

•*•••»  GX 

DS.X29= 

000002  G 

LN.L0O= 

000003 

L.COST 

000015 

SF.SVC= 

000002 

SQDSC  = 

**•»♦•  GX 

DTEDES 

000370RG 

002 

LN.OAU= 

000003 

L.CTL 

000012 

SF.UNL= 

000040 

SQDST  = 

••••**  GX 

DTEFLG 

000372RG 

002 

LN.OFF= 

000001 

L.CVA 

177776 

SPACE  = 

000040 

IQDTE  = 

*♦•«**  GX 

P$SSl'G  = 

V^SV. 

LN.ON  = 

000000 

L.DDM 

000002 

SPSAV 

000340R 

002  SQPSN  = 

......  GX 
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N'lCSR  -  CHECH   CSR   ADDRESS 
Symbol    fable 
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At$rHH= 

000000 

G$$TPP=  000000 

L$$P11= 

000001 

N$$MOV= 

000010 

S$tWRG= 

000000 

A$$rPS= 

000000 

G$$TSS=  000000 

L$$11R= 

000000 

NISNCr: 

000001 

s$$vs/= 

007600 

A$$PR1= 

000000 

G$$TTK=  000000 

M$$CR6=: 

000124 

N$$PEM= 

000001 

s.vrTA= 

000002 

A$$TRP-- 

000000 

GS$WRD=  000000 

M$$CRX= 

000000 

OfFLIN 

000120R 

S.VTTL= 

82S9S^ 

C$$CKP= 

000000 

I$$RAR=  000000 

M$$FCS= 

000000 

PR7 

•»•««««  GX 

T$$KMG= 

000000 

CtSORE= 

OOOAOO 

I$$RDN=  000000 

»1$$MGE  = 

000000 

P$$P45= 

000000 

r$$MiN= 

000000 

C$$RSH: 

17756A 

KSAR7  =  .•.•*•  GX 

M$$NET= 

000000 

P$$URD= 

000000 

UAR7SV 

000014R    002 

DttBUG^ 

1775U 

k;$$CNT=  177546 

M$$0VR= 

000000 

Q$$OPT= 

000010 

UDR7SV 

000016R    002 

DSSISl>,= 

000000 

<$$CSR=  177546 

NOSST 

000006R 

002  R$$DER= 

000000 

USAR7  = 

••««•*  GX 

D$$l1U 

000001 

K$$LDC=  000000 

N$$ACC= 

000001 

R$$K11= 

000001 

IJSDR7  = 

•••*••  GX 

Dt$rNC= 

000000 

K$$TPS=  000074 

N$$BUF= 

000001 

R$$SND= 

000000 

V$$CTR= 

001000 

t)t$¥NM= 

000000 

LD$LP  =  000000 

N$$LDV= 

000001 

R$$11M= 

000000 

X$$DBTr 

000000 

ES$XPR= 

000000 

L$$ASG=  000000 

N$$MCP= 

000001 

SST 

OOOOOOR 

002  INLCSR 

OOOOOORG 

F$tLVL  = 

000001 

L$$DRV=  000000 

N$$MLL= 

000001 

SSTAB 

000020R 

002  $$$OST= 

000006 

.  AB5. 

000000 
000126 

000 
001 

(RW,1,GBL,ABS,0VR) 
(RW,1,LCL,HEL,C0N) 

DA'A 

000024 

002 

(RW,D,LCL,REL,CON) 

E'-ro'-S 

detected: 

0 

•  •*  Assemble""  sta 

i'  5  t  i  c  s 

work   t 

lie  reads 

0 

work   f 

lie  writes 

0 

Size  ot 

work  tile 

9248 

Words  (  57  Pages) 

Size  of 

core  pool 

14440  Words  (  55  Pages) 

Operaf' 

ng  system 

RSX- 

11M/PLUS 

5V?StlCSr!v2![132,134]NTLCSR/CR/-5P  =  SV:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/I»IL,[130,10:RSXMCM/PA:1,[132,10]NTLCSR 


ntlcsr 


CREATED  BV  MACRO  ON  29-JJN-85  AT  00:30 
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305 
30A 
305 
306 
307 
308 
309 
310 
311 
312 
313 

315 

316 
317 
318 

319  C00122 

320  C00124 

321  C00130 

322  (00134 

323  000136 
32A  JOOUO 

325  000U6 

326  000150 

327  000154 

328  000156 

329  000162 

330  000164 
531  000170 

332  000172 

333  000174 

334  000200 

335  000202 

336  000206 

337  000210 

338  000212 

339  000214 

340  000220 
341 

342 
343 
344 

345  000222 

346  000230 


.SSTTL   FIND  -  DETERMINE  If  DATA  STRUCTURES  EXIST 

FIND  -  DETERMINE  If  DATA  STRUCTURES  ALREADY  EXIST 

THIS  ROUTINE  IS  CALLED  TO  LOOK  fOR  AN  EXISTING  DEVICE  WHOSE  NAME  MATCHES 
$$DEV.  If  SUCH  A  DEVICE  IS  LOCATED,  ITS  DCB  ADDRESS  IS  STORED  IN  FOUND. 

INPUTS: 

$$DEV=2  CHARACTER  DEVICE  NAME 

OUTPUTS: 

rOUND=DC8  ADDRESS    (IF    SUCCESSFUL) 


005000 

016700 
011000 
001406 
026760 
001372 
010066 

010067 
001416 
005760 
001014 
005001 
156001 
005002 
156002 
160102 
005202 
003406 
010267 


OOOOOOG 

OOOOOOG  OOOOOOG 
000002 
000166" 
OOOOOOG 

OOOOOOG 
OOOOOTG 

000^72' 


FIND: 
10$: 


20$: 
30$: 


40$: 


.IFT 

CLR 

SWSTK$ 

MOV 

MOV 

BEQ 

CMP 

BNE 

MOV 

RETURN 

MOV 

BEQ 

TST 

BNE 

CLR 

BIS8 

CLR 

BIS8 

SUB 

INC 

BLE 

MOV 

RETURN 


;  OF  R$$11M 

RO 

30$ 

DEVHD.RO 

(R0),RO 

20$ 

$$DEV.D.NAM(R0) 

10$ 

R0.2(SP) 

RO, FOUND 

40i 

D.DSP(RO) 

101$ 

R1 

D.UN1T(R0),R1 

R2 

D.UNlT^l (R0),R2 

R1,R2 

R2 

111$ 

R2, UNITS 


ERROR  CONDITIONS 


Son-. 

111$: 


EM5G$R 
fMSG$R 


2X 
20 


INDICATE  NO  DCfl  (YET) 
i  ENTER  KERNEL  MODE 

■  GET  DEVICE  POINTER 

.  GET  NEXT  DEVICE  IN  LIST 

■  If  EQ,  END  OF  LIST 

■  DOES  DEVICE  NAME  MATCH? 
.  IF  NE,  NO 

■  SET  USER  MODE  RO 

■  BACK  TO  USER  MODE 

IS  THERE  ALREADY  SUCH  A  DEVICE? 

IF  EQ,  NO 

IS  THE  DRIVER  RESIDENT? 

IF  NE,  YES  -  VERY  BAD 

GET  FIRST  UNIT  NUMBER 

AND  LAST'uNIT  NUMBER 

CALCULATE  UCB  COUNT 

IF  le,'d!unit  is  screwed  up 

SAVE  UNIT  COUNT 


DEVICE  DRIVER  ALREADY  RESIDENT! 
ILLEGAL  UNIT  (UCB)  COUN^ 
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RFPDv 

8U 
815 
8^6 
81^ 
818 
819 
820 
8?' 
82? 

8?; 

82^ 
825 
820 
827 
828 
829 
830 
851 
832 
833 
834 
835 
83t 
837 
838 
839 
840 
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.SBTIL  REPDV 


REPDV  -  REPLACE  DE^'KE  NAME 

INPUTS: 

R5  -  ERROR  MESSAGE  BLOCK  ADDRESS 

OUTPUTS: 

•»  IN  ERROR  MESSAGE  BLOCK  REPLACED  BY  DEVICE  NAME 
RO  DESTROYED 


000001 


.Iff 

REPDV:  MOV 
TST 

10$:    CMPB 
BNE 
DEC 

Move 

M0V8 

RETURN 
.ENDC 

.END 


;  DF  RS$11M 

R5,R0 

(RO)* 

*'*,(RO)t 

10$ 

RO 

$$DEV,(RO)' 

$$DEV+1,(R0) 


POINT  TO  ERROR  MESSAGE  BLOCK  ADDRESS 

FOUND  ASTERISK? 

BR  If  NO 

BACK  UP  OVER  ASTERISK 

STORE  FIRST  HALF  OF  NAME 

STORE  SECOND  HALF  OF  NAME 


DF 


R$$11M 


•N'L 


N     1 


NTL( 
LOC/ 


NN      NN 

TITTTl 

TTTT 

NN      NN 

TTTTTl 

TTTT 

W      NN 

NN      NN 

NNNN    NN 

MNNN    NN 

NN  NN  NN 

NN  NN  NN 

^^N    NNNN 

NN    NNNN 

NN      NN 

NN      NN 

NN      NN 

LLLLLLLLLL 

NN      NN 

r 

LLLLLLLLLL 

LL 

SSS5SSSS 

TTTTT 

TTTTT 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

_L 

SS 

.L 

SS 

LL 

SS 

LL 

SS 

LL 

ssssss 

-L 

ssssss 

.L 

ss 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

ooocoo 


NTLCEX  -  LOAD  rOM*l  EXEC 
LOCAL  DATA 


99 
100 
101 
102 
103 
104 

105  000000 
106 
107 
108 

109  000000 

110  000002 
111 

112 
113 
1U 

115  OOOOOA 

116  000004 

117  000004 

118  000004 

119  000004 

120  000004 
121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131  000006 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143  000012 

144 
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.SBTTL  LOCAL  DATA 


NTLC 
CENT 


103 


105 


145 
146 
147 
148 
149 
15T 

15; 

152 
155 
154 
155 


000020 


103 


123 


105 


124 


;  LOCAL 

DATA 

.PSECT 

DATA.D 

.NLIST 

BEX 

K6TMP:   .BLKW 
NTPT:    .WORD 

1 
0 

;  COMPATIBLE  SYMBOLS 

Iprcln : 

SPREXT: 
SPRING: 
$PRLEN: 
SPRLLN: 

.BLKW   1 


COMM  EXEC  FILE  NAME 


.IF  DF  RSSMPL 
CEXNAM:  .ASCI2  "RSXIIM' 
.EVEN 

.IFF 
130  CEXNAM:  .ASCIZ  "CEX" 
.EVEN 
.ENDC 

.IF  DF  RSSMPL 
VEXNAM:  .ASCIZ  "RSXVEC 
.ENDC 
.EVEN 


CETAB  FILE  NAME 
124  CETNAM:  .ASCIZ  "CETAB" 

SYMBOL  TABLE  EXTENSION 
102  ST6EXT:  .ASCIZ  "STB" 
.EVEN 


XPT  COUNTER  BLOCK  VALUES 
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702 
703 
70A 
705 
706 
707 
708 
709 
710 
711 
712 
713 

715 
716 
717 

718  001354 

719  001360 
720 

721 
722 

723  OOUOO 

724  001<,06 

725  OOUU 

726  001416 

727  001424 

728  001432 

729  001440 

730  001446 

731  001454 
732 

733  001460 

734  001464 

735  001470 
736 

737  001474 
738 

739  001500 

740  001502 

741  001504 

742  00^510 

743  001514 

744  001520 

745  001524 

746  001530 

747  001532 

748  001534 

749  001536 

750  001540 

751  001544 

752  001550 

753  001552 

754  001556 

755  001560 

756  001574 

757  001576 

758  001600 


012700 
016701 
000006 


016777 
032777 
001006 
066777 
066777 
016777 
016777 
016777 
012077 

016703 
016300 
016303 


005200 
005303 
005077 
005077 
005077 
005077 
016704 
001424 
010046 
060300 
160400 
010077 
005277 
160403 

005022 

010412 

012600 


OOOOOOG 
OOOOOOG 


.SBTTL  CENTl  -  NTINIT  PART  OF  SET  SYS  +  NTINIT 

V 

CENTl  -  PERFORM  NTINIT  PART  OF  SET  SYS  +  NTINIT 

INPUTS: 

.PCB  =  NTPOOL  PCB  ADDRESS 

.CCBNM,  ETC.  =  BUFSDF  PARAMETERS  FROM  CETAB 

NTPOOL  ALLOCATION  POINTERS  INITIALIZED  (SQBIAS,  SNBIAS,  SQSTRT) 
CCB'S  ALLOCATED  AND  LINKED  TO  CEX 
ROB'S  AND  SDB'S  ALLOCATED 


CENTl: 


OOOOOOG  OOOOOOG 
000004  OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  3$: 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


5$: 


MOV 

MOV 

.REPT 

MOV 

.ENDR 

MOV 

BIT 

BNE 

ADD 

ADD 

MOV 

MOV 

MOV 

MOV 

MOV 
MOV 
MOV 


INC 
DEC 
CLR 
CLR 
CLR 
CLR 
MOV 
BEQ 
MOV 
ADD 
SUB 
MOV 
INC 

:uB 

CALL 

CLR 

ASL$ 

MOV 

CALL 

MOV 


#.CC8NM,R0 
CCBNM, R1 
6 
(R0)+,(R1)+ 

. CCBNM, aCCBCT 

#CF.DYN,aCX0PT 

3$ 

.RDBNM,aCCBCT 

.RDBNM.aCCBNM 

.RDBNM,aRDBCT 

.SD8NM,aSDBCT 

.MXPRO,aMAXOV 

(RO)+,aRDBTH 

.PCB,R3 

P.REL(R3),R0 

P.SLKS(R3),R3 


SUSTKS  30$ 


RO 

R3 

aNBIAS 

aPAVL 

aXBlAS 

aXAVL 

.^,LL0C,R4 

7$ 

RO,-(SP) 

R3,R0 

R4,R0 

RO,aXBIAS 

aXAVL 

R4,R3 

$MAPX 

(R2)  + 

6,fi4 

R4,(R2) 

a(SP)t 

(SP)+,RO 


COPY  BUFSDF  PARAMETERS  INTO  CEX 


CCBNM/SZ,  RrSNM/SZ,  SDBNM/SZ 

CCBCT 

DYNAMIC  CCB  ALLOCATION  INCLUDED? 

BR  IF  YFS 

ELSE  UPDATE  CCB  COUNT 

RDBCT 
SDBCT 
COPY  THE  MAXIMUM  PROTOCOL  SIZE  ALLOWED 


GET  NTPOOL  PCB  ADDRESS 
STARTING  ADDRESS/BIAS 
AND  LENGTH 

*  ENTER  KERNEL  MODE 

*  ADJUST  FOR  NETLDR  HOME  BLOCK 
* 

*  ZtRO  NON-UMR-MAPPED  ALLOCATION  PTR 

*  ASSUME  NO  FREE  SPACE 

*  ASSUME  NO  EXTENDED  CEX  POOL 

*  . 

*  GET  SIZE  OF  EXTENDED  CEX  POOL 

*  BR  IF  NO  EXTENDED  CEX  POOL 

*  SAVE  CURRENT  ADDRESS  OF  NETWORK  POOL 

*  GET  END  OF  POOL 

*  GET  START  OF  EXTENDED  CEX  POOL 

*  STORE  BASE  ADDRESS  OF  EXTENDED  POOL 

*  POINT  TO  FIRST  FREE  BLOCK  (BLOCK  1) 

*  CALCULATE  LENGTH  OF  REMAINING  POOL 

*  MAP  TO  EXPENDED  POOL  AREA 

*  SET  UP  LISTHEAD  -  POINTER  TO  NEXT 

*  CONVERT  COUNT  TO  BYTES 

«  STORE  NUMBER  OF  BYTES  AVAILABLE 
»  RESTORE  PREVIOUS  MAPPING 

*  RESTORE  ADDRESS  OF  NETWORK  POOL 


,   N  A 

NTLCEX 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT  00:23     PAGE  2 

SYMBOL 

■ROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

E$NBS 

000020 

#5-62 

ESNCR 

000034 

#5-62 

E$NCS 

000036 

#5-62 

ESNIC 

000044 

#5-62 

ESNLEN 

000050 

#5-62 

ESNLLA 

000012 

#5-62 

ESNLNK 

000000 

#5-62 

ESNML 

000040 

#5-62 

E$NMR 

000024 

#5-62 

ESNMS 

000030 

#5-62 

ESNNOD 

000002 

#5-62 

ESNRT 

000042 

#5-62 

ESNRTP 

000005 

#5-62 

ESNSEG 

000010 

#5-62 

ESNTIM 

000046 

#5-62 

ESNUSE 

000004 

#5-62 

ESSTRT 

000006 

#5-62 

FE.CEX 

-  **♦♦+* 

GX 

7-364 

FL.NTI 

r  ♦*+*** 

GX 

11-65S 

FMASK 

=  ****** 

GX 

7-364 

GTBUF 

002250 

R 

15-908 

16-955    #17-978 

HTIM 

000024 

R 

#6-156 

♦18-1048    18-1071 

IBLKI 

000214 

R 

#6-225 

8-417     11-608 

IBLK2 

000226 

R 

6-225 

#6-228     8-445 

IRLK3 

000240 

R 

6-228 

#6-231 

I$$AS 

-   ****** 

5-68 

7-333     13-755    17-985 

K I  SARD 

=  172340 

#5-68 

KISAR6 

=  172354 

#5-68 

KSAR5 

=   ****** 

GX 

18-1057 

18-1060    18-1076 

l<6TMP 

000000 

R 

#6-109 

LF.ACT 

=  100000 

#5-63 

LF.BRO 

=  000400 

#5-63 

LF.SWT 

=  000007 

#5-63 

LF.ENA 

=  002000 

#5-63 

LF.LPB 

=  001000 

#5-63 

Lr.MDC 

=  000100 

#5-63 

LF.MFL 

=  004000 

#5-63 

LF.MTP 

=  000020 

#5-63 

18-1024 

LF.PAC 

=  000200 

#5-63 

LF.RDY 

=  040000 

#5-63 

LF.REA 

=  010000 

#5-63 

LF.SER 

=  000040 

#5-63 

LF.TIM 

=  000010 

#5-63 

LF.UNL 

=  020000 

#5-63 

LF.X2P 

=  000000 

#5-63 

LGDDB 

-  ****** 

GX 

11-609 

LLCiA 

-  ****** 

GX 

11-605 

11-630    11-641     18-1034 

LN.CLO 

=  000000 

#5-63 

1  N.DUM 

^  000005 

#5-63 

LN.LOA 

=  000004 

#5-63 

lN.LOO 

=  000003 

#5-63 

LN.OAU 

=  000003 

#5-63 

NTL 
LOC 
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NTLCFG  -  SCAN   CONFIGURATION  FIL  MACRO  V05.03b   Saturday  29-Jun-85  00:?5 
LOCAL    DATA 


Page  ^-1 


NTl 
ADt 


148 

U9 

150 

151   000356 

152 

153 

154 

155  000360 

156  000362 

157  000001 

158  0O0C02 
159 

160  00036A 

161  000366 
162 


SYNTAX   ERROR  FLAG 

SYNERR::.SLKW       1 

DATA  FOR  DTE$DF  MACRO 

bTEDES::.8LKU   1 
DTEFLG::.BLKU   1 

DE.ON  ==  1 

DE.OFF  ==  2 

.EVEN 
H5HSZ:.-  .8LKW   1 
HSHADD::.BLKW    1 

.EVEN 


DTE  ADDRESS 

FLAGS  WORD 

SET  DTE  STATE  TO  "ON" 

SET  DTE  STATE  TO  "OFF' 

HASH  TABLE  SIZE 
ADDRESS  OF  HASH  TABLE 


N  6 

NTLCFG  -  SCAN  CONFIGURATION  flL  MACRO  V05.03b  Saturday  29-Jun-85  00:23  Page  17 
ADDtDF  STATE  TABLE 


625 
62^ 
625 
626 
627 

628  00UO2 

629  00U02 

630  001A02 

631  00IA02 


.SBTTL      ADDSDF    STATE    TABLE 

LOCAL    PHYSICAL    STATION   ADDRESS    (ADDSDF) 

STAGES  ADDDF 

TRANS  i!ADD$DFX,,,1,SVNERR 
STATES 

TRANS  SNUMBR,SEXIT,AD.NUM 


NT 

SYI 

SY 

AD 
AD 
BL 
BL 
CE 

CF 

CF 
CF 
CF 
CF 
CF 
CF 
CF 
CF 

CH 
CH 
CH 
CT 
DE 
DE 
DE 
DT 
DT 
DI 
D. 
ER 
ER 
FG 
FG 
F^ 

F^ 
Fl» 
Fl> 

Ff 
F^ 
FN 
GE 

h; 

H! 
IE 
IE 
LF 
Lf 
Lf 
LF 
LF 
L» 


NTLCFG 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:24 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


ADDDF 

AD.NUM 

BLKSMN 

BLKSMK 

CERR 

CFERR 

CFGBF 

CFGEXT 

CFGFLG 

CFG<W 

CFGNAM 

CFGST 

CFGSZ 

CFLIN 

CHKBLK 

CHKUND 

CHNLMX 

CTL 

DECPT 

DE.OFF 

DE.ON 

DTEDES 

DTfFLG 

DSS^G 

D.NAME 

ERRBUF 

ERRMSG 

FG.X2P 

FG.X3P 


000100  R 
001534  R 
000040 
002000 
001214  RG 

001224  RG 

000144  RG 
000006  R 
0001 :6  RG 
000000  RG 
000000  R 

000000  RG 
000352  RG 
001316  RG 

002050  RG 
002106  RG 
007777  G 
000015  RG 
♦»*♦**  GX 
000002  G 

000001  G 
000360  RG 
000362  RG 
000036 
001402  RG 
000027  RG 
000017  RG 

000001  G 

000002  G 


REFERENCES 

12-482 
#21-743 
#6-86 
#6-87 

8-173 

8-189 

8-170 

8-181 
#7-133 
#7-104 
#7-121 

12-488 
#7-103 
#16-596 
#7-134 

8-173 

8-189 
#27-880 
#27-894 
#6-89 
#7-110 

24-810 
#7-158 
#7-157 
#7-155 
#7-156 
*24-811 
#20-697 
#7-117 
#7-115 
#7-122 
#7-i23 


FMT8 

001626 

RG 

8-170 
8-179 

FMT8A 

001646 

RG 

#8-202 

FMT8B 

001677 

RG 

8-182 

FM.8 

=  000000 

#8-170 
#8-179 

FM.8B 

:=  000000 

#8-182 

FNDPDV 

001744 

RG 

#25-830 

FNLIN 

001312 

RG 

8-172 

GETCSR 

001622 

RG 

#23-772 

HSHADD 

000366 

RG 

#7-161 

HSHS2 

000364 

RG 

#7-160 

IF. EOF 

=   ****** 

GX 

11-456 

lE.RBG 

~   ****** 

GX 

11-459 

LF.ACT 

=  100000 

#5-64 

LF.BRO 

=  OC0400 

#5-64 

1  f.Bwr 

=  000007 

#5-64 

LF.ENA 

=  002000 

#5-64 

LF.lPB 

r  001000 

#5-64 

LF.MDC 

=  000100 

#5-64 

27-8*'' 

27-8'<5 

8-174 

#13-518 

8-171 

8-190 

11-446 

10-422 

*9-233 

#16-596 

10-421 

♦11-448 

8-174 

#14-559 


*9-243 


13-522 

13-534 

9-331 

9-362 

8-171 

8-180 

8-183 
#8-171 
#8-180 
#8-183 

#14-558 


8-182 

8-172 
8-191 
12-490 

9-331 


12-489 
8-182 


•9-277 


9-377 
8-172 
8-181 

3-184 
#8-172 
#8-181 
#8-' 84 


g    7 

PAGE  1 

CREF   04 

.00 

8-183 

8-184 

8-185 

8-186 

8-187 

8-188 

8-175 

8-176 

8-177 

8-178 

8-179 

8-180 

8-192 

#13-521 

14-559 

9-362 

9-377 

9-387 

14-560 

8-183 

8-184 

8-185 

8-186 

8-187 

8-188 

9-387 

8-173 

8-174 

8-175 

8-176 

8-177 

8-178 

8-186 

8-190 

8-191 

8-192 

#8-201 

8-185 

8-187 

8-188 

8-189 

#8-203 

#8-173 

#8-174 

#8-175 

#8-176 

#8-177 

#8-178 

#8-186 

#8-190 

#8-191 

#8-192 

#8-185 

#8-187 

#8-188 

#8-189 

NT 
ER 


N  8 

NTLCF2  -  SCAN  COMF IGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:24 
ERROR  MESSAGES 


2U 

215  002162 

216  00216^ 

217  002166 

218  002166 
219 

220  002232 

221  00223'i 
222 

225 
224 
225 
226 
227 
228 

229  002236 

230  002A','l 
231 

232 

235 

23A 

235  QOliiUb 

256 

257 

258 

259 

240  002450 

241 

242 

245 

244 

245  002452 

246 

247 

248 

249 

250  0024S4 

251 

2i2 

255 

254 

255  002456 

256  002460 

257  002462 

258  002464 
259 

260 
261 
262 
263 
264 
265 
266  OOOCOO 


000044 

002166' 

002166' 

000006 

000005 


000000 


000000 
000000 
000000 
000000 


000074 
000076 


:.8LKU 
.BLKW 


SERSLT 
FNBLN: 
SERFIN 
FNBUFF::.8LKB 
FNBSZ==.-FNBUFF 
STRADD::fN8UFF 
STRPT::    FNBUFF 
FNBEXT==  6 
F1ELDC==   5 


1 
1 

36. 


Page  7-2 


SLT  ADDRESS  OF  ASSOCIAT'^D  CIRCUIT 
FNB  LENGTH 

LOCAL  COPY  Of  F  CURRENT 
SIZE  OF  LOCAL  FNB  BUFFER 
ADDRESS  FOR  START  OF  BUFFER 
CURRENT  BUFFER  LOCATION 
FILE  NAME  BLOCK  EXT. 
FNB  FIELD  COUNT 


NT 
RE 


RECORD  BUFFER  AND  BUFFER  LENGTH 

CF6BF;:  .8LKB   134. 
CFGSZ::  .BLKW   1 


SAVED  STACK  POINTER  FOR  ERROR  EXIT 
SPSAV:   .BLKW   1 

BROADCAST  ROUTER  ADJACENCIES 
NBRA::   .WORD   0 

SYNTAX  ERROR  FLAG 
SYNERR::.8LKW   1 

MARKED-FOR-LOAD  FLAG 
MRKFL::  .BLKW   1 


POOL..  ALLOCATION  VALUES 


XPTLLN 
ECLLLM 
ECLNOD 
.BRAD: 


:.WORD 

:.WORD 

: . WORD 

.WORD 


NUMBER  OF  CIRCUITS 

NUMBER  OF  MAX  LOGICAL  LINKS 

NUMBER  OF  NODE  COUNTERS 

NUMBER  OF  ROUTER  ADJACENCIES 


ANGLt  BRACKETS 

LBRA='< 
RBRA='> 

.PSECT 


NTLCF2  - 

SCAN  CONFIGURATION  FR  MAC 

REPND  - 

REPLACE  NODE  NAME 

74A 

7^5 

001252 

7A6 

001252 

7A7 

001252 

7^8 

001252 

7^9 

750 

001252 

751 

001252 

752 

755 

001252 

75^ 

001252 

755 

001252 

756 

757 

001252 

758 

001252 

759 

001252 

760 

001252 

761 

001252 

762 

763 

001252 

764 

001252 

765 

766 

001252 

767 

001252 

768 

N    9 


Page  18 


NIL 
TP* 


STATES  FJLSPC 

TRANS  <'[>,UIC 

TRANS  SRAD50,TOK,GETSTR 

TRANS  SLAMDA 

STATES  UIC 

TRANS  SSTRNCGEFSTR 

STATES 

TRANS  <',>,F1LSPC,GRPUIC 

TRANS  <'J>,FILSPC,USRUn 

STATES  TOK 

TRANS  <':>,FILSPC,DEV 

TRANS  <'3>,FILSPC,USRUiC 

TRANS  <'.>, EXTENSILE 

TRANS  SLAMDA, SEXIT, FILE 

STATES  EXTEN 

TRANS  $STRNG,,GETSTR 

STATES 

TRANS  SLAMDA, SEXIT, EXT 


N  10 

NTLCF2  -  SCAN  CONFIGURATION  FIL  MACRO  V05.03b  Saturday  29-Jun-85  00:24  Page  28 
TPARS  STATE  TABLES  -  OBJSDF 

1172 

1173 

1174 

1175 

1176 

1177 

117  8  001252 

1179  001252 

1180 

1181  001252 

1182  001252 
1183 

1184  001252 

1185  001252 
1186 

1187  001252 

1188  001252 
1189 

1190  0012';2 

1191  001252 
1192 

1193  001252 

1194  001252 
1195 

1196  001252 

1197  001252 
1198 

1199  001252 

1200  001252 
1201 

1202  001252 

1203  001252 
1204 


1205 

001252 

1206 

001252 

1207 

1208 

0012-^2 

1209 

001252 

1210 

1211 

001252 

1212 

001252 

1213 

1214 

001252 

1215 

001252 

1216 

1217 

001252 

1218 

001252 

1219 

1220 

001252 

1221 

001252 

1222 

1223 

001252 

1224 

001252 

1225 

1226 

001252 

1227 

001252 

1228 

DECSDF  MACRO 

STATE  TABLE 

STATES 
TRANS 

DECDF 
SNUM8R , 

,ECLLNK 

ST/'TES 
TRANS 

<■  -> 

STATES 
TRANS 

SNUMSR, 

,NODCT 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 

SNUMBR , 

,INCT 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR , 

,OUTT 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR, 

,INAC 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR, 

,DELF 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR , 

,DELW 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR , 

,IPL 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR, 

,LST 

MAX  LOGICAL  LINKS 


M',X  NODE  COUNTERS 


INCOMING  TIMER 


OUTGOING  TIMER 


INACTIVITY  TIMER 


DELAY  FACTOR 


DELAT  WEIGHT 


INPUT  PACKET  LIMITER 


LINK  SERVICE  THRESHOLD 


NT.CF2     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:27 
SVMBOl  CROSS  REFERENCE 


N  11 

PAGE  5 

CREF   OA.UO 


ntl 

tNT 


SYMBOL  VALUE 


SF.SVC 

SF.TER 

SF.UNL 

SLTMA 

SLTNM 

SPSAV 

STAN 

STRADD 

STRPT 

STRSIZ 

SYNERR 

SISBAS 


=  000002 
=  001000 
=  OOOOAO 

:  ...*..   GX 

=  «.«**«  5x 
002AA6  R 
002002  RG 
002252  RG 
00223A  RG 
00210A  RG 
002A52  RG 

-  ****** 


S.ARD 

S.CIR 

S.COST 

S.DEV 

S.DIA 

S.DPA 

S.DPC 

S.DUM 

S.FLAG 

S.FLG 

S.HAD 

S.HST 

S.LEN 

S.LENG 

S.LN< 

S.LOA 

S.NMST 

S.OWNR 

S.PSS 

S.SEC 

S.TER 

UICBUF 

UISZ 

XPTLLN 

ZF.i'-IFL 

Z.FLG 

SAlPHA 

$ANY 

SAZFS 

SBLANK 

SCBDSG 

SCFUIC 

SCLBUf 

SCLDEO 


OOOOOA 

000016 

000001 

000020 

0000A6 

000032 

000036 

000050 

000002 

000000 

000010 

000006 

OOOOOA 

000052 

000000 

OOOOAA 

000002 

000003 

000022 

OOOOAO 

O0OOA2 

002106  RG 

OOOOK  G 

002A56  RG 
GX 
GX 


'-  000022 
=  000020 
=  ****** 

=  000006 


-   *♦♦**» 


GX 

GX 
GX 

GX 
GX 


REFERENCES 

#5-71 
#5-73 
#5-71 

8-316 

8-318 
#7-235 
#7-173 
#7-220 
#7-221 
#7-202 
#7-2A5 

7-107 

7-112 

7-121 

7-129 

7-Ul 

7-1A5 

7-150 
#5-73 
#5-73 
#5-71 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-73 
#5-71 
#5-73 
#5-73 
#5-71 
#5-73 
#5-73 
#5-73 
#5-71 
#5-71 
#5-73 
#5-73 
#5-73 
#7-203 
#7-20A 
#7-255 

8-3K 
•8-314 
#17-701 
rf17-701 

9-A3A 
#17-701 

15-653 

9-A31 
»10-A59 

8-A07 


«8-299 


»1 I-50A 
7-107 
7-113 
7-121 
7-132 
7-1A1 
7-U6 
7-150 


12-569 


*11-507 

7-108 

7-108 

7-109 

7-109 

7-110 

7-110 

7-112 

7-113 

7-1 K 

7-11A 

7-117 

7-117 

7-119 

7-119 

7-122 

7-122 

7-127 

7-127 

7-128 

7-128 

7-129 

7-32 

7-133 

7-133 

7-134 

7-134 

7-135 

7-135 

!-■  k2 

7-1A2 

7-143 

7-143 

7-144 

7-144 

7-145 

7-1A6 

l-\h7 

7-147 

7-148 

7-148 

7-149 

7-149 

7-151 

7-151 

7-204 


12-543 
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Page  9 


231 
232 
233 

23-; 

235 
236 
237 
238 
239 
2'.3 
2A1 
242 
243 
244 
245 

246  000000 

247  000006 
248 

249  000010 

250  000014 

251  000020 

252  000024 

253  000026 

254  000032 

255  000034 

256  000040 

257  000042 

258  000046 
259 

2b0 
261 


032767 
001475 


.S8TTL   $NTCF3  -  SCAN  CETA8.MAC  FOR  PSI  COMPONENTS 


$NTCf3  -  SCAN  CONFIGURATION  FILE  (CETA8.MAC)  FOR  PSl  COMPONENTS 

THIS  ROUTINE  IS  CALLED  DURING  "SET  CEX"  TO  PROCESS  THE  CONFIG  FILE 
FOR  NTINIT  PARAMETERS  PERTAINING  TO  PSI. 

INPUTS: 

$SLTA=SLT  ADDRESS 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 


OOOOOOG  OOOOOOG  $NTCF3::8IT 
BEQ 


010667  000340' 

103464 
103772 
103462 
103772 


10$: 


20$: 


MOV 

CALL 

CALL 

BCS 

CALL 

BCS 

CALL 

BCS 

CALL 

BCS 


#FL.NTI,$FLAGS 
110$ 

SP.SPSAV 

OPEN 

READ 

100$ 

$QPSN 

10$ 

READ 

101$ 

$QX3P 

20$ 


IS  THIS  SET  CEX  +  NTINIT  ? 
IF  EQ,  NO 

SAVE  SP  FOR  ERROR  EXIT 

OPEN  THE  CONFIG  FILE 

READ  NEXT  RECORD 

IF  CS,  EOF  (PSN$DF  MISSING  -  NOTHING  TO  DO) 

IS  IT  PSN$DF  ? 

BR  IF  NO  ..  KEEP  LOOKING 

READ  NEXT  RECORD 

IF  CS,  EOF  (X3P$DF  MISSING) 

IS  IT  X3P$DF? 

BR  IF  NO  ..  KEEP  LOOKING 


N' 
Sy 

$Q 
$Q 

to 


DA 
Er 


Wc 
Wc 
Si 
Si 
OC 

El. 
SV 


READ  NEXT  RECORD  FROM  CONFIG  FILE 


262  000050 

263  000054 

103450 

264 

265 

266 

267  000056 

268  000062 

103011 

269  000064 

270  000070 

103023 

271  000072 

272  000076 

103364 

273  000100 

274  000104 

000761 

275 

276 

277 

278  000106 

279   000112 

103431 

280  000114 

281  000120 

103372 

282  000122 

283  000126 

103367 

284  000130 

285  000134 

103364 

286  C00136 

000747 

287 

^0$: 


CALL 
BC^ 


READ 
100$ 


READ  NEXT  RECORD 
BR  IF  EOF 


LOOK  FOR  DTE$DF,  DST$DF,  RDT$DF  OR  X29$DF 


52$: 


CALL 

BCC 

CALL 

BCC 

CALL 

BCC 

CALL 

BR 


$QDrE 

35$ 

$QDST 

70$ 

$QRDT 

30$ 

$0X29 

30$ 


IS  IT  DTE$DF? 

BR  IF  YES 

IS  IT  DST$DF? 

BR  IF  YES 

IS  IT  RDT$DF? 

BR  IF  YES  -  LOOK  FOR  NEXT 

IS  IT  X29$D.'"? 

KEEP  LOOKING  ANYWAY 


PROCESS  DTE$DF  MACRO  AND  ASSOCIATED  MACROS 


55$: 


CALL 

BCS 

CALL 

BCC 

CALL 

BCC 

CALL 

BCC 

BR 


READ 

100$ 

$QCHN 

35$ 

$QPVC 

35$ 

$QCUG 

35$ 

32$ 


READ  NEXT  RECORD 

BR  IF  EOF 

IS  IT  CHN$DF? 

E   IF  YES  -  CHECK  FOR  MORE 

IS  IT  PVC$DF? 

BR  IF  YES  -  CHECK  FOR  MORE 

IS  IT  CUG$DF? 

BR  IF  YES  -  CHECK  FOR  MORE 

ELSE  BACK  TO  TOP  LEVEL  SCAN 
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Symbol  table 


$QPVC  =  •••»«* 
SQRDT  i  ••••»« 
tQX?9  =  •••••• 

ABS.  177776 
00113^ 
DATA  00156^ 
Errors  detected: 


GX 
GX 
GX 


$QX3P  =  •»•*•• 
$REP.N=  ♦•••»» 
$5AVAL=   ••♦>•• 


GX 
GX 
GX 


$TIOUT= 
.PCHAR= 


****** 
****** 


GX 
GX 


.PNUHB=    ••«••♦ 
.PNUMH=   «*•*<* 


.PSTCN=    *•••♦' 
.PSTPT=    ••»**' 


GX 
GX 


000 
001 
002 
0 


(RW,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


**♦   Assemble'-   statistics 


Work   tile  reads: 

0 

Work   tile  writes- 

0 

Size  of  work  file: 

H155  Words 

56  Pages) 

Size  of  core  pool : 

15A96  Words 

59  Pages) 

Operating  system: 

RSX-11M/PLUS 

SYfNTLCFp!v2;[132,134]NTLCFP/CR/-SP=SV:[1,1]RSXMCM.SML/l»IL,[130,11O]NErLIB/ML,C130,10]RSX['ICM/PA:1,[132,10]NTLCFP 


NTlCSR  created   BV      macro      on  ?'»-.iJN-85   at    00:30 

SYMBOL    CROSS   REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

<SAR7 

~       *  * t *** 

GX 

6-131 

NOSST 

000006 

R 

#5-72 

6-H3 

OFFLIN 

000120 

R 

5-82 

5-82 

#6-159 

PR7 

-       *  **  t  *  ♦ 

GX 

6-128 

6-UO 

R$$MPL 

-      *  ♦* t«  * 

5-58 

5-87 

6-110 

SST 

000000 

R 

#5-71 

6-125 

SSTAB 

000020 

R 

5-71 

#5-82 

S.VTTA 

=  000002 

5-71 

5-72 

UAR7Sv 

oooou 

R 

#5-76 

•6-129 

6-139 

UDR7SV 

000016 

R 

#5-77 

•6-130 

6-138 

USAR7 

T       **■»*•» 

GX 

6-129 

6-131 

6-139 

USDR7 

-      *♦***• 

GX 

6-130 

6-132 

6-138 

SNLCSR 

000000 

RG 

#6-107 

$$$GLB 

-    ****** 

5-71 

5-72 

N  U 

PAGE    1 

CREf        OA.OO 


6-U5 
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3A8 
3A9 
350 
351 
352 
353 
35A 
355 
356 
357 
558 
359 
560 
561 
562 
563 
56A 
565 
366 
567 
568  000256 

369  000242 

370  0002A6 

571  000252 

572  000260 

575  000266 

374  0002".? 

375  0002/A 

576  000300 

377  000304 

378  000510 
579  000512 
380  00031 A 
581  000520 

382  000526 

383  000530 

384  000552 

585  000354 

586  000336 

587  000542 
388  000546 
589  000352 
390  000356 
591  000560 
392  000564 

593  000566 

594  000572 
395  000374 
596  000402 

397  000410 

398  000412 
599  000414 

400  000416 

401  000422 

402  000424 

403  000452 

404  000434 


.SBTTL      DVSYM  -   DEFINE    SPECIAL    DATA   STRUCTURE    SYMBOLS 


DVSYM  -  DEFINE   SPECIAL   DATA  STRUCTURE   SYMBOLS 

THIS   ROUTINE    IS   CALI  ED    TO  SCAN   THE    [131 ,54JXXXTAB.STS  FILE   FOR    THE   FOLLOWING 
SPECIAL    SYMBOLS: 

SXXDCB  DCS  ADDRESS 

SXXEND  ENCi  OF    DEVICE    TABLES 

INPUTS: 

$$DEV=2  CHARACTER  DEVICE  NAME 
$NAME=PR0CESS  NAME 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 

DCB=VALUE  OF  fXXDCB  FROM  STB  FILE 

LENGTH=DITTO  SXXEND 


016700  OOOOOC. 

012701  07645i 

116767  OOOOOOG  000005' 

116767  000001 G  000006' 

012700  000004' 
010701 

012702  000126' 
010162  000004 
011202 

001374 

010167  000152' 

016767  000166'  000150' 

000241 

001056 

005000 

005001 

012702  000000' 

012700  000126' 

103444 

012701  000126' 
005002 

005761  000002 

001007 

012767     Mim     000136' 

005202 

011101 

001423 

005761  000002 

001767 

032761  000001  000010 

001404 


6vSYM: 


10$: 


20$ 
25$ 
30$ 


MOV 

MOV 

CALL 

MOVE 

M0V8 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

BNE 

MOV 

MOV 

CLC 

BNE 

CLR 

CLR 

MOV 

CALL 

MOV 

CALL 

BCS 

MOV 

CLR 

TST 

BNE 

MOV 

EMSG$ 

INC 

MOV 

BEO 

TST 

BED 

BIT 

BEQ 

EMSG$ 


$NAME,RO 

SETUP  DEFAULT  FILE  NAME 

#*RTAB,R1 

OF  XXXTAB 

$DFN2 

$$DEV,DNAME*1 

PREFACE'dEVICE  NAME  WITH  "$" 

$$DEVtl,DNAMEt2 

ADNAME.RO 

convert' It  to  rad50 

PC.RI 

$CAT5 

■  ■  > 

#D8LK1,R2 

POINT  AT  FIRST  CONTROL  BLOCK 

R1.4(R2) 

SETUP  SPECIAL  NAME 

(R2),R2 

GET  NEXT  CONTROL  BLOCK  ADDRESS 

10$ 

IF  NE,  NOT  AT  END 

R1, DUMMY 

SETUP  DISPATCH  TABLE  NAME 

FOUND, DCB 

DO  STRUCTURES  ALREADY  EXIST? 

ASSUME  SUCCESS 

60$ 

IF  NE,  VES 

RO 

SETUP  ASCIZ  FILE  SPEC 

Rl 

FOR  i:i31,54]XXXTAB.STB 

#STBEXT,R2 

$AZFS 

#D8LK1,R0 

POINT  AT'fIRST  SYMBOL  CONTROL  BLOCK 

$SYMSL 

SCAN  THE  STB  FILE 

101$ 

IF  CS,  FILE  ERROR 

#D8LK1,R1 

POINT  AT  FIRST  CONTROL  BLOCK 

R2 

TALLY  NUMBER  OF  ERRORS  IN  R2 

2(R1) 

IS  THE  $XXEND  SYMBOL  DEFINED? 

50$ 

IF  NE,  YES 

#-1, LENGTH 

FAKE  OUT  LENGTH  CHECK  LATER 

2A 

PRINT  ERROR  MESSAGE 

R2 

TALLY  THE  ERROR 

(R1),R1 

GET  NEXT  CONTROL  BLOCK  ADDRESS 

50$ 

IF  EQ,  END  OF  LIST 

2(R1) 

IS  SYMBOL  DEFINED? 

20$ 

•  IF  EO,  NO 

*1.10(R1) 

■  IS  SYMBOL  VALUE  ODD? 

40i 

■  IF  EQ,  NO 

2N 

■  PRINT  ERROR  MESSAGE 

R 

1 

f 

1 

n 

1 

F 

1 

MAPX 

f 

1 

G 

1 

H 

1 
1 

J 

1 

K 

1 

1 

1 

M 

1 

N 

1 

NTL 

R 

? 

r 

? 

D 

? 

f 

? 

r 

f 

G 

? 

H 
i 

2 

7 

J 

? 

NTLCEX 

< 

? 

1 

2 

1 

■> 

N 

7 

H 

^ 

r 

i 

D 

•i 

F 

^ 

F 

'i 

G 

<> 

H 
I 

J 

'• 

K 

'> 

1 

<, 

M 

'< 

N 

< 

R 

t. 

r 

4 

D 

4 

F 

i. 

F 

^ 

G 

4 

H 
I 

4 

J 

A 

< 

A 

1 

4 

M 

A 

N 

A 

B 

■> 

r 

S 

D 

S 

F 

c 

F 

t; 

G 

S 

H 
I 

5 

NTLCFG 

N 
B 
C 
D 

e 

F 

G 

H 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H  8 

I 

J 

K 

L 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 


8  NTLCF2 


I 

9 

i 

9 
9 
9 

I 

..  9 
B  10 
C  10 
D  10 


E 

F 

\l 

G 

10 

H 

10 

I 

10 

J 
K 

\l 

1 

10 

M 

10 

N 

10 

B 

11 

(■ 

11 

D 

11 

F 

11 

F 

11 

G 

11 

H 

11 

J 

11 

K 

11 

1 

11 

M 

11 

N 

11 

R 

V 

r 

V 

D 

V 

F 

V 

C 

1^ 

G 

V 

H 

V 

I 

1? 

J 

V 

K 

V 

1 

V 

M 

I,' 

N 

v 

R 

n 

r 

n 

D 

H 

F 

M 

F 

1< 

G 

H 

H 

H 

I 

H 

J 

1< 

K 

H 

1 

H 

M 

H 

H 

■^^ 

R 

u 

r 

u 

R 

u 

F 

14 

F 

u 

G 

lA 

H 

U 

I 

A 

.1 

A 

K 

1A 

L 

lA 

NTLCFP 


M 

N 

R 

r 

D 

F 

F 

G 

H 

1 

J 

K 

1 

M 

N 

B 

r 

1ft 

D 

16 

F 

16 

F 

16 

G 

16 

H 

16 

I 

16 

J 

K 

16 

L 

16 

NTLDEV 


M  16 


NTLCSR 
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ALOCB  = 

AtSCHK= 

At$CP5= 

A$»PRI= 

A$$TRP= 

BASE 

C$SCKP= 

CJ.$ORE  = 

C$$RSH= 

DBLK.1 

DBLIC2 

DCB 

DEACB  = 

DEVHD  = 

DNAME 

DSKBUF 

DUMMY 

DVALL 

DVDEA 

DVERR 

DVLBL 

DVSYM 

DVXfR 

0$$BUG= 

DS$I5i<  = 

DS$L11= 

D$$VNC= 

0$$VNM=: 

D.DSP  = 

D.NAM  = 

D.PCB  = 

D.aCB  = 


ABS. 


000000 

000000 

000000 

000000 

0001 70R 

000000 

OOOAOO 

177554 

0001 26R 

OOOKOR 

0001 50R 

••♦•♦♦  GX 

•»*♦••  GX 

OOOOOAR 

OOOOOOR 

0001 52R 

000636R 

001A16R 

001324R 

000476R 

000235R 

000754R 

1775U 

000000 

000001 

000000 

000000 

»••••♦  GX 

»*«**•  GX 
......  GX 

......  GX 


002 
002 


D.UCBL= 

D.UNIT= 

ERRBUF 

ERRMSG 

ETAB 

002  E$$XPR= 
FIND 
FMT/. 
FMTAA 
FMT6 
FMT9 

002  FM.4  = 
FM.AA  = 
FM.6  = 

002  FM.9  = 

003  FNDEA 
002  FOUND 

F$$LVL= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$URD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 

k;$$csr= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LENGTH 

L$BFLG= 

L$BLDZ= 


»♦«*»*  GX 

*»♦***  GX 

00001 7R 

000007R 

0001 56R 

000000 

0001 22R 

0Ci404R 

00H34R 

00U75R 

001516R 

000000 

000000 

000000 

000000 

00H12R 

000166R 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

1775'.  5 

1775A6 

000000 

00007A 

000000 

000135R 

******  GX 

******  GX 


002 
002 
002 


L$BMXZ= 
L$BSA  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
M$$CRB= 
002  M$$CRX= 
002  M$$FCS= 
002  M$$MGE= 
002  M$$NET= 
M$$OVR= 
N$$ACC= 
N$$8UF= 
N$$LDV= 
N$$HCP= 
002  N$$HLL= 
N$$MOV= 
N$$NCT= 
N$$PEH= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
REP4A 
REP4A1 
REP4A2 
REP9 
RVAD 
R$$DER= 
002  R$$K11= 
R$$SND= 
R$$11M= 


****** 

****** 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

OC'OOI 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

00H46R 

00H56R 

001516R 

001600R 

001270R 

000000 

000001 

000000 

000000 


GX 
GX 


SLHD  = 

STBEXT 

S$$URG= 

S$$YSZ= 

TABEND 

TS$NHD= 

1$$KMG= 

T$$HIN= 

UNITS 

U.DC8  = 

U.RED  = 

U.SCB  = 

VAD 

V$$CTR= 

X$$DBT= 

$AZFS  = 

SCATS  = 

$CLDEQ= 

$CLIOS= 

$CLOPE= 

$CUR.N= 

$C5TA  = 

$DFN2  = 

$ERR2A 

$ERR2B 

$ERR2C 

$ERR2D 

$ERR2t 

$ERR2F 

$ERR2H 

$ERR2J 

$ERR2K 


******  GX 

OOOOOOR 

000000 

007600 

000174R 

******  GX 

000000 

000000 

000172R 

******  GX 

**♦..,**  GX 

******  GX 

001300R 

001000 

000000 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

0001 76R 

000220R 

000256R 

000314R 

000342R 

000370R 

000426R 

000456R 

0O0530R 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


$ERR2L 
002  $ERR2M 
$ERR2N 
$ERR2P 
002  $ERR2Q 
$ERR2R 
$ERR2S 
$ERR2T 
002  $ERR2U 
$ERR2V 
iERR2W 
IERR2X 
$ERR2Y 
SFNDEQ 
$FNOUT= 
SIOSB  = 
SLBUF  = 
SLLEN  = 
SNAME  = 
$NLCDD= 
SNLDEV 
$PCB  = 
$PRV.N= 
SREAD  = 
002  $REP.C= 
002  $REP.P= 
002  $RLBL  = 
002  $SAVAL= 
002  $SYM8L= 
002  $TIOUT= 
002  $$DEV  = 
002  $$TBL  = 


002 


000572R 

000626R 

000664R 

000700R 

000736R 

000772R 

001044R 

001074R 

001U6R 

001220R 

001250R 

001322R 

001362R 

00U36R 

****** 

****** 

****** 

****** 

****** 

****** 

000000R6 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
G,' 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


000000 

001624 

DAT*    001544 

..SuF   000002 

Errors  detected: 


000 
001 
002 
003 
0 


(RU,I,G8L,ABS,0VR) 
(RU,i,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 
{RW,D,LCL,REL,C0N) 


•*.  Assemtler   statistics 

work      file     reads:  0 

n/ork       ti  le   writes:  0 

^ize  ot  work  file:  10301  Uoras   (  41  Pages) 

S'ze  cf   cere  ooot:  14440  Words   (  55  Pages) 

Joerat'ng  s/stem:  RSX-11M/PLUS 

SrfNTfDEv!v2;[132,134]NTLDEV/CR/-SP-SY:[1,-,]R5XMCM.SML/ML  [130,1 10]NETL IB/ML  ,  [1  30,1  OIRSXMCM/PA:  1  ,[132,1 0]NTLDEV 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 


N'lDEv 
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?11 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

22A 

225 

226 

227   000320 

228  000320 

229   000324 

012703 

OOOOOOG 

230  000330 

231    00033A 

103A06 

232   000336 

010005 

233   0003A0 

012701 

000016 

23A   0003A4 

235   000350 

103006 

236   000352 

237   00036A 

000A21 

238 

239  000366 

010002 

2'.0  000370 

005720 

2A1    000372 

010120 

2A2  00037A 

012720 

000022 

2A3   OOOAOO 

016720 

OOOOOOG 

2AA   OOOAOA 

012720 

000002 

2A5   COOAIO 

016720 

OOOOOOG 

2A6  OO0A1A 

016710 

OOOOOOG 

2A7   000A20 

010500 

2A8  OO0A22 

010201 

2A9  000A2A 

250  OOOA30 

251 

252 

253 

000001 

.S8TTL  PUTAST  -  PUT  COMPLETION  AST  IN  CALLER'S  AST  QUEUE 

PUTAST  -  PUT  A  COMPLETION  AST  IN  THE  CALLER  TASK'S  AST  QUEUE 

INPUTS: 

$$TASK=CALLING  TASK'S  NAME 
$FUNC=SUCCESS  CODE 
$$AST=AST  ADDRESS  IN  TASK 
$$PRM=PARAMETER  TO  RETURN  TO  TASK 

OUTPUTS: 

AN  AST  IS  QUEUED  FOR  THE  CALLER. 


PUTAST: 


10$; 


20$: 


30$: 


.IF    NDF 

I$$AS 

SUSTKS 

30$ 

MOV 

*$$TASK,R3 

CALL 

aSRSTD 

BCS 

10$ 

MOV 

R0,R5 

MOV 

#7*2, R1 

CALL 

iALOCB 

BCC 

20$ 

RETC 

RO 

BR 

30$ 

MOV 

R0,R2 

TST 

{r6)  + 

MOV 

R1,(R0)<- 

MOV 

*11«2,(R0)+ 

MOV 

$$AST,(RO)+ 

MOV 

#2,(R0)*- 

MOV 

$$PRM,(RO)+ 

MOV 

$FUNC,(RO) 

MOV 

R5,R0 

MOV 

R2,R1 

CALL 

iOASTT 

RETURN 
.ENDC 

.END 


ENTER  SYSTEM  STATE 

POINT  TO  TASK  NAME 

FIND  CALLER'S  TCB  ADDRESS 

IF  CS,  NOT  THERE  -  TOO  BAD 

ELSE,  COPY  TCB  ADDRESS 

ELSE,  SET  AST  BLOCK  LENGTH 

ALLOCATE  SOME  POOL 

IF  CC,  GOT  ;T  -  PROCEED 

SET  USER  C-BIT 

...  AND  RETURN 

COPY  ADDRESS  OF  BLOCK  ALLOCATED 

BUMP  OVER  LINK  WORD 

SET  LENGTH  OF  BLOCK  (TOR  DEALLOCATION) 

SET  STACK  SPACE  TO  RESERVE  FOR  TASK 

SET  AST  VIRTUAL  ADDRESS  FOR  TASK 

SE''  PARAMETER  COUNT 

SET  PAFAMETER  #1  (USER  SUPPLIED) 

SET  PARAMETER  #2  (COMPLETION  STATUS) 

POINT  TO  TASK  TCB 

POINT  TO  AST  BLOCK 

QUEUE  IHE  AST  TO  THE  CALLING  TASK 

BACK  TO  USER  STATE  AND  RETURN 


NlLGET  -  GET  SEND/RECEIVE  DATA 
S'/itDol  table 
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NTLKMC  -  LOAD  K1C  MICRO-CODE 
KMC  LOA'.ER  (PROCESS  LOAD) 


218 

219 

220 

221 

222 

223 

22A 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

2A0 

24 1 

242 

243 

244 

245 

245 

2^7 

248 

249 


B  3 
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.SBTTL  KMC  LOADER  (PROCESS  LOAD) 


$KMC  -  LOAD  MICRO-CODE  FOR 
INPUTS: 


INDIVIDUAL  PROCESS 


$PDVA  =  PDV  ADDRtSS  FOR  DDM  PROCESS 

$NAME  =  RAD50  PDV/DF/ICE  NAME 

SSLTA  =  SYSTEM  I INE  TABLE  ENTRY  ADDRESS 

$$CSR  =  KMC  CSR  ADDRESS 

SNTLPT  =  ADDRESS  OF  NTL  CONTROL  DATA  BLOCK 

.CXKMC  IN  DATA  BLOCK  CONTAINS  ADDRESS  OF  FIRST  LOAD  LIST  BLOCK 

(COfJTAINS  ZERO  IF  NO  BLOCKS  ALLOCATED  YET) 
NO  REGISTER  SAVING  IS  NECESSARY 


OUTPUTS 


C-8IT=SUCCESS/FAILURE 


000000 

OOCOOO  016700  GOOOOOG 

000004  005760  000004 

000010  001011 


000012  016700  GOOOOOG 
0000^6  016704  OOOOOOG 


$KMC: 


MOV 
TST 
BNE 


SSLTA.RO 

L.DDS(RO) 

10$ 


GET  THE  SLT  ADDRESS 

IS  THIS  IHE  FIRST  LINE  TO  BE  LOADED 

NO  ..  NOTHING  TO  DO 


KMC  WAS  NOT  PREVIOUSLY  IN  LOAD  LIST,  MUST  TRY  LOADING  IT 


00002" 

00002 

000031; 

000034 


103402 


MOV 

imLL 

BCS 

CALL 

RETURN 


SNAME.RO 

$$CSR,R4 

KMCLD 

10$ 

KMCLL 


B-GET  PDV/DEVICE  NAME 
B-GET  KMC  CSR  ADDRESS 
B-LOAD  THE  KMC  WITH  MICRO-CODE 
8-BR  IF  LOAD  WAS  BAD 
HOUSEKEEP  THE  LIST  OF  LOADED  KMC  '  S 


NTLKMC    -   LO^D  KMC    MICRO- 
KM(    LOADER    iPOWER    FAIL) 


:ODE 
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NTLKMC  -  LOAD  KMC  MICRO-CODE 
FILE  ER^OR  SUB-FORMATTER 


769 
770 
77-! 
772 
773 
77A 
775 
776 
777 
778 
779 
780 
781 
782 
783 
78A 
785 
786 
787 
788 
789 
790 
791 
792 
793 
79A 
795 

796  001512 

797  001316 
798 

799  001320 

800 

80  i  00132'- 

802  001326 

803  QC1330 
80A  001332 

805  00133^ 

806  CO! 336 

807  0013A0 

808  001 3A4 

809  001 3i6 

810  001350 

811  C01352 

812  001356 

813  001360 
8U  00136A 
8! 5  001366 
816  001370 
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.SBTTL  FILE  ERROR  SUB-FORMAT FER 

-KMCFEC-  FILE  CLOSED,  REPLACE  FILMAM  AMD  ERROR  CODE  (MAYBE)  WHEN  FORMATTINiG 
-KMCFEO-  FILE  OPEN,  REPLACE  FILNAM  AND  ERROR  CODE  (MAYBE)  WHEN  FORMATTING 

THIS  ROUTINE  WILL  REPLACE  THE  ASTERISK  IN  THE  PREFIX  STRING  WITH 
THE  FILE  NAME,  AND  THE  ASTERISK  IN  THE  SUFFIX  STRING  WITH  THE 
ERROR  CODE,  COPYING  BOTH  IN  THE  MESSAGE  BUFFER.   IF  THERE  IS  NO 
ASTERISK  IN  THE  SUFFIX  STRING,  IT  IS  ASSUMED  THAT  NO  ERROR  CODE 
IS  NEEDED.   THERE  MUST  BE  AN  ASTERISK  IN  THE  PREFIX  STRING. 

INPUTS: 

R3  =  ADDRESS  OF  MESSAGE  PREFIX  STRING  (FORMAT  STRING) 

R4  =  ADDRESS  OF  MESSAGE  BUFFER 

R5  =  ADDRESS  OF  4TH  WORD  IN  ERROR  MESSAGE  CONTROL  BLOCK 

FILE  IS  CURRENTLY  OPEN  VIA  SCLOPE 

ERROR  CODE  (IF  ANY)  IS  CONTAINED  IN  BYTE  aSCLIOS 

OUTPUTS: 

RO,  R1,  AND  «2  ARE  DESTROYED 

R3  =  ADDRESS  AFTER  END  OF  SUFFIX  STRING  (AFTER  NULL) 

R4  =  ADDRESS  AT  END  OF  MESSAGE  (AT  NULL) 


000A02 


112324 
001376 
010503 
005723 
11 2314 
00141^ 
122724 
001373 
005304 
010400 
117701 
005002 

010004 
O00762 


0C0052 


OOOOOOG 


317 
318 


.ENA8L  LSe 


KMCFEC: 

CALL 

$REP.P 

BR 

10$ 

KMCFEC: 

CALL 

$REP.C 

10$: 

M0V8 

(R3)+,(R4)t 

BNE 

10$ 

MOV 

R5,R3 

1ST 

(R3)t 

20$: 

MOVB 

(R3)->,(R4) 

BEO 

30$ 

CMPB 

#'*,(R4)<- 

BNE 

20$ 

DEC 

R4 

MOV 

R4,R0 

MOVB 

a$CLI0S,R1 

CLR 

R2 

CALL 

$C8DSG 

MOV 

R0,R4 

BR 

20$ 

30$: 

RETURN 

.DSABL  LS8 


USE  TO  COPY  UP  TO  END  OF 
I "ST  r^  ALL  COMMON  CODE 


FILE  NAME 


USE  TO  COPY  UP  TO  END  OF  FILE  NAME 

COPY  REST  OF  PREFIX 

BR  IF  NOT  DONE 

COPY  ADDRESS  OF  WORD  BEFORE  SUFFIX 

SKIP  A  WORD 

MOV  BYTES  TO  FINAL  MESSAGE 

BR  IF  DONE 

JUST  MOVED  AN  ASTERISK? 

BR  IF  NO,  KEEP  GOING 

BACK  UP  0\/BR   THE  ASTERISK 

COPY  BUFFER  POINTER 

GET  ERROR  CODE 

SUPPRESS  LEADING  ZEROES 

CONVERT  BINARY  TO  SIGNED  DECIMAL 

GET  ADDRESS  AFTER  ERROR  CODE 

KEEP  MOVING  BYTES 

DONE 


NTLKMC    -   LOAD   KMC   MiCRO-CODE 
RAM  ERROR   PRE'' IX   SUB-FORM  \TTER 
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000000 


123 


044 


NTLPRO  -   "SET    PROCESS' 
LOCAL   DATA 


96 

97 

98 

99 
ICO 

101  000000 
102 

103  000000 
104 
105 
106 

107  000002 

108  000004 
109 

110 

111 

112 

113  000006 

114 

115 

116 

117 

118  OOOLi^ 

119 

120 

121 

122 

123 

12A 

125 

126 

127 

128 

129 

130 

131 

132 

133 

154 

135 

136 

137 

158 

139 

140 

141 

142 

145 

144 

145 

146 

147 

148 

149 

150 

151 

152 
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124 


130 


102 


150 


•  *  ** 
;•  LOCAL 

■  *** 

•SBT^L 
DATA 

LOCAL  DATA 

.PSECT 

'■Al'A.D 

TEMP: 

.WORD 

0 

.NLIST 

BEX 

XPTPDV: 
NODCTR: 

.BLKW 
.8LKW 

1 
1 

;  SYMBOL 

TABLE 

EXTENSION 

STBEXT: 

.ASCIZ 

"STB" 

;  ASCII 

DISPATCH  TABlE  NAME 

DSPTA8: 

.ASCII 
.EVEN 

"$XXXTt)" 

.IF  Df 

R$$MPL 

;  PROCESS  VECTOR  TABLE  SVMB 

TEMP  LOCATION 


PDV  ADDRESS  FDR  XPT 

LOCAL  copy  OF  NUMBER  OF  N'JDE  COUNTERS 


VECTAB: 


VECLEN: 


.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 


'$XXX 
40 
40 

"$XXX' 
40 
40 


CETAB  FILE  NAME 

CETNAM:  .ASCIZ   /CETAB/ 
.EVEN 

CONTROLLER  TABLE  SYMBOL 


CT8LK: 

CT8SYM: 

CTVAL: 


.WORD 

.RAD50 

.BLKW 

.ENDC 


P4O 
"SCTXXX 

1 


PROCESS  DISPATCH  TABLE  SYMBOL 
.If  OF  R$$HPL 


NTLPRO  -  "SFT   PROCESS"  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL    DATA 
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NTLPRO 
SALECL 


"SET  PROCESS"  ROUTINES  MACRO  V05.03b  Saturday  29-Jun- 
ALLOCATE  ECL  NODE  COUNTERS 


B  6 

00:51  Page  13 


666 
667 

668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
671 
6^9 
680 
681 
682 

683  001220 

684  00'. 24 

685  001230 
6c-  001232 
68.  0012Z6 
6o8  001242 
639  001246 

690  001252 

691  001256 
692 

693  001262 

694  001276 

695  001300 

696  001304 

697  001306 

698  001312 
6-^9  001316 
700  0J1322 
701 

702  001330 
rO'   :o1334 

704  001340 

705  001342 

706  001344 

707  001346 

708  001356 

709  001362 

710  001366 

711  001370 

712  001374 

713  001376 

714  001406 

715  001410 

716  001414 

717  001416 

718  001422 

719  001424 

720  001426 

721  001430 

722  001434 


.SBTFL   SALECL  -  ALLOCATE  ECL  NODE  COUNTERS 


SALECL  -  ALLOCATE  ECL  NODE  COUNTERS  FROM  POOL.. 

INPUTS: 

SPDVA  -   ECL'S   PDV   ADDRESS 

SNN  -  MAXIMUM  NODE    ADDHEJS 

DSMNOD   OF    HOME   BLOCK   -  NUMBER   OF   NODE    COUNTERS    TO  ALLOCATE 

OUTPUTS: 

NSENC  lECL'S  DDB)  -  APR6  i/IRTUAL  ADDRESS  OF  START  OF  NOl_-  COUNTERS 

NSENr+2  (ECL'S  DDB)  -  APR6  VIRTUAL  ADDRESS  OF  END  0?  NODE  COUNTERS 

NSENC+4  (ECL'S  DDB)  -  APR  BIAS  FOR  NODE  COUNTERS 


NTlROO 
MACRO  D 

54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 


017701  OOOOOOG 
005000 

156100  000041 

010067  OOOOOOG 

012701  000050 

062701  000077 

042701  000077 


001465 

103463 

016705  OOOOOOG 

0165:5  OOOOOOG 

C10065  000046 

016767  OOOOOOG  00000'.' 


005001 
050201 
005004 


SALECL: 


000042 
000004' 

000050 


01C465 
016746 
010102 
062702 
C 10204 


010421 

012703  000023 

005021 

005316 

003361 

005726 

162701  000050 

005011 


20$: 


30$: 


CALL 

SSAVAL 

MOV 

aDECPT.RI 

CLR 

RO 

8ISB 

D$MNOD(R1),RO 

MOV 

RO.SSNODC 

MOV 

#E$NLEN,R1 

CALL 

SMUL 

ADD 

#77, Rl 

BK 

#77, Rl 

ASRS 

6,R1 

BEQ 

40$ 

CALL 

SALMIS 

BCS 

101$ 

MOV 

$PDVA,Rj 

MOV 

7.DAT(R5),R5 

MOV 

R0,N$ENCt4(R5) 

MOV 

SSNODCNODCTR 

SWSTKS 

40$ 

CALL 

$MAPX 

CLR 

Rl 

BIS 

R2,R1 

CLR 

R4 

BIAS 

R4 

MOV 

R4,NSENC(R5) 

MOV 

NODCTR,-(SP) 

MOV 

R1,R2 

ADD 

#E$NLEN,R2 

MOV 

R2,R4 

BIAS 

R4 

MOV 

R4,(R1)i- 

MOV 

#«ESNLEN-2>/2>,R3 

CLR 

(Rl)t 

SOB 

R3,30$ 

DEC 

(cp) 

BGT 

20$ 

TST 

(SP)  + 

SUB 

#E$NLEN,R1 

CLR 

(Rl) 

SAVE  ALL  REGISTERS 

GET  NUMBER  OF  NODE  COUNTERS 


GET  LENGTH  OF  ECL  COUNTERS 
CALCULATE  NUMBER  Of  BYTES 
ROUND  TO  BLOCK  BYTE  BOUNDARY 


CONVERT  TO  BLOCK  COUNT 

BR  IF  NONE  TO  ALLOCATE 

ALLOCATE  COUNTERS  FROM  NON-UMR  SPACE 

BR  IF  ERROR 

GET  ECL'S  PDV  ADDRESS 

GET  ECL'S  DDB  ADDRESS 

STORE  APR  BIAS  NODE  COUNTERS 

MAKE  LOCAL  COPY  OF  NO.  LODE  COUNTER 

ENTER  SYSTEM  STATE 

MAP  TO  COUNTERS 

POINT  TO  START  OF  COUNTERS 

SET  CORRECT  APR  BUS 

POINT  TO  START  OF  COUNTERS 

...  (ECL  NEEDS  APR6  BIAS) 

STORE  START  OF  COUNTERS 

GET  NUMBER  OF  NODE  COUNTERS 

POINT  TO  START  OF  COUNTERS 

POINT  TO  NEXT  COUNTER  BLOCK  IN  LISi 

COPY  ADDRESS  OF  NEXT  BLOCK 

SET  CORRECT  APR  BIAS  FOR  ECL 

STORE  LiNK  WORD 

GEf  NUMBER  OF  WORDS  TO  ZERO 

7ER0  THE  BLOCK 

MORE  TO  ALLOCATE? 

BR  !F  YES 

CLEAN  UP  STACK 

POINT  TO  START  OF  PREVIOUS  BLOCK 

INDICATE  END  OF  LIST 


Ml 


'RO   -   "SEl    PROCESS' 
■  n     -   ii  I  nrATF    Fri 
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MLROO 

vff  TORF 


NTLROO  -  NTL  ROOT  St  'ENT 
(1ACR0  DEFINITIONS 

5A 
55 
56 
57 
58 
59 
60 

61  OCOCOO 

62  000000 
63 
64 
65 

66  ■ 
67 
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.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 

.MCALL 

SLTDF$,CCBDF$ 

SLTDFB 
CrBDfl 

.IF  DF 
.MCALL 
.ENDC 

R$$MPL 
GIN$,D!R$ 

;  DEFINE  SLT  OFFSETS  AND  SYMBOLS 
;  DEFINE  PROCESS  DIPATCH  OFFSETS 


NTLROO  -  NIL  ROOT  SEGMENT 
VfCTGRFD  EXEC  TABLE 
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$VCTLB  -  SET  UP  LIBRARY  VECTOR  TABLE 


M9 
650 
651 
652 
653 
65A 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 

669  0003U 

670  00031 A 

671  000320 

672  000322 

673  000326 
67A  000330 

675  000336 

676  000342 

677  00034A 

678  000350 

679  000352 
680 

681 
682 
683 
684 

685  000360 

686  000364 

687  000370 

688  000372 

689  000376 
6''0  00040? 

691  00040- 

692  000412 

693  000416 

694  000420 

695  000424 

696  000426 
697 

698 
699 
700 
701 

702  000434 

703  000440 

704  000444 
705 


.SBTTL      $SLIN  -   SET   LIME 

y 

SSLIN  -  "SET   LIME" 

INPUTS: 

$SLTA=SLT   ADDFESS 

$SLN=S»'SrEM  LINE    NUMBER 

$$CSR=CSR  ADDRESS 

$$PRI=INTERRUPT  PRIORITV  (1  THRU  7) 

$$VECT=INTERRUPT  VECTOR  ADDRESS 

$$MTP=STATI0N  COUNT  (MULTIPOINT  ONLY) 

t$SNUM=STATICN  NUMBER  TABLE  (MULTIPOINT  ONLY) 

OUTPUTS: 

C-81T=SUCCESS/FA1LURE 


016701      000140' 

001424 

004767  000146 

0010''6 

012767  003000  000014' 

004767  OOOOOOG 

103451 

004767  OOOOOOG 

■03446 

052767     ClOOOO     001232' 


010160  OOOOOOG 

004767  OOOOOOG 

103437 

016701  000142' 

00476/  000072 

001016 

012767  003000  000014' 

004767  OOOOOOG 

103424 

004767  OOOOOOG 

103421 

052767  020000  001232' 


$SLiN: 


10$: 
20$: 


010160  OOOOOOG 
004767  OOOOOOG 
103411 


25$: 


MOV 

BEQ 

CALL 

BNE 

MOV 

CALL 

BCS 

CALL 

BCS 

BIS 

.IF  DF 

CALL 

.ENDC 


$DLCPV,R1  ;  GET  DLC  POV  ADDRESS 

20$  ;  IF  EQ,  COMBINATION  DDM/DLC 

AIC  ;  IS  DLC  ALREADY  IN  CORE? 

10$  ;  IF  NE,  YES 

<'MS.INC!MS.EXT,$MISS    ;  LOOK  FOR  PROCESS  INCREMENT 

$NLCFG  ;  ..IN  CETAB 

50$  ;  IF  CS,  FAILED 

$XFER  ;  TRANSFER  DLC  INTO  CORE 

50$  ;  IF  CS,  FAILURE  (NOTHING  TO  CLEAN  UP) 

*FL.PX1,$FLAGS  ;  INDICATE  SUCCESSFUL  DlC  TRANSFER 


R$$MPL 
VECSET 


MOV 

R1,2.PCB(R0) 

CALL 

$TMP 

BCS 

101$ 

MOV 

$DDMPV,R1 

CALL 

AIC 

BNE 

25$ 

MOV 

#MS.INCIMS.EXT, 

CALL 

SNLCFG 

BCS 

101$ 

CALL 

$XFER 

BCS 

101$ 

BIS 

#FL.PX2,$FLAGS 

.IF  DP 

R$$MPL 

CALL 

VECSET 

.ENDC 

MOV 

R1,Z.PCB(R0) 

CALL 

$CTSVM 

BCS 

101$ 

$M 


SETUP  VECTOR  TABLE 


SETUP  PCB  ADDRESS  IN  PDV 
SETUP  DLC  LINE  TABLE 
IF  CS,  FAILURE 
GET  DDM  PDV  ADDRESS 
IS  DDM  ALREADY  IN  CORE? 
IF  NE,  YES 
:SS    ;  LOOK  FOR  PROCESS  INCREMENT 
..IN  CETAB 
IF  CS,  FAILED 
'RANSFER  DDM  INTO  CORE 
IF  CS,  FAILURE 
INDICATE  SUCCESSFUL  DDM  TRANSFER 


SETUP  VECTOR  TABLE 


SET JP  PCB  ADDRESS  !N  PDV 
SETUP  CTB  ON  RSX-llMt 
IF  CS,  FATAL  ERROR 
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NTLROO     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:52 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


REFERENCES 


SMAXOV 

SMISS 

SMXVCT 

$NAME 

SNBIAS 

SNETPF 

SNLCFG 

$NLDEV 

SNLGET 

SNLINI 

$^JLPUT 

SNLRQB 

SNONSI 

$NSO 

$NS1 

$NS2 

$NS3 

SNS'. 

$NS5 

$NS6 

SNIS7 

SNTCFS 

$NTCf3 

$NTICF 

$NTL 

SNTLPT 

SNTUIC 

SOBJHD 

SPARHD 


00001 A 
00007O 
00006A 

r     ****** 


****** 
****** 
****** 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
******* 
****** 
****** 
****** 

000000 


7-A77 
•12-739 

11-675 


*ll-67^ 


11-692 
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•  11-691  *U-81f 


1A-819  U-831 


•14-830 


13-790 
13-785 
13-778 
lA-835 


$PCB 

000070 

RG 

#6-295 

•8-507 

8-556 

$PDVA 

000062 

RG 

*6-292 

6-310 

8-506 

$PDVID 

-   ****** 

GX 

6-179 

SPHVNM 

~       ****** 

GX 

6-165 

SPDVTA 

r  ****** 

GX 

5-158 

SPSIPT 

-  ****** 

GX 

6-213 

f-^UMR 

-  ****** 

GX 

6-195 

iJ«TT 

r  ****** 

GX 

5-1U 

$qb;as 

-  ****** 

(iX 

6-205 

SOSTRT 

-  ****** 

GX 

6-206 

SRCDEV 

000021 

RG 

*6-270 

SRDBAF 

-   ****** 

(,X 

5-152 

SRDBCT 

-  *  *  -.y  *  *  * 

GX 

5-U7 

SROBLH 

-  ****** 

GX 

6-190 

SRDBNM 

-  ****** 

t,X 

6-207 

$RDBS7 

r  ♦***♦♦ 

CX 

6-187 

SRDBTH 

-  ****** 

GX 

5-Ui, 

$RSX\M 

oocooo 

RG 

itb-223 

SSCEX 

000552 

R 

6-40A 

*13-7/3 

SSCIR 

000636 

R 

6-111 

#11-815 

SSDBAF 

r   ****** 

GX 

5-15A 

SSDBCT 

_*   *.**♦* 

GX 

5-1A6 

SSDBLH 

-   ****** 

GX 

6-191 

•12-753 
8-518  8-526 


8-516 


8-551 


•12-731 


11-815 


N'lROO 
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SNLRQB  -  PROCFSS  RECEIVE  DATA  BLOCK 


196 
197 
198 
199 
200 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 

218  000000 

219  000000 

220  00000", 
000010 

22  000012 
223  000016 
22^.  000020 

225  000024 

226  000026 

227  .,00030 

228  00C032 

229  000036 

230  OOOOAO 

231  OOOOAA 

232  0000A6 

233  000050 

234  000052 

235  00005A 

236  000060 
237 

238 
239 
240 
241  000062 


221 


.SBTTL  SNLRQB  -  PROCESS  RECEIVE  DATA  BLOCK 


SNLRQB  -  PROCESS  RECEIVE  DATA  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  PROCESS  THE  NETLDR  REQUEST  BLOCK  AND  TO 
INITIALIZE  THE  LOCATIONS  "$FUNC"  AND  "$MISS". 

INPUTS: 

$$LR8=L0AD  REQUEST  BLOCK 

OUTi-'UTS: 

C-BIT=SUCCtSS/FAILURE 

ALL  REGISTERS=DESTROYED 

$FUNC=FUNCTION  CODE  (0=NOP, 

$|V|ISS=MISS1NG  PARAMETERS  BIT  MASK 

$PDVA=PDV  ADDRESS  (SET/CLEAR  LINE/PROCESS  ONLY) 

$SLTA=SLT  ADDRESS  (SET/CLEAR  LINE  ONLY) 


010667  000132' 

012703  0000040 

01230". 

042704  177400 

C01421 

022704     000010 

103416 

010405 

006305 

016505  177776' 

001411 

005067  OOOOOOG 

103402 
005715 
001374 
010467  OOOOOOG 


SNLRQB: 


10$: 


20$: 


MOV 

SP.SPSAV 

MOV 

#$$LRBt4,R3 

MOV 

(R3)t,R4 

BIC 

lt^<i<l(7>M 

6EQ 

101$ 

CMP 

/»FMAX,R4 

BLO 

101$ 

MOV 

R4,R5 

ASL 

R5 

MOV 

FTA8-2(R5),P5 

BEQ 

101$ 

CLR 

SMISS 

CALL 

a(R5)+ 

SCS 

20$ 

TST 

(R5) 

BNE 

10$ 

MOV 

R4,$FUNC 

RETURN 


ERROR  CONDITION 
101$:    FMSG$R   99 


SAVE  STACK  POINTER 

GET  REQUEST  BLOCK  ADDRESS 

GET  FUNCTION  CODE 

IF  zer6!'illegal  function 

IS  IT  A  VALID  function  CODE? 

IF  LO,  NO 

COPY  FUNCTION  CODE 

MAKE  A  WORD  'NDEX 

GET  SUBROUTINE  TABLE  POINTER 

IF  ZERO,  ILLEGAL  FUNCTION 

NO  PARAMETERS  MISSING  VET  (CLEARS  C-8IT) 

KEEP  CALLING  SUBROUTINES 

UNTIL  C-BIT  IS  SET 

OR  END  OF  TABLE  (0)  IS  REACHED 

SET  FUNCTION  CODE 


ILLEGAL  FUNCTION  CODE 


C  10 
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690  00K34 

691  UOIAAO 

692  001^^12 

693  00UA6 
69A   00U50 

695  00U5A 

696  00U62 

697  00K70 
698 

699  001A72 

730  001500 

701    001502 

702 

703  001506 

70A   001510 

705  001512 

706  00151A 

707  001520 

708  001522 

709  001524 
710 

711  001526 

712  001532 

713  001534 
71A  00i5iT 
715 

715   0015AA 
717  001550 
'   001552 

719  001560 

720  001562 

721  001 56A 
722 

723  001 56A 
72A  001566 

725  001570 

726  001572 

727  001576 

728  001602 

729  001606 

730  001610 

731  001612 

732  001620 

733  001622 
73A  001626 

735  001632 

736  0016AC 

737  0016A2 

738  001650 

739  001652 
7A0  001660 
7A1  001662 
7A2  001670 
7A3  001672 
7AA  001700 
7A5  001702 
7A6  001706 


71 


00A267 

01A101 
0A2701 
006301 
060166 
017666 
062766 


0327^6 
001A21 
062716 

01A103 
005721 
000303 
0A2703 
006503 
006303 
060316 

132736 
001A12 

000A06 

032756 
001A03 

020102 
001315 


005A00 
103551 
005001 

016701 
016702 
011202 
001AA6 
026162 
001372 
016203 
11620A 
032763 
001010 
132763 
OOIAIA 
016266 
000A22 
132763 
001 OOA 
016266 
OO0A12 
066203 
10520A 


OOOOOOG 

177A00 

000012 

000012  000012 

000000  000012 

OOOAOO  000000  25$: 
000022 


177A00 


000200 


100000 


OOOOOOG 
OOOOOOG 


27$: 

30$: 
A0$: 


50$: 


OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG  60$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOA 

OOOOOOG  OOOOOOG  65$: 

OOOOOOG  000002 

OOOOOOG        70$: 


JSR 
MOV 
BIC 
ASL 
ADD 
MOV 
ADD 
RETURN 

BIT 
BEQ 
ADD 

MOV 

TST 

SWAB 

BIC 

ASL 

ASL 

ADD 

Bire 

BEQ 

EMSG$ 

BR 

BIT 

BEQ 

EMSG$ 

CMP 

BNE 


NEG 

BCS 

CLR 

SWSTK$ 

MOV 

MOV 

MOV 

BEQ 

CMP 

BNE 

MOV 

MOVB 

BIT 

BNE 

BITS 

BEQ 

MOV 

Bfi 

BITS 

BNE 

MOV 

BR 

ADD 

INCB 


R2,$SAVVR 

-(RD.Rl 

**C<377>,R1 

R1 

R1,10.(SP) 

S10.(SP),10.(SP) 

*L.FLG,10.(SP)   , 


*LF.8R0,a(EP) 

27% 

#<L.MPF-L.FLG>,( 

-(R1),R3 

(R1)  + 

R3 

#*C<377>,R3 

R3 

R5 

R3,(SP) 

#SF.ACT,a(sr)t 

30$ 

Z3 

30$ 

*LF.ACT,S(SP)+ 

50$ 

Z5 

R1,R2 

20$ 


SAVE  R0,R1,R2  (fO-ROUTINE) 
GET  SYSTEM  LINE  NUMBER  (BYTE) 

convert' to  A  WORD  INDEX 

ADJUST  SLT  POINTER 
;  POINT  AT  SLT 
,  POINT  AT  FLAGS  UORD 
;  RESTORE  R0,R1,fi2;  RETURN  TO  25$ 

;  BROADCAST  CIRCUIT  ? 

;  IF  NO  -  BRANCH 

SP)  ;  IF  YES  -  POINT  AT  START  OF  TRIB  FLAGS 

GET  TRIB  NUMBER 
RESTORE  R1 


GET  TRIB  INDEX 

POINT  TO  TRIB  FLAG 

IS  CHANNEL  ACTIVE  ? 

IF  NO  -  BRANCH 

IF  YES  -  PRINT  ERROR 

CONTINUE 

IS  CHANNEL  1-N  ACTIVE? 

IF  EQ,  NO 

CHANNEL  STILL  ACTIVE  (SETS  RO  NON-ZERO) 

SCAN  ENTIRE  CHANNEL  TABLE 


NTLRQb 
REP7  - 

122 
123 

123 
123 
123 

123 
123 
123 
12! 
123 
123 
12A 
12A 
12A 
12^ 
12A 


RO 

150$ 

Rl 

90$ 

$PDVA,R1 

0EVHD,R2 

(R2),R2 

80$ 

Z.PC6(R1), 

50$ 

D.UC8(R2), 

D.UNIT(R2) 

#DV.MNT,U. 

65$ 

*US.BSY,U. 

70$ 

D.NAM(R2), 

80$ 

#US.MNT,U. 

70$ 

D.NAM(R2), 


;  ANY  ERRORS? 
;  IF  CS,  YES 

;  INDICATE  NO  DEVICE  ERROR 
;*  ENTER  KERNEL  MODE 
;*  GET  PDV  ADDRESS 
;»  AND  RSXllM  DEVICE  POINTER 
;*  GET  NEXT  DEVICE  IN  LIST 
;»  IF  EQ,  ALL  DONE 
D.PCB(R2)  ;♦  IS  OUR  LLC  ALSO  THIS  DEVICE? 
;*  IF  NE,  NO 

GET  FIRST  UCB  ADDRESS 

AND  FIRST  UNIT  NUMBER 

♦  MOUNTABLE  DEVICE? 
IF  NE,  YES 

•  IS  UNIT  STILL  BUSY? 
IF  EQ,  NO 
SAVE  NAME  OF  BUSY  DEVICE 


R5 

,RA   ;< 

CW1(R3) 

STS{R3! 


AtSP) 

SrS(R35  ;»  IS  UNIT  MOUNTED? 

IF  NE,  NO 
2(SP)  ;♦  SAVE  NAME  OF  MOUNTED  DEVICE 


D.UCBL(R2j,R3 
RA 


GET  NEXT  UCB  ADDRESS 
AND  NEXT  UNIT  NUMBER 


C  11 

NTLRQB  -  PARSE   REQUEST  BLOCK         MACRO  V05.03b   Saturday  29-Jui -85   00:32     Page   18-2 
rpon  -   rHFTK    n  FAR   PRnrFSS   rfqiifst  HinCK 


NlLRGE 

DCD74 
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REP7  -  REPLACE  REQUESTING  TASK'S  NAME 


•FIL[ 


1229 

1230 
1231 
1232 
1233 
123A 
1235 
1236 
1237 
1238 
123? 
12A0 
12^.1 
12A2 
12A3 
12AA  003A20 


.S8TTL   REP7  -  REPLACE  REQUESTING  TASK'S  NAME 
REP7  -  REPLACE  REQUESTING  TASK'S  NAME 
NOTE: 


THIS  ROUTINE  HAS  BEEN  CHANGED  INTO  A  NOP 


INPUTS: 

NONE 

OUTPUTS: 

NONE 


REP7: 


RETURN 


NN 
NN 

NN 

NN 

NNNN 

NNNN 

NN  Nl 

NN  Nl 

NN 

NN 

NN 

NN 

NN 

NN 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLL 

LLLLL 
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N1LSU! 


"f  !LE"ID«>MLSL'E 


B  13 


NN     NN 

TTTTTTTTTT 

SSSSSSS"^ 

uu 

uu 

BBBBBBB8 

NN     NN 

TTTTTTI 

TTT 

ssssssss 

uu 

uu 

BBBBBB88 

NN      NN 

ss 

uu 

uu 

BB      BB 

NN      NN 

ss 

uu 

uu 

BB      BB 

NNNN    NN 

ss 

uu 

uu 

BB      BB 

NNNN    NN 

ss 

uu 

uu 

BB     BB 

NN  NN  NN 

ssssss 

uu 

uu 

BBBBBBBB 

NN  NN  NN 

ssssss 

uu 

uu 

BBBBBBBB 

NN    NNNN 

ss 

uu 

uu 

BB     66 

NN    NNNN 

ss 

uu 

uu 

BB     BB 

NN      NN 

ss 

uu 

uu 

BB     BB 

NN      NN 

ss 

uu 

uu 

BB     BB 

NN      NN 

LLLLLLLLLL 

ssssssss 

uuuuuuuuuu 

BBBBBBBB 

NN      NN 

LLLLLLLLLL 

ssssssss 

uuuuuuuuuu 

BBBBBBBB 

ssssssss 

tttittttt: 

ssssssss 

TT 

ariTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

NTLSUB  -  COMMON  SUBROUTINES 
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NTLSUB  CREATED  BY     MACRO     ON  29-JUM-85   AT   00:33 

SYMBOL    CROSS  REFERENCE 


SYMBOL      VALUE 


DFEXT 

D.DSP 

O.UCBL 

fILE 

FNERR 

FNPTR 

'O.WBT 

LDPWF 

M$$MGE 

NAMES 

Q.IGFM 

Q.IOPL 

R$$MPL 

R$$11M 

SLFNP 

TIGHT 

UC.P'JF 

U.CTL 

U.CW3 

U.SCB 

SAZFS 

SCBDSG 

SCFUIC 

SCLEVL 

SCLIOS 

SCUR.N 

SCXUIC 

1;C5TA 

$DFN 

SDFNAM 

lDfN2 

tDFUlC 

SFEATR 

SFNOUT 

SNLCDD 

SFRV.N 

SREP.C 

SREP.N 

SREP.P 

STIOUT 

$$$ARG 

$$$GL8 


000121   R 

i:     ****** 

00024  5  R 
000233  R 
000030 


GX 
GX 


; 00000 

000125 
000002 
OOOOU 


GX 
GX 


=  000000 
000^22 
000 JOO 

=  ****** 

r  ****** 
-  ****** 


R 

R 
GX 
GX 
GX 

******  GX 
0000'i2  RG 
******  GX 
000052  RG 
******  GX 
******  GX 
000216  RG 
000072  RG 
******  GX 
000000  RG 
000112  RG 
000002  RG 
000032  RG 
******   GX 
000270  RG 
000352  RG 
000224  RG 
000160  RG 
000230  RG 
000164  RG 
000302  RG 
000003 


REFERENCES 

#5-141 

12-366 

12-377 
#5-153 
#5-151 
#5-92 

5-87 

12-368 

5-98 
#5-146 

5-87 
*10-315 

5-61 

5-97 

7-221 
#5-87 

12-362 

12-362 
•12-376 

12-367 
#7-197 

9-293 
#5-113 

n-330 

9-291 
#9-281 
#5-125 

6-V8 
#6-169 
#5-136 
#6-171 
#5-97 

12-376 
#10-310 
#12-359 
#9-284 
#8-251 

9-283 
#8-254 
#10-314 
#5-87 

5-87 


7-215 


7-199 
10-311 
*7-219 


5-125 
11-337 

•10-316 
5-76 
5-113 
8-260 

•10-315 


6-174 
7-202 


9-282 

#9-286 

9-285 

5-87 


B  H 
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CREF        04.00 


7-224 
10-312 


12-357 


12-570 

5-124 

#11-329 

•10-516 


13-599 
12-557 

10-317 


7-208 


#5-87 


5-87 


#5-87 


5-87 


#5-87 


5-87 


5-87 


••FILE 

NN 

NN 

NN 

NN 

NNNN 

NNNN 

NN  NN 

NN  NN 

NN 

NN 

NN 

NN 

NN 

NN 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLLL 

LLLLLL 

NTLSOB 
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NTLTMP 


•F1LE»»ID««NILTMP 


B  15 


NN    m 

TTTTTTTTTT 

TTTTl 

TTTTT 

MM 

MM 

PPPPPPPP 

NN      NM 

TTTTTTI 

TTT 

TTTT 

TTTTT 

MM 

MM 

PPPPPPPP 

NN      NN 

MMMM 

MMMM 

PP      PP 

NN      NN 

MMMM 

MMMM 

PP      PP 

NNNN    NN 

MM  MM  MM 

PP      PP 

NNNN    NN 

MM  MM  MM 

PP      PP 

NN  NN  NN 

MM 

MM 

PPPPPPPP 

NN  NN  NN 

MM 

MM 

PPPPPPPP 

NN    NNNN 

MM 

MM 

PP 

NN    NNNN 

MM 

MM 

PP 

NN      NN 

MM 

MM 

PP 

NN      NN 

MM 

MM 

PP 

NN      NN 

LLLLLLLLLL 

MM 

MM 

PP 

NM      NN 

LLLLLLLLLL 

MM 

MM 

PP 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

NTLTMP 


A3: 
i,V 
43' 
A3( 
A3: 
A3( 
A3' 
AA( 
AA' 

aa; 

W 
AA' 
AA' 
iAi 
AA' 
AAi 
AA' 
A5' 
A5 
A5, 
A5 
A5. 
A5 
A5. 
A5 
A5 
^5 
A6 
A6 
A6 
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NTLTMP 
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A33 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
^.46 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
i59 
460 
461 
'.02 


SVfSPC  -  VERIFY  SPECIAL  OPERATOR 

SVFL.I  -  VERIFY  PRIMARY  TEMPLATE  (LEVEL  1) 

cNPUTS: 

R0=$fLAG1  BIT  CODE  FOR  THE  OPERATOR  (SVfSPC  ONLY) 

OUTPUTS: 

OPERATOR  BIT  SET  IN  SFLAGI 

ERROR  IF  OPERATOR  HAS  ALREADY  BEEN  SEEN  OR  IF  NOT  AT  LEVEL  1 


.ENA6L   LS6 


000562 

000562  030067  000000' 

000566  00^007 

000570  050067  000000' 

000574 

000574  026727  000032"  000034 

000602  001004 

000604 


000606 
000614 


SVFSPC: 


SVFLVl : 


BIT 
B^lE 
BIS 


RO, SFLAGI 

101S 

RO, SFLAGI 


IT  THIS  THE  FIRST  TIME  FOR  THIS  GUY? 

IF  NE,  NO 

INDICATE  OPERATOR  SEEN 


CMP     SSZPTR,#$SZPTR+2  ;  IS  THIS  THE  TOP  LEVEL? 
BNE     111$  ;  IF  NE,  NO 

RETURN  ;  (C-BIT  CLEAR) 


ERROR  CONDITIONS 

101$:   EMSGSR  82 
111$:   EMSGSR  83 

.DSA8L   LS8 


;  DUPLICATE  OPERATOR 

;  PRIMARY  TEMPLATE  OPERATOR 
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N'.SEv 

CREATED   B* 

MACRO     ON 

29-JUN-85  AT 

00:50 

C 

PAGE    1 

1 

SvISCl 

:R0SS  REFERENCE 

CREF        04. 

00 

SVMBOL 

VALUE 

REFERENCES 

A^OCB 

-    ......      GX 

12-A88 

BASE 

0001 7C  R 

#6-125 

*ll-452 

11-453 

12-501 

12-506 

14-635 

DBL<" 

000126  R 

#6-97 

10-376 

10-388 

10-391 

DBlk2 

OOO'AO  R 

6-97 

#6-100 

12-502 

DCB 

000150  R 

#6-102 

8-256 

'10-301 

13-541 

DEACB 

=   ......     GX 

17-7A5 

DE  VHD 

=    GX 

9-321 

13-593 

DNAME 

OOOOOA   R 

#6-81 

.10-371 

»10-372 

10-373 

DSUB'Jf 

000000  R 

#7-213 

11-445 

DJMMV 

000152  R 

#6-107 

8-278 

•10-380 

DvALL 

000636  R 

8-251 

#12-485 

DvDEA 

0OU16  R 

7-169 

7-170 

7-171 

7-172 

7-173 

7-174 

7-175 

#17-742 

Dv'E'*« 

001 52A  R 

7-156 

7-157 

7-158 

7-159 

7-160 

7-161 

7-162 

7-163 

7-164 

7-165 

7-166 

7-167 

7-168 

7-169 

7-170 

7-171 

7-172 

7-173 

7-17", 

7-175 

7-176 

7-177 

#16-699 

OVLBl 

000A76  R 

8-2A9 

#11-436 

DVS'*! 

000236  R 

8-2A5 

#10-368 

DVXtR 

00075A   R 

8-253 

#13-539 

D.DSP 

=    ......      GX 

•8-257 

9-330 

D.NAM 

=    ....»»      GX 

9-324 

*13-542 

D.PCB 

:    ......      GX 

"8-259 

D.JCB 

r     ......         GX 

8-261 

13-552 

•13-558 

D.JCBl 

-    ......      GX 

13-580 

D.UM" 

=    ..."•      GX 

9-333 

9-335 

13-544 

13-546 

ERPBuf 

C00017  R 

#6-89 

16-701 

ERRMSG 

:oooo7  R 

#6-87 

16-713 

EMB 

000156  R 

#6-112 

10-416 

MND 

000122  R 

8-243 

#9-319 

fMT4 

OOUOA  R 

7-157 

7-158 

7-159 

7-160 

#7-200 

FMTi,A 

00143A  R 

7-156 

7-167 

7-168 

7-177 

#7-201 

CM'6 

00U75  R 

7-161 

7-162 

.-163 

7-164 

7-166 

#7-202 

fM'g 

001516  R 

7-165 
#7-203 

7-169 

7-170 

7-171 

7-172 

7-173 

7-174 

7-175 

7-176 

-"M.4 

=  000000 

#7-157 

#7-158 

#7-159 

#7-160 

''M.i.A 

=  000000 

#7-156 

#7-167 

#7-168 

#7-177 

rw  t 

:=  000000 

#7-161 

#7-162 

#7-163 

#7.. 164 

#7-166 

fm!? 

=  000000 

#7-165 

#7-169 

#7-170 

#7-171 

#7-172 

#7-175 

#7-174 

#7-175 

/,'7-176 

'NDEA 

00U12  R 

7-166 

#17-741 

■^oj^: 

000166  R 

#6-120 

8-247 

•9-328 

10-381 

lENG'-^ 

000136  R 

#6-99 

»10-395 

10-406 

•11-453 

12-486 

.IB^G 

z    ......     GX 

11-448 

.$9.1 7 

:    ......     GX 

11-450 

.$B«»Z 

.    ......     GX 

11-450 

.IBJi 

=    ......      GX 

11-452 

npcf 

^  000000 

15-661 

00UA6  R 

7-156 

7-167 

7-168 

#18-764 

SEP'.Ji" 

001 A56  q 

7-177 

#18-767 

!<£C»i2 

001516  R 

18-766 

rf18-779 

REPv 

001600  R 

7-165 
#19-807 

7'  169 
19-809 

7-i70 

7-171 

7-172 

7-175 

7-174 

<'-175 

7-176 

PvAD 

001270  R 

13-556 

13-564 

#14-653 

sn"' 

8-265 

13-569 

13-585 

13-602 

NTlDEv 


CREATED  B*     MACRO     ON  29-JUN-85   AT   00:30 


rent:  nr  r 
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D     1 


ntlget 

-  GET  SEND/RECEIVE  DATA 

MACRO  V05.03b 

Saturday  2< 

Syrrool 

table 

alo:b  = 

«•••«*  GX 

<$$LDf= 

000000 

LS.F[)X=  ( 

ANSUtS 

0C0010R 

002 

<$$TPS= 

00007A 

LS.HDX= 

A$$ChK= 

000000 

LD$LP  = 

000000 

LS.LIN= 

A$$CP5= 

000000 

LO.CON 

000006 

LS.LMC= 

A$$PRI= 

000000 

LO.CSR 

000006 

LS.NTI= 

AStTRP-- 

000000 

LO.CTL 

OOOOU 

LS.ON  = 

t$$C<P= 

000000 

LO.LIN 

OOOOOA 

LS.0PT= 

C$$ORE= 

000^00 

LO.PAR 

000010 

L3.PR0= 

C$SRSH= 

177564 

LO.PRI 

000010 

LS.PWF= 

D$$BbG-- 

1775'i 

LO.SCR 

OOOOH 

LS.T0P= 

D$$1S<= 

GOOOCO 

LO.STA 

000015 

LS.UNF= 

Dt$Ll'= 

00000- 

LO.VCT 

000012 

LS.X25= 

D$$VNC= 

OOOOG 

LR.A3T 

000026 

LS.11D= 

OS$VNM= 

000000 

LR.CIR 

000002 

LX.CEX= 

ES$XPR= 

000000 

LR.CTL 

000004 

LX.l1N= 

FL.ECH= 

»♦•>♦»  GX 

LR.EFN 

000004 

LX.PRO= 

FL.TOP= 

.*.»..  GX 

LR.LIN 

000002 

L$$ASG= 

FL.WRN= 

♦»»♦••  GX 

LR.PRM 

000030 

L$$DRV= 

FMTO 

0001 36R 

002 

LR.PRG 

000002 

L$$P11= 

FM.O  - 

000000 

LR.STS 

000000 

L$$11R= 

F$$LVL= 

000001 

LR.TCB 

000002 

M$$CRe= 

GtSTPP= 

000000 

LR.UNT 

000005 

M$$CRX= 

GS$TSS= 

000000 

LS.AST= 

100000 

M$$FCS= 

G$$TTK= 

000000 

LS.CEX= 

000001 

M$$MGE= 

G$$klRD  = 

000000 

LS.CIR= 

000010 

M$$NET= 

IS$RAR= 

000000 

LS.CXO= 

010000 

M$$0VR= 

I$$RDN= 

000000 

LS.CX5= 

000400 

N$$ACC= 

K$$CNT= 

1775A6 

LS.DLM= 

004000 

N$$BUF= 

<$$CSR= 

1775A6 

LS.ECH= 

001000 

N$$LDV= 

.  AB5. 

000032 

000 

(RU,I,GBL,ABS,OVR) 

OOOA32 

001 

{RU,!,LCL,REL,COr^) 

DATA 

000140 

002 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

*♦♦  Assembler  statist  . 

s 
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work  tile  reads: 
Work  file  writes: 
Size  of  work  tile: 
Size  cf  core  pool : 
Operating  system: 


0 

0 

1230u  Words 

14440  Words 

RSX-11M/PLUS 


(  50  Pages) 
f  55  Pages) 


004000 
010000 
000C03 
000007 
004000 
000011 
000400 
000002 
040000 
002000 
020000 
000012 
004000 
000004 
000006 
000005 
000000 

oooooo 

000001 

oooooo 

000124 

oooooo 
oooooo 
oooooo 
oooooo 

0000" 
00000  I 
000001 
000001 


N$$MCP= 

000001 

V$$lTR= 

0010CO 

N$$MLL= 

000001 

X$$DBT= 

OOOOOO 

N$$MOV= 

000010 

$CFUIC= 

******  GX 

N$$NCT= 

000001 

$CRAVL= 

******  GX 

N$$PEM= 

00OOO1 

$CXllIC  = 

***»*«  GX 

PUTAST 

000320R 

$DFLiIC  = 

******  GX 

P$$P45= 

OOOOOO 

$ERR40 

000064R     002 

P$$WRD= 

OOOOOO 

$FLAGS= 

******  GX 

QASTT  = 

***<•«*  GX 

$FUNC  = 

******  GX 

Q$$OPT= 

000010 

$HEADR= 

******  GX 

RCVDAT 

OOOOOOR 

002  $LDUIC= 

******  GX 

RSX$0K= 

OOOOOO 

SNLGET 

000146RG 

RTSPC 

000234R 

SNLINI 

OOOOOORG 

R$$DER= 

OOOOOO 

SNLPUT 

000236RG 

R$$K11= 

000001 

SRERR  = 

******  GX 

R$$SN[)= 

OOOOOO 

$TTO  = 

******  GX 

R$$11M= 

oooooo 

$XBUF2= 

».»****  GX 

R.VX8A= 

000006 

$XLEN2= 

******  GX 

R.VXTN= 

00000? 

$XXBUF= 

******  GX 

SRSTD  = 

******  GX 

$XXINi= 

******  G-" 

S3$WR6= 

oooooo 

$XXLEN= 

******  GX 

s$$rsz= 

007600 

$$AST  i 

******  GX 

S.DABA= 

000006 

$$LRB 

000022RG    002 

S.DAEF= 

000010 

$$PRM  = 

******  GX 

S.DATN= 

000002 

$$TASK= 

******  GX 

T$$KM6= 

OOOOOO 

$$$OST= 

000012 

r$$MIN= 

oooooo 

$$$T1  = 

000006 

U.SCB  = 

*♦»***  GX 

.TTO   = 

******  GX 

SYtSTLGETlv2]L132,154]NTLGET/CR/-SP=Sr:[1,l]RSXMCM.SML/ML,[130,110]METLIB/ML,[130,10]RSXi'»ICM/PA: 


,[132,10]NTLGET 


NTLGET 
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NTLKMC  -  LOAD  KUC  MKRO- 
KMC  LOADER  (POWER  FAIL) 


?51 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

26? 

263 

264 

265 

266 

267 

268 

269 

270 

271  000036 

272 

273  000036 

274 

275  000042 

276  000042 
277 

278 

279  000046 

280  000052 
231  000054 

282  000060 

283  000064 
284 

285  000066 

286  000072 

287  000076 

288  000100 

289  000106 

290  000110 
000114 
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SKMCPF  -  RELOAD  ALL  MICRO-CODE  AFTER  A  POWER  FAILURE 

INPUTS: 

SNTLPT  =  ADDRESS  OF  NTL  CONTROL  DATA  BLOCK 

.CXXMC  IN  DATA  BIOCK  CONTAINS  ADDRESS  OF  FIRST  "LOAD  LIST 

BLOCK  (ZERO  'F  NONE  ALLOCATED) 
THE  KMC  "LOAD"  '1ST  IS  PROPERLY  UPDATED 
NO  REGISTER  SAVING  IS  NECESSARY 
FOR  "LOAD"  LIST  FORMAT,  SEE  THE  KMClL  ROUTINE 

OUTPUTS: 

THE  "LOAD"  LIST  IS  STEPPED  THROUGH,  AND,  FOR  EACH  NON-ZERO 
ENTRY,  THE  CORRESPONDING  KMC  13  LOADED  FROM  ITS  MICRO-fODE 
FILE. 


005067  000012' 


?91 
?92 

293  000116 

294  000122 

295  000124 
296 

297  000126 

298  000130 
299 

300  000136 

301  000142 
302 

303  000144 

304  0001 5C 

305  000154 

306  000156 

307  000160 


016700 
001405 

016703 
000427 

016700 

010203 
016367 
001435 
016311 
000404 

011367 
00142" 
011311 

005723 
C12767 

011367 
001007 

062703 
005367 
003370 
010205 
000756 


000012' 

000014' 

OOOOOOG 

OOOOOOG  000012' 
OOOOOOG 

000012' 

000007  000006' 
000000' 


C00010 
000006' 


C-BIT=SUCCESS/FA!LURE. 

kMCPF::.IF  DF,M$$MGE 

CLR  KMCMP1 

5$:      .IF  DF,R$$11M 

SUSTKS  35$ 
.ENDC 

MOV  KMCMP1,R0 

BEQ  10$ 

CALL  $MAPX 

MOV  KMCPN1,R3 

BR  23$ 

10$:    MOV  $N^LPT,R0 

CALL  $MPX 

MOV  R2,R3 

MOV  .CX,''MC(R3),KMCMP1 

BEQ  30$ 

MOV  .CXKMC(R3),(R1) 

BR  18$ 

15$:    MOV  ;R3),KMCMP1 

BEQ  30$ 

MOV  (R3),(rt1) 

18$:    TST  (R3)' 

MOV  *7,KMCDEV 

20$:    MOV  (R3),KMCNAM 

BNE  25$ 

23$:    ADD  #10, R5 

DEC  KMCDEV 

B6T  20$ 

I'lOV  R2,R3 

BR  15i 


;«-rHE  FOLLOWING  IS  MAPPED  CODE- 
;M-INDICATE  JUST  STARTING  SCAN 

;M-SWITCH  STACKS,  RETURN  TO  35$ 


M-RECOVER  MAPPING  OF  CURRENT  LIST 

M-BR  IF  JUST  STARTING 

M-MAP  TO  LIST 

M-POINT  TO  ENTRY  JUST  USED 

M-AND  SKIP  TO  NEXT  ENTRY 

M-GET   MAPPING   OF    NTL    DATA   BLOCK 

M-MAP   TO   IT 

M-POINT  AT  BEGINNING  OF  BLOCK 

M-SAVE  MAPPING  OF  FIRST  LIST 

M-BR  IF  NO  LISTS 

M-MAP  TO  FIRST  LIST 

M-PROCESS  LIST 

M-SAVE  MAPPING  OF  NEXT  LIST 
M-BR  IF  NO  NEXT  LIST 
M-MAP  TO  NEXT  LIST 

M-POINT  AT  FIRST  ENTRY  IN  LIST 
M-LIST  HOLDS  7  SLOTS 

M-SAVE  THE  DEVICE  NAME 
M-'^R  IF  SLOT  IS  NOT  EMPTY 

r -POINT  AT  NEXT  ENTRY  (4  WORDS/ENTRY) 

M-COUNT  SLOTS 

M-GO  CHE';k  THIS  SLOT 

M-POINT   AT   BEGINNING   AGAIN 

M-GO  GE1    NEXT   BLOCK    IN   LIST 


NTLKMC    -   LOAD  KMC    MICRO-CODE 
KMC   LOADER    (POWER    FAIL) 


0  ? 
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HM<K    -   LOAD  <MC  MKRO-CODE 
RAM  ERROR  PREFIX  SUB-FORM\TTER 

820 
821 
822 
823 
82A 
825 
826 
827 
828 
823 
830 
831 
832 
833 
83^ 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
545 

846  001372      010400 

847  001374     012702     OOOOOi 

848  001400 

849  001404     012701      000006' 

850  001410     112120 

851  001412     00137O 
853  001414     005300 

853  001416 

854  001422 

855  0C1426 

856  001432 

857  001436  016701  000016' 

858  001442  000416 


C  4 
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.SBTTL  RAM  ERROR  PREFIX  SUB-FORMATTER 

"-KMCRL1-  REPLACE  DEVICE  NAME,  CSR,  AND  AGRGUMEMT  VALUE  WHEN  FORMATTING 

THE  KMCRL1  ROUTINE  WILL  REPLACE  THE  FIRST  ASTERISK  IN  THE  PREFIX 
STRING  WITH  THE  DEVICE  NAME,  THE  SECOND  WITH  THE  KMC  CSR  ADDRESS, 
AND  THE  THIRD  WITH  THE  VALUE  OF  ARGUMENT  1.   THERE  MUST  BE 
AT  LEAST  3  ASTERISKS  IM  THE  PREFIX  STRING.   IT  WILL  NOT  LOOK  AT 
THE  SUFFIX  STRING. 


INPUTS: 


R3  =  ADDRESS  OF  MESSAGE  PREFIX  STRING 

R4  =  ADDRESS  OF  MESSAGE  BUFFER 

KMCDEV  CONTAINS  THE  ASCII  DEVICE  NAME,  ENDED  BY  NULL 

KM^CSR  CONTAINS  THE  KMC  CSR  ADDRESS 

KMCER1  CONTAINS  THE  THIRD  OCTAL  ARGUMENT 

OUTPUTS: 

RO,  Rl,  AND  R2  ARE  DESTROYED 

R3  =  ADDRESS  AFTER  END  OF  PREFIX  STRING  (AFTER  NUI  L) 

R4  =  ADDRESS  AT  END  OF  MESSAGE  (AT  NULL) 


KMCRLl: 


10$: 


016701   000002' 


.ENA6L 

LSB 

MOV 

R4,R0 

MOV 

*1,R2 

CALL 

50$ 

MOV 

#KMCDEV,R1 

MOVB 

(RI)+,(RO)t 

BNE 

10$ 

DEC 

RO 

CALL 

50$ 

MOV 

KriCCSR,R1 

CALL 

$C80MG 

CALL 

50$ 

MOV 

KMCER1,R1 

BR 

40$ 

PLACE  BUFFER  POINTER  IN  RO 

FOR  CALL  TO  $CBOMG  (NO  ZERO  SUPPRESS) 

MOVE  FROM  PREFIX  TO  BUFF,  NEXT  PAGE 

GET  ADDRESS  OF  DEVICE  NAME  STRING 

MOVE  IN  DEVICE  NAME 

BR  UNTIL  DONE 

GACK  UP  TO  NULL 

MOVE  FROM  PREFIX  TO  BUFF,  NEXT  PAGE 

GET  THE  CSR  ADDRESS  VALUE 

PLACE  ASCII  FORM  IN  BUFFER 

MOVE  FROM  PREFIX  TO  BUFF,  NEXT  PAGE 

GET  THE  RAM  ADDRESS  VALUE 

FINISH  UP,  NEXT  PAGE 


NTLKMC    -   LOAD  KMC   M'.CRC-CODE 
RAM  ERROR   SUFFIX    SUB-FORMATTER 
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NTLPRO   -   "SFT   PROCESS"  ROUTINJES  MACRO 
LOCAL    DATA 


C     5 
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153 

15i 

155  000020 

156 

157 

158  00002A 

159  000030 

TiO 


16'; 

165 
16b 
167 

168 
169 
170 
171 
172 
175 
17A 
175 
176 
177 
17ft 
179 

180  000032 

181  000036 

182  0000A2 
183 

IS*; 

185 

186  00C04A 

187  000050 

188  000054 
189 

190 
191 
•jr.o 

19i  000056 

194  000062 

195  000066 
196 

197 
105 

199 

200  000070 

201  000074 

202  000 100 
203 

204  000102 

205  000106 

206  000112 
207 

208  000114 

209  000120 


000032'  000000 


000044'  000000 
126404  046166 


000056'  000000 
126404  012404 


000070'  000000 
126230  076534 


000102'  000000 
125711   074646 


0001 14'  000000 
063357  1'0075 


0U0126'  OCOOOC 
063357  073470 


PBLK: 
PB'  K: 


PSYM: 
PVAl: 


.bIORD  VECSrM.O 

.if 

.WORD  SPRINCO 
.ENDC 

.8LKW  2 

.BLKJ  1 


NTLPRO 
SAlECL 

72: 
72. 

72' 
72( 
72: 

72! 


;  START  OF  PRC'-.SS  VECTOR  TABLE 

.IF  DF  R$$MPL 

VECSVM:  .WORD  VLNSYM.O 

VTSYM:   .BLKW  2 

VECVAL:  .WORD  0 

;  VECTOR  TABLE  SJZE  (WORDS) 

VLNSVM:  .WORD  SPRINCO 
VLSYM:   .BLKW   2 

VLNVAL:  .WORD  0 
.ENDC 

PROCE-,S  LIME  TABLE  SIZE 

$PRINC::.WORD   $PREXT,0 
.RAD50  "SSLlIN" 
$i''RLLN::.8LKW   1 

PROCESS  CONTROLLER  TABLE  SIZE 

tPREXT: :.W0RD   DTBLK.O 

.RAD50  "$$LCNT" 
SPRCLM: :.BLKW   1 


DCS  DISP/.rCH  TABLE  ADDRESS 


DT8LK 
DTS'M 
DTVAL 


.WORD  SQ8LK,0 
.RAD50  "SXXTBL' 
.BLKW   1 


FORK  AND  TIMER  BLOCKS  INITIALIZATION  INFORMA'.ONI  (FOR  AUX) 
SQBLK: 
$S(3SRV: 


MILBLK 
PR100M 
StCBLK 


.WORD 

.RAD50 

.BLKW 


MIL8LK,0 
"SSQSRV" 


.WORD 

.RAD50 

.8LK. 

.WORD 
.RAD5(. 


SECBLK.O 
"PR100M" 
1 

xe^Ki.o 

■■PRISC" 
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LOCAL  D^A 


NTLPRO 
Symbol 


NTLDRO  -  "SET  PROCESS"  ROUTIMES  MACRU  V05.03b  Saturday  29-Jun-85  00:51 
SAllCL  -  ALLOCATE  ECL  NODE  COUNTERS 

010165  ooooa 


Page  13-1 


723  001436 

72^  00V<A6 

725  OOU52 

726 

727  OOK54 

728 


000001 


40$: 
101J 


BIAS 

MOV 
RETURN 

EMSGSR 
.END 


R1 
R1,N$ENC+2(R5) 

70 


SET  CORRECT  APR  BIAS  FOR  ECL 
SET  END  Of  LIST  POINTER 


ELSE  ALLOCATION  FAILURE 


0  6 
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Symbol  table  
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NTLROO  -  NIL  ROOT    SEGMENT 
ECTORED   EXEC    TABLE 


69 

/O 

ooooco 

7? 

^^ 

7A 

/S 

M 

// 

/8 

^9 

80 

HI 

K^ 

H', 

000000 

84 

000000 

000000 

8S 

000002 

OOOOOOG 

His 

000004 

OOOOOOG 

Hf 

000006 

OOOOOOG 

as 

000010 

OOOOOOG 

89 

000C12 

0000006 

90 

oooou 

OOOOOOG 

91 

000016 

OOOOOOG 

9? 

'i', 

94 

9S 

9A 

9/ 

98 

99 

100 

101 

10^ 

10^ 

10A 

lOS 

lOft 

10/' 

108 

000020 

OOOOOOG 

109 

000022 

OOOOOOG 

110 

000024 

OOOOOOG 

m 

000026 

OOOOOOG 

11? 

000030 

OOOOOOG 

Il-i 

000032 

OOOOOOG 

1U 

000034 

OOOOOOG 

lis 

000036 

OOOOOOG 

llA 

000040 

OOOOOOG 

IV 

000042 

OOOOOOG 

11H 

000044 

OOOOOOG 

119 

000046 

OOOOOOG 

1?0 

000050 

OOOOOOG 

VI 

00005.' 

OOOOOOG 

:?? 

000054 

OOOOOOG 

1?, 

000056 

OOOOOOG 

1?4 

000060 

OOOOOOG 

Vb 

000062 

OOOOOOG 

C  7 
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.SBTTL  VECTORED  EXEC  TABLE 
.PSECT  $$$VEC,D 


—  VECTORED  EXEC  TABLE 

RSX-11M+  SYSTEMS  WILL  RESOLVE  THESE  S^'^IBOLS  WITH  THE  G'M  DIRECTIVE, 
RSX-11M  SYSTEMS  WILL  DEFINE  THESE  VALUES  AT  TASKBUILD  TIME  . 


VECTORED  RSX  EXEC  SYMBOLS 


SVECBG: 


.WORD 

SYSNM: 

:  $SYSNM 

TKPS:: 

$TKPS 

KSAR5: 

:  KISAR5 

KSAR6: 

:  KISAR6 

KSAR7: 

:  KISAR7 

DEUMR: 

:  SDEUMR 

EXRQN: 

:  SEXRQN 

.IF  OF 

NCPU:: 

$NCPU 

URMTB: 

:  SURMTB 

K6TAB: 

:  $K6TAB 

ICAVL: 

:  SICAVL 

UMRPT: 

:  SUMRPT 

ASUMR: 

:  SASUMR 

CTLST: 

:  SCTLST 

HFMSK: 

:  SHFMSK 

M100Q: 

:  SMIOOd 

CPMSK: 

:  SCPMSK 

CEX:: 

$CEX 

URMST: 

:  SURMST 

MPPRO: 

.-  IMPPRO 

.ENDC 

FMASK: 

:  SFMASK 

CLKHD: 

:  $CL<HD 

EXSIZ. 

:  $EXSIZ 

CRAVL. 

:  SCRAVL 

TINS:. 

STTNS 

SRSTD. 

:  SSRSTD 

QASTT 

:  SQASTT 

DEVHD 

:  SDEVHD 

DEACB 

:  SDEACS 

USAR7 

:  UISAR7 

USDR7 

:  UISDR7 

NONSI 

:  SNONSI 

DEACl 

:  IDEAC1 

LDPWF 

:  SLDPW"^ 

PARHD 

:  SPARMD 

=LGTH 

:  P.LGTH 

JS"RC 

:  UISARO 

KSARO 

:  .".ISARO 

VECTORED   TABLE    INIT   FLAG 


R$$MPL 


MLROO   - 
tSLIN  - 

706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 


NTi.  RQO   -  MIL   ROOT    SEGMENT 
■jf-rrnRFn  fxft  tari  f 
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NTLROO 
Air    -   T 


NlLROO  -  NTL  ROOT  SEGMENT 
$SLIN  -  SET  LINE 


C  8 
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706  0O0A46 

707  0004  52 

708  000454 

709  000460 

710  000462 

711  000466 
712 

004767 
103406 
005767 
00U02 
004  767 
000207 

OOOOOOG 
001266' 
OOOOOOG 

35$. 

50$: 

CALL    $TMP 
BCS     101$ 
TST     $$HT1M 
BEQ     50$ 
CALL    $ALTLC 
RETUR^J 

715 
714 
715 
716  000470 

;  ERROR 

CONDITTON 

000167 

OOOOOOG 

l01$: 

JMP     $XLIN 

SETUP  DDM  LINE  TABLE 

IF  CS,  FAILURE 

SET  UP  HELLO  AND  LISTEN  TIMERS? 

BR  IF  NO 

SAVE  HELLO  AND  LISTEN  TIMERS 


DO  A  PARTIAL  "CLEAR  LINE" 


NTlROC  -  NIL  RUOT  SEGJ^'-NT 

Air  -  TFST  FOR  M  RFADV  IN  CORE 
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NTLROO  CREATED   Bv     MACRO     OM  29-JUN-85    AT    00:32 

SVMBOL    CROSS  REfERENCE 


#r-669 


C     9 

PAGE    7 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

SSDSNM 

=    ****** 

GX 

6-208 

SSDBSZ 

-    ****** 

GX 

6-209 

$SLIN 

0005U 

R 

6-406 

$SLN 

000^44 

RG 

*6-319 

$SLTA 

000136 

RG 

#6-316 

SSLTMA 

r     ****** 

GX 

6-166 

SSLTNM 

-    ****** 

GX 

6-167 

SSMTSZ 

=   000464 

G 

#6-340 

SSPRO 

000070 

R 

6-405 

SSRSTD 

=   ****** 

GX 

5-113 

SSTMfC 

=   ****** 

GX 

6-201 

SSYSNM 

::     ****** 

GX 

5-85 

$TKPS 

=      ****** 

GX 

5-86 

STKTCB 

=     ****** 

GX 

'^-136 

STKIOO 

~      ****** 

GX 

5-156 

STMT 

-      ****** 

GX 

8-523 

STRIB 

001566 

RG 

#6-432 

STTNS 

~       ****** 

GX 

5-112 

$nscL 

r     ****** 

GX 

6-186 

snooc 

=     ****** 

GX 

6-185 

STIOOQ 

~     ****** 

GX 

6-184 

SURM 

000022 

RG 

#6-269 

SVECBG 

000000 

RG 

#5-83 

SVECLN 

=   000136 

G 

#6-215 

SXAVL 

-       ****** 

GX 

6-202 

SXBIAS 

~      ****** 

GX 

6-203 

$XBUF2 

001256 

RG 

#6-416 

$XFER 

~      ****** 

GX 

8-509 

$XLEM2 

001260 

RG 

#6-417 

$XMN 

=   ****** 

GX 

11-716 

SXPRO 

r    ****** 

GX 

8-564 

$X2HLD 

001212 

PG 

#6-339 

T.X2MBS 

001132 

RG 

#6-336 

$X2MRT 

001152 

RG 

#6-337 

$X2MWS 

001112 

RG 

#6-335 

$X2RET 

001172 

RG 

#6-338 

$X3CAL 

000120 

RG 

#6-306 

$X3CLR 

000122 

RC 

#6-307 

$X3DB5 

000110 

KG 

#6-302 

$X3DWS 

000114 

RG 

#6-304 

$X5MBS 

000112 

RG 

#6-303 

$X3MCL 

000130 

RG 

#6-310 

$X3MRE 

000132 

RG 

#6-311 

SX3MRS 

000134 

RG 

#6-312 

$X3MUS 

000116 

RG 

#6-305 

$X3RES 

000124 

RG 

#6-308 

$X3RST 

000126 

RG 

#6-309 

SZTIME 

-       ****** 

GX 

5-126 

$$APR 

000316 

RG 

#6-326 

SSAST 

000002 

RG 

#6-224 

$$CSR 

"00226 

RG 

#6-321 

JSDCHA 

00044,- 

RG 

#6-330 

14-825 


#8-505 


11-686 


6-215 
6-204 


11-677 


n-706 


14-828 


11-694 


14-8:i 


6-356 


NTLROO 


CREATED  BY     MACRO     ON  29-JUN-85   AT  00;32 
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SCEX   -   CHECK,   SET    SYS   REQUEST   BLOCK 
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^076 


2A' 

24A 

2A5 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

25d 

257 

258 

259 

260  000070 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273  000104 

274  000106 

275  000112 

276  000116 

277  000120 

278  000124 

279  000132 

280  000134 

281  000142 

282  000144 

283  000150 

284  000152 

285  000160 

286  000162 


.SBTTL   SCEX  -  CHECK  SET  SYS  REQUEST  BLOCK 

SCEX  -  CHECK  "SET  CEX"  REQUEST  BLOCK 

INPUTS: 

R3=REQUEST  BLOCK  POINTER 

.8LKW   1       ;  LR.8LK  -  NETLDR  DATA  BLOCK  ADDRESS 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

DATA  BLOCK  ADDRESS  STORED  IN  SNTLPT 

FL.CEX  SET  IN  SFLAGS 


052767  OOOOOOG  OOOOOOG  SCEX 
032777  OOOOOOG  OOOOOOG 


001025 

012700  OOOOOOG 

012701  000140 
005020 

032767     0C4000     000004G 

001404 

052767  OOOOOOG  OOOOOOG 

000407 

011367  OOOOOOG 

001004 

005004 


SCEX: 

BIS 

*FL.CEX,$FLAGS   ; 

BIT 

#FE.CEX,aFMAS<   ; 

.IF  DF 

R$$MPL 

MOV 

FMASK,RO 

ADD 

#6,R0 

BIT 

*F4.CXD,(R0) 

BEU 

1$ 

1$: 

EMSG$R 

85 

.EiNDC 

BNE 

10$ 

MOV 

#.HOME,RO 

MOV 

#<48.*2>,R1 

2$: 

CLR 

(R0)  + 

SOB 

R1,2$ 

BIT 

*LS.NTI,$$LRB+4  , 

BEQ 

5$ 

BIS 

*FL.NTI,$FLAGS   , 

BR 

20$ 

5$- 

MOV 

(R3),.H0ME 

BNE 

20$ 

EMSGSR 

91 

10$: 

CLR 

R4 

20$: 

RETURN 

SET  NETLDR  MODE 

IS  COMM  EXEC  ALREADY  LOADED? 


GET  $FMASK  ADDRESS 

$FMASKi6 

HAS  COMM  EXEC  BEEN  DEALLOCATED? 

BR  IF  NO 

ELSE  CAN'T  LOAD  COMM  EXEC 


IF  NE,  YES 

ZERO  THE  NTINIT  PARAMETERS 
WHICH  ARE  SITTING  IN  $$DCMA+4 
FOR  A  LENGTH  OF  48.  DOUBLEWORDS 

PERFORM'nTINIT    SETUP  ALSO   ? 

IF  EQ,  NO 

UPDATE  GLOBAL  STATUS 

NTL  FINDS  HOrr  BLOCK  IN  THIS  CASE 

SAVE  DATA  BLOCK  ADDRESS 

IF  NE,  NO  PROBLEM 

NO  DATA  BLOCK  ADDRESS  (NTINIT  PROBLEM) 

NO  WORK  TO  DO  I 


NTLRQB  -   PARSE    REQUEST   BLOCK 
rpyi  n  -  ruFrit    that   roMM  fxfc 


D  10 
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NTLRQB  -  PARSE  REQUEST  BLOCK    MACRO  V05.03b  Saturday  29-Jur -85  00:^2 
CPRO  -  CHECK  CLEAR  PROCESS  REQUEST  BLOCK 
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7i,?   001710 

126204 

000001 G 

CMP8 

748  0017K 

103546 

BHI3 

7A9  001716 

005062 

OOOOOOG 

CLR 

750  001722 

005062 

OOOOOOG 

CLR 

751  001726 

80$; 

RETURN 

752  0C1730 

005701 

90$: 

TST 

753  001732 

001403 

BEU 

75A  001734 

EMSG$R 

755  001742 

010001 

95$: 

MOV 

756  0017A4 

001442 

BEQ 

757  001746 

EMSG$R 

758 

759 

760  001754 

012701 

000003 

100$: 

MOV 

761  001760 

032767 

OOOOOOG  OOOOOOG 

BIT 

762  001766 

001002 

BNE 

763  001770 

062701 

177777 

ADD 

764  001774 

017702 

OOOOOOG 

110$: 

MOV 

765 

766  002000 

017703 

OOOOOOG 

MOV 

767  002004 

001421 

BEQ 

768  002006 

012246 

120$: 

MOV 

769  002010 

062716 

000000 

ADD 

770  002014 

032736 

040000 

BIT 

771  002020 

001411 

BEO 

772  002022 

016246 

177776 

MOV 

773  002026 

060116 

ADD 

774  002030 

123667 

000126' 

CMPB 

775  002034 

001003 

BNE 

776  002036 

EMSG$ 

777   002044 

130$: 

SOB 

778  002050 

005400 

140$: 

NEG 

779  002052 

150$: 

RETURN 

D.UNIT+1(R2),R4 

•  ALL  UNITS  CHECKED? 

60$ 

♦  If  HIS,  NO 

D.DSP{R2) 

*  MARK  DEVICE  "UNLOADED 

D.PCB(R2) 

* 

*  BACK  TO  USER  MODE 

Rl 

WERE  ANV  UNITS  BUSY? 

95$ 

IF  EQ,  NO 

17 

DEVICE  BUSV 

R0.R1 

ANY  UNITS  MOUNTED? 

156$ 

IF  EQ,  NO 

Z4 

DEVICE  STILL  MOUNTED 

*L.DLC,R1 

*FL.DLC,$FLAGS 

110$ 

#L.DDM-L.0LC,R1 

aSLrMA,R2 

aSLTNM,R3 

140$ 

(R2)+,-(SP) 

*L.FLG,(SP) 

*LF.RDY,a(SP)+ 

130$ 

-2(R2),-<5P) 

R1,(SP) 

a;sp)*-,PDvx 

130$ 
75 

R3,120$ 
RO 


ASSUME  DLC 

IS  IT  A  DLC? 

IF  NE,  YES 

IT'S  A  DDM 

GET  SLT  MAPPING  TABLE  ADDRESS 

AND  NUMBER  OF  SYSTEM  LINES 

IF  ZERO,  NONE  TO  CHECK 

GET  FLAGS  WORD  ADDRESS  ON  STACK 

IS  THIs'lINE  STILL  READY  ? 

IF  EQ,  NO 

GET  SLT  ADDRESS  ON  STACK 

ADD  INDEX  POINTER 

DOES  THIS  LINE  REFERENCE  OUR  PROCESS? 

IF  NE,  NO 

LINE  STILL  READY  (SETS  RO  NON-ZERO) 

LOOP  <SYSTEM  LINE  COUNT>  TIMES 

SET  C-8IT  IF  ERROR  OCCURRED 
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r      >,Aur       AO.rs      niAhihlCI        MiiMDCD 


NTLSU' 


12^6 
12^7 

12A8 

12^9 

1250 

1251 

1252 

1255 

125A 

i;35 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

126'. 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 


003422 
003424 
003430 
003432 
003436 
003440 
003442 
003446 
003452 
003456 
003460 
003462 
003464 
003466 
003470 
003474 
003476 
003500 
003504 
003506 
003510 
003512 
003516 
003522 
003526 
003530 


010146 

112314 
122724 
001374 
010400 
112740 
016701 
062701 
162601 
001423 
005401 
006201 
005002 

010004 
112314 
122724 
001374 
010400 
005300 
0i6701 
016101 

010004 


.SBTTL  REP7A  -  REPLACE  REQUESTING  TASK'S  NAME  AND  CHANNEL  NUMBER 


REf7A  -  REPLACE  REQUESTING  TASK'S  NAME  AND  CHANNEL  NUMBER 

INPUTS: 

$$TASK=REQUESTING  TASK'S  ,\AME 
RI^MAPPING  TABLE  (WITHIN  PDV)  ADDRESS 
R3-F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 

OUTPUTS: 

R0,R1,R2=DESTROYED 
R3,fi4=UPDATED 


000052 


000060 

OOOOOOG 

000002G 


REP7A: 
10$: 


000052 


OOOOOOG 
OOOOOOG 


15S: 


20$: 


MOV 

CALL 

MOVB 

CMPS 

BNE 

MOV 

MOVB 

MOV 

ADD 

SUB 

BEQ 

NEG 

ASR 

CLR 

CALL 

MOV 

MOVB 

CMPB 

BNE 

MOV 

DEC 

MOV 

MOV 

CALL 

MOV 

RETURN 


R1,-(SP) 

REP7 

(R3)t,(R4) 

#'»,(R4)t 

10$ 

R4,R0 

*'0,-(R0) 

$PDVA,R1 

#Z.MAP+2,R1 

(SP)t,R1 

20$ 

R1 

R1 

R2 

$C80MG 

R0,R4 

(R3)+,(R4) 

#'*,(R4)t 

15$ 

R4,R0 

RO 

$PDVA,R1 

Z.NAM(R1),R1 

$':5TA 

R0,R4 


SAVE  CHANNEL  TABLE  POINTER 
REPLACE  REQUESTING  TASK'S  NAME 
LOOK  FOR  THE  ASTERISK 


COPY  BUFFER  ADDRESS 

SKIP  THE  ASTERISK 

GET  PDV  ADDRESS 

POINT  AT  MAPPING  TABLE 

LESS  INPUT  VALUE 

IF  EQ,  NO  WORK  TO  Du 

CONVERT  BACK  TO  A  POSITIVE  NUMBER 

AND  TO  A  BYTE  INDEX 

SUPPRESS  LEADING  ZEROES 

CONVERT  TO  OCTAL 

SET  NEW  BUFFER  ADPr  _SS 

LOOK  FOR  THE  SECOND  ASTERISK 


COPY  BUFFER  ADDRESS 

BACK  UP  OVER  ASTERISK 

GET  PDV  ADDRESS 

GET  PROCESS  NAME 

CONVERT  TO  ASCII 

SET  NEW  BUFFER  ADDRESS 


NTLRQB  -  PARSE  REQUEST  BLOCK 

ncu?     _     DCDI    Arc     DFH!  IPQT  I  Mr.     TA^tf 
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NTL5UB  -  COMMON  SUBROUTINES 


1 
2 
3 

5 
6 

7 

8 
9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
A1 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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.TITLE  NTLSUB  -  COMMON  SUBROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  UTILITY  SUBROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl .0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  O^-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-35 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl  .0 


NTL5UE 

MACRO 

MACRO 

ALUNS^ 

CALL 

DIRt 

OFFS 

QDPB$ 

QIOWS 

QIOWS! 

RETUR^ 

SWST<] 


NILSuB  -  COMMON  SUBROUTINES 
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•FIL! 


NTLSUB  CREATED  BV 

MACRO   CROSS   REFERENCE 


MACRO     ON  29-JUN-85   AT   00:33 


c  u 

PAGE   2 

CREF        04.00 


NTL TMP 


MACRO   NAME 

REFERENCES 

ALUNSS 

#5-59 

CALL 

6-175 

6-178 

DIR$ 

#5-59 

10-31 

OFF$ 

#5-87 

QDPBS 

#5-87 

5-87 

QlOUt 

#5-59 

5-87 

QIOWSS 

#5-59 

RETURN 

6-183 

7-226 

SWST<$ 

12-360 

7-221 


8-264 


8-260 


9-297 


''-282 


10-318 


9-285 


11-338 


9-293 


12-381 


12-360 


12-368 


♦FILE«MD"NTLSYM 


D  U 


NTLTMF 
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00:34 


1 
2 
5 

5 

6 

7 

8 

9 
10 
11 
12 
13 
u 

15 
16 
17 
18 
19 
23 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
57 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TIILE  NTLTMP  -  TEMPLATE  PROCESSIMG 
.IDEM   /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  Bt 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  3E  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAIIABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  FILE  PROCES.'ING  MAIN  CONTROL  LOOP 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Pljs  V3.0 
OECnet-Micro/RSX  VI. 0 
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MTLTMD  -   TEMPLATE   PROCESSING         MACRO  V05.03b   Sarurday  29-Jun-85 


00 1 « 
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46A 
'.65 
^.66 
A67 
468 
469 
470 
471 
472 
475 
474 
475 
476 
4  77 

478  000622 

479  000622 

480  000626 

481  000632 

482  000634 

483  000636 

484  000636 

485  000644 

486  000646 

487  000646 

488  000654 

489  000660 

490  000664 

491  000666 

492  000672 

493  000674 

494  000676 

495  000700 

496  000702 

497  000704 

498  000706 

499  000710 

500  000712 

501  0007U 

502  000716 

503  000720 

504  000722 

505  000724 

506  000726 

507  000732 

508  000734 

509  000736 

510  000742 

511  000744 

512  000746 

513  000750 

514  C00752 
515 

516 
517 
518 
519 


$TERR  • 

STWARM 

INPUTS: 


PRINT  ERROR  MESSAGE 
-  PRINT  WARNING  MESSAGE 


RO=ERROR  MESSAGE  BLOCK  ADDRESS 

OUTPUTS: 

C-8IT=SET 
R0,R1=DESTR0VED 


012701 
005767 
100412 
000445 

052767 
001366 

052767 
012701 

010003 
012704 
112124 
001376 
005504 
012505 

105715 
001403 
112524 
001576 
005304 
012505 
112524 
001576 
005504 
012700 
010401 
160001 

005705 
001401 

000261 


000001 


000472' 

000000  : 


STWARN: 


OOOOOOG  OOOOOOG 


$TWE: 


100000  000000' 
000507' 


tTERR: 


000561' 


10$: 


20$: 


30$: 


4C'?: 
50$: 


000554' 


60$: 


.ENA8L  LS8 


MOV 
TST 
BMI 
BR 

BIT 
BNE 

BIS 

MOV 

CALL 

MOV 

MOV 

MOVe 

BNE 

DEC 

MOV 

CALL 

TSTB 

BEQ 

MOVB 

BNE 

DEC 

MOV 

MOVB 

BNE 

DEC 

MOV 

MOV 

SUB 

CALL 

TST 

BEQ 

CALL 

SEC 

RETURN 


*WPFX,R1 
$FLAGS 
10$ 
60$ 

*FL.LLC,$FLAGS 
STWARN 

*F1.ERR,$FLAG1 

*EPFX,Rl 

$SAVAL 

R0,R5 

*ERRBUF,R4 

(Rl)+,(R4)t 

20$ 

R4 

(R5)+,R5 

a(R5)+ 

(R3) 

40$ 

(fi5)+,(R4)t 

30$ 

R4 

(R5)+,R3 

(R5)*,(R4)* 

50$ 

R4 

OERRMSG.RO 

R4,R1 

RO.RI 

$TIOUT 

R5 

60$ 

(R3) 


.DSA81   LS8 


.END 


SET  PREFIX  ADDRESS 

ARE  WARNING  MESSAGES  ENABLED? 

IF  MI,  VES 

ELSE  JUST  EXIT  WITH  C-BIT  SET 

WARNING  IF  LLC 
FATAL  IF  DDM  OR  DLC 

INDICATE  ERROR  HAS  OCCURRED 

SET  PREFIX  ADDRESS 

SAVE  ALL  REGISTERS 

copy  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

COPY  THE  PREFIX 

SKIP  THE'ZERO  BYTE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  YES 

ELSE  COPY  RrST  OF  FORMAT  STRING 

SKIP  the'zero  byte 

GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  the'zero  byte 

GET  ERROR  MESSAGE  ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT  IT 

SHOULD  SECOND  LINE  BE  PRINTED? 

IF  EQ,  NO 

PRINT  SECOND  ERROR  MESSAGE  LINE 

RETURN  C-BIT  SET 
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\TlDE'.  created   Bv     macro     on  29-JUN-85  AT   00:30 

ixIBOL    CROSS  REFERENCE 


SVMBOL  VALUE 

R$$'lM  =  000000 

S^hD  =   .♦»««»     GX 
STBE'T  000000  R 

SSSBAS  =   •••♦•• 


TABEND 

TSSNMD 

UNITS 

U.DCS 

U.RED 

U.5CB 

VAD 

SAZFS 

SCATS 

SCLDES 

SClIOS 

SCLOPE 

SCUR.N 

$C5TA 

ID'^N2 

SERRJA 

SERR2B 

tERR2C 

$ERR2D 

$ERR2E 

$ERR2F 

$ERR2h 

$ERR2j 

$ERR2k 

$ERR2L 

tERR2M 

$ERR2N 

$ERR2P 

$ERR2Q 

$ERR2R 

$ERR2S 

$ERR2T 

$ERR2U 

$ERR2V 

$ERR2W 

$ERR2X 

$ERR2y 

SFNDEQ 

SFNOUT 

SIOSB 

tLBUF 

$LLEN 

SNAME 

SNlCDD 


000174    R 
000172  R 


001300 


000176 

000220    , 

000256  R 

0003U  R 

000342  R 

000370  R 

000426  R 

000456 

000530 

000572 

000626 

000664 

000700  .. 

000736  R 

000772  R 

001044 

001074 

001146 

001220 

001250 

001322 

C01362 

001436 

-      ♦♦**♦* 
z:     ♦  t***  * 


GX 

R 
GX 
GX 
GX 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

R 

R 


R 

R 

R 

R 

R 

R 

R 

R 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

6-72 

13-574 
#6-76 

7-156 

7-160 

7-165 

7-169 

7-174 
#6-135 

11-448 
#6-130 
»13-566 
•13-567 

13-560 

13-553 

10-387 

10-375 

7-165 

11-441 

11-440 

7-163 

18-774 

10-370 
#7-156 

6-112 

6-113 

6-114 

6-115 
#7-16; 
#7-162 
#7-163 
#7-164 
#7-165 
#7-166 
#7-167 
#7-168 
#7-169 
#7-170 
#7-171 
#7-172 
#7-173 
#7-174 
#7-175 
#7-176 
#7-177 

7-162 

7-157 

11-462 

14-634 
•12-497 

10-368 

8-272 


10-386 
7-156 
7-161 
7-165 
7-170 
7-174 
♦12-500 

8-260 


♦13-568 
13-561 
11-439 

8-255 
11-462 

7-166 
18-787 

10-396 
#7-157 
#7-158 
#7-159 
#7-160 
11-460 
11-461 
11-463 
11-464 
12-513 
13-611 
10-404 
10-408 
9-346 
13-613 
13-616 
13-617 
13-618 
13-621 
13-622 
9-345 
8-279 
7-163 
7-158 
13-610 
14-638 
17-744 
18-773 


7-157 
7-161 
7-166 
7-170 
7-175 
14-640 

♦9-339 


13-581 


17-742 
13-610 


18-789 


13-612 
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7-157 
7-162 
7-166 
7-171 
7-175 


♦13-550 


#14-635 


17-748 


7-158 
7-162 
7-167 
7-171 
7-176 


7-158 
7-163 
7-167 
7--172 
7-176 


7-159 
7-163 
7-168 
7-172 
7-177 


7-159 
7-164 
7-168 
7-173 
7-177 


7-160 
7-164 
7-169 
7-173 


7-164  #17-747 

7-159  7-160 

17-743 


7-161 


17-741 


17-747 


mldev 


CREATtu  ai     MACRO     ON  29-JUN-85   AT   00:30 


nc  r  c:  nrr  nr  c 
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NTLGET     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:31 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


REFERENCES 


ALOCB 

=  »«»*»*   GX 

■y-234 

ANSWER 

000010  R 

#5-86 

•L.ECH 

=  «*»♦««  GX 

6-143 

■L.TOP 

=  .«»*«*  GX 

6-143 

■L.WRN 

=  ♦,♦»»,  GX 

6-143 

-MTO 

000136  R 

5-99 

■M.O 

=  0^0000 

#5-99 

I$$AS 

=  ****** 

5-62 

LO.CON 

000006 

#5-60 

.O.CSR 

000006 

#5-60 

LO.CTL 

OOOOU 

#5-60 

LO.LIN 

000004 

#5-60 

LO.PAR 

000010 

#5-60 

LO.PRl 

000010 

#5-60 

LO.SCR 

0000  u 

#5-60 

LO.STA 

000015 

#5-60 

LO.VCT 

000012 

#5-60 

LR.AST 

000026 

#5-60 

LR.CIR 

000002 

#5-60 

LR.CTL 

OOOOOA 

#5-60 

LR.EFN 

OOOOOA 

#5-60 

LR.LIN 

000002 

#5-60 

LR.PRM 

000030 

#5-60 

LR.PRO 

000002 

#5-60 

LR.5TS 

000000 

#5-60 

LR.TCB 

000002 

#5-60 

LR.UNT 

000005 

#5-60 

LS.AST 

=  100000 

#5-60 

LS.CEX 

=  000001 

#5-60 

LS.CIR 

=  000010 

#5-60 

LS.CXO 

=  010000 

#5-60 

LS.CX5 

=:  000<i00 

#5-60 

LS.DLM 

=  OOAOOO 

#5-60 

L5.ECH 

=  001000 

#5-60 

LS.fDX 

=  004000 

#5-60 

LS.HDX 

=  010000 

#5-60 

LS.LIN 

=  000003 

#5-60 

LS.LMC 

=  000007 

#5-60 

LS.NTI 

=  004000 

#5-60 

LS.ON 

=  000011 

#5-60 

LS.OPT 

=  00040C 

#5-60 

LS.PRO 

=  000002 

#5-60 

LS.PWF 

=  040000 

#5-60 

LS.TO? 

=  002000 

#5-60 

LS.UNF 

=  020000 

#5-60 

L5.X25 

=  000012 

#5-60 

LS.IID 

=  004000 

#5-60 

LX.CEX 

=   000004 

#5-60 

LX.LIN 

=  000006 

#5-60 

LX.PRO 

=  000005 

#5-60 

N$$\/fT 

=      ****** 

9-236 

PUTAST 

000320  R 

8-197 

»8-200 
7-179 
7-179 
7-179 

#5-109 

7-172 


-201 


8-194 
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8-208 


9-225 


7-176 


7-177 


7-174 


#9-227 


NTLGET 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:31 
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KMC  LOADER  (POWER  FAIL) 
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309 

310 

311 

312 

313 

3K 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

J42 

343 

344 

345 


000162  016367  000002  000002'  25$: 
000170  116367  000003  000004' 
0C0176  010367  000014' 


0002"2 
000202 


000204  005767  000012' 

000210  001407 

000212  016700  000000' 


30$: 


35$: 


MOV 

MDV8 

MOV 

.IF 

RETURN 

.IFF 

CALL 

.ENDC 

TST 
BEQ 
MOV 


.IF  DF  R$$MPL 


2(R3),KMCCSR 
3(R3),KMCNUM 
R3,KMCPN1 

DF,fi$$11M 


a(SP)+ 


KMCMP1 

40$ 

KMCNAM.RO 


36$: 


37$: 

38$: 
39$: 


TSTS 
BEQ 

MOV 

MOV 

CMP8 

BNE 

M0V8 

ADD 

MOV 

CMP 

BEn 

SD8 
BR 

MOV 
MOV 


$NCPU 
39$ 

$SLTMA,R1 
$SLTNM,R3 

(R1)+,R2 

KMCNUM,L.CTL(R2) 

37$ 

L.DDM(R2),R4 

$PDVTA,R4 

{R4),R4 

R0,Z.NAM(R4) 

38i 

R3,36$ 

101$ 

.KReA(R2),R2 
K.URM(R2),$IJRM 


346 
347 
343 

.ENDC 

000216 

01670;.  000002' 

MOV 

KMCCSR,R4 

349 

000222 

CALL 

KMCLD 

350 

000226 

000705 

BR 

5$ 

351 

352 
353 
354 

.IFF 

MOV 

$NTLPT,R3 

^55 

ADD 

#.CXKMC,R3 

356 

357 

5$: 

MOV 

(R3),R3 

358 
359 

u 

40$ 

R3,R1 

(Rl)t 

360 

TST 

361 
362 
363 

MOV 

#7,R2 

10$: 

MOV 

fR1)+,R0 

364 

BEQ 

20$ 

365 

MOV 

(Rl)t,R4 

M-SAVE  THE  DEVICE  CSR  ADDRESS 
M--SAVE  THE  CONTROLLER  NUMBER 
M-SAVE  THE  POINTER  TO  THE  ENTRY 


;M-RETURN  TO  NORMAL  AT  35$ 
;M-RESTORE  MAPPING  VIA  $HAPX 


M-DID  WE  CO/IE  TO  THE  END  YET? 

M-BR  IF  YES 

M-GET  THE  DCVICE  mAME  (RAD50) 


Mt  IS  THIS  A  MULTI-PROCESSOR  SYSTEM 

Mt  IF  EQ,  NO 

M+  GET  THE  SLT  TABLE  ADDRESS 

M+  AND  THE  NUMBER  OF  TABLE  ENTRIES 


M+  GET  THE  NEXT  ENTRY 

M+  IS  THIS  THE  RIGHT  CONTROLLER  ? 

M+  IF  NE,  NO 

M+  GET  THE  DDM  PDV  INDEX 

M+  GET  ADDRESS  OF  PDV  ENTRY 

M+  POINT  TO  ENTRY 

M+  IS  THIS  THE  RIGHT  ENTRY  ? 

M+  IF  EQ,  YES 

M+  LOOP  <$SLTNM>  TIMES 

M+  CAN'T  FIND  UNIBUS  RUN  MASK 

M+  GET  THE  KRB  ADDRESS 

M+  PICK  UP  THE  UNIBUS  RUN  MASK 

M+ 


;M-GET  THE  DEVICE  CSR 
;M-LOAD  THE  KMC 
;H-CHECK  NEXT  LIST  ENTRY 

;*-THE  FOLLOWING  IS  UNMAPPED  CODE-* 

;U-GET  POINTER  TO  NTL  DATA  BLOCK 
;U-POINT  AT  LIN  TO  FIRST  LIST  BLOCK 

;U-GET  POINTER  TO  LIST  BLOCK 
;U-BR  IF  NO  MORE  BLOCKS 
;U-CaPY  POINTER  TO  BLOCK 
;U-5ET  POINTER  TO  FIRST  ENTRY 
■U-TUFBE  ARE  7  ENTRIES  PER  BLOCK 

;U-GET  DEVICE  NAME 
;U-BR  IF  F;1PTY  SLOT 
;U-GET  CSR  ADDRESS 


NTLKMC  -  LOAD  KMC  MICRO-CODE 
KMC  LOADER  (POWER  FAIL) 
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NTLtcMC  -  LOAD  KMC  MICRO-CODE 
RAM  ERROR  SUFFIX  SUB-FORMATTER 


860 
861 
862 
863 
86^. 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 

882  0014A4 

883  00H46 

884  001450 

885  001454 

886  001460 

887  001464 

888  001470 

889  001474 
890 

891  001500 

892  001504 

893  001506 

894  001 51 C 

895  001512 

896  001514 
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.SBTTL  RAM  ERROR  SUFFIX  SUB-FORMATTER 


-KMCRL2-  REPLACE  WITH  ARGUMENTS  2  AND  3  WHEN  FORMATTING 

THE  KHCRL2  ROUTINE  WILL  REPLACE  THE  FIRST  ASTERISK  IN  THE  SUFFIX 
STRING  WITH  '.HE  VALUE  IN  ARGUMENT  2,  AND  THE  SECOND  WITH  THE  VALUE 
IN  ARGUMENT  3.   THERE  MUST  BE  AT  LEAST  I'.IO  ASTERISKS  IN  THE  SUFFIX 
STRING.   IT  WILL  NOT  LOOK  AT  THE  PREFIX  STRING. 

INPUTS: 

R4  =  ADDRESS  OF  MESSAGE  BUFFER 
R5  =  ADDRESS  OF  MESSAGE  SUFFIX  STRING 
KMCER2  CONTAINS  THE  VALUE  OF  ARGUMENT  2 
KMCER3  CONTAINS  THE  VALUE  OF  ARGUMENT  3 

OUTPUTS: 

RO,  R1,  AND  R2  ARE  DESTROYED 

R3  =  ADDRESS  AFTER  END  OF  SUFFIX  STRING  (AFTER  NULL) 

R4  =  ADDRESS  AT  END  OF  MESSAGE  (AT  NULL) 


010503 
010400 
012702 


KMCRL2: 


000001 


016701  000020' 


016701  000022' 


897 
898 
899 
900 

901  001516 

902  001520 

903  001524 

904  001526 

905  001530 
906 

907 


112320 
001376 
005300 
010004 


122720  000052 

001374 

005300 


40$: 
45$: 


MOV 

MOV 

MOV 

CALL 

rtOV 

CALL 

CALL 

MOV 

CALL 

M0V8 

BNE 

DEC 

MOV 

RETURN 


R5,R3 

R4,R0 

#1,R2 

50$ 

KMCER2,R1 

$CBOMG 

50$ 

KMCER3,R1 

$C80MG 

(fi3)+,(R0)< 

45$ 

RO 

R0,R4 


PLACE  SUFFIX  POINTER  IN  R3 
PLACE  BUFFER  POINTER  IN  RO 
FOR  $CBOMG,  NO  ZERO  SUPPRESS 
MOVE  FROM  SUFFIX  TO  BUFFER 
GET  VALUE  OF  ARGUMENT  2 
PLACE  IN  BUFFER 
MOVE  FROM  SUFFIX  TO  BUFFER 
GET  VALUE  OF  ARGUMENT  3 

PLACE  VALUE  IN  BUFFER 
FINISH  MOVING  TO  BUFFER 
UNTIL  FINISHED 
BACK  UP  TO  NULL 
PLACE  VALUE  BACK  IN  R4 


MOVE  TO  BUFFER  UNTIL  ASTERISK  ENCOUNTERED 


50$: 


MOVB 

CMPB 

BNE 

DEC 

RETURN 


(R3)t,(R0) 

#'*,(R0)+ 

50$ 

RO 


MOVE  IN  A  BYTE 

WAS  IT  AN  ASTERISK? 

BE  IF  NO 

BACK  UP  OVER  AS^^RISK 

FOUND  IT 


.DS48L  LS8 


NTLKMC  -  LOAD  KMC  MICRO-CODE 
RAM  ERROR  SUFFIX  SUB-FORMATTER 


MACRO  V05.03b  Saturday  29-Jun-85  00:31  Page  22 


E0:^31 


D  5 

NTLPRO  -  "SET  PROCESS"  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00:M 
LOCAL  DATA 

PR1SC:   .BLKW   1 
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210  000124 

211 

212 

213 

21A 

215  000126 

000140' 

300000 

216  000132 

124473 

007544 

217  000136 

000000 

218  000140 

000152' 

300000 

219  000144 

124473 

006654 

220  000150 

000000 

221  00C152 

000000 

000000 

222  000156 

126344 

035115 

223  000162 

000000 

224 

225 

226 

227 

228  000164 

OOOOOOG 

229  000166 

OOOOOOG 

230  000170 

OOOOOOG 

231  000172 

OOOOOOG 

232 

233 

234 

235 

236  000174 

OOOOOOG 

237  000176 

000101 

238  000200 

OOOOOOG 

239  000202 

OOOOOOG 

240  000204 

OOOOOOG 

241  000206 

OOOOOOG 

242  000210 

OOOOOOG 

243  000212 

OOOOOOG 

244  000214 

OOOOOOG 

245  000216 

OOOOOOG 

246  000220 

OOOOOOG 

247  000222 

OOOOOOG 

248  000224 

OOOOOOG 

249  000226 

OOOOOOG 

250  000230 

OOOOOOG 

251  000232 

OOOOOOG 

252  000234 

OOOOOOG 

253 

254  OOOOOG 

•  COMM  EXEC  SYMBOLS  USE 

XBLK1:   .WORD 

XBLK2.0 

.RAD50 

"$CC8RT 

.WORD 

0 

XBLK2:   .WORD 

XBL<3,0 

.RAD50 

"ICCBGT 

.WORD 

0 

XBLK3:   .WORD 

0.0 

.RAD50 

"iZTIME 

.WORD 

0 

■  SYMBOL  TABLE 

ERRORS 

ETAB1:   .WORD 

$ERR44 

.WORD 

$ERR4  5 

.WORD 

$ERR46 

.WORD 

$ERR47 

;  PROCESS  I/O 

ERRORS 

ETAB2:   .WORD 

$ERR51 

.WORD 

101 

.WORD 

$ERR53 

.WORD 

$ERR54 

.WORD 

$ERR55 

.WORD 

$ERR56 

.WORD 

$ERR57 

.WORD 

$ERR58 

.WORD 

$ERR59 

.WORD 

$ERR60 

.WORD 

$ERR61 

.WORD 

$ERR62 

.WORD 

$ERR63 

.WORD 

$ERR64 

.WORD 

$ERR65 

.WORD 

$ERR66 

.WORD 

$ERR67 

.PSECT 


OPEN  FAILURE 
READ  FAILURE 
READ  OVERFLOW 
BAD  STB  FORMAT 


OPEN  FAILURE 

GET  ATTRIBUTES  FAILED 

FILE  NOT  CONTIGUOUS 

LABEL  BLOCK  READ  FAILURE 

INVALID  IMAGE  (HEADER,  OVERLAID,  ETC.) 

PROCESS  NOT  BUILD  FOR  APR5 

PROCESS  EXCEEDS  4K  WORDS 

PROCESS  EXTENSION  EXCEEDS  4K  WORDS 

PARTITION  NOT  IN  SYSTEM 

BASE  ADDRESS  MISMATCH 

PARTITION  TOO  SMALL 

NOT  COMMON  PARTITION 

PARTITION  BUSY 

CEX  PARTITION  NOT  IN  EXEC  SPACE 

SUB-PCS  ALLOCATION  FAILURE 

MAIN  PARTITION  TOO  FRAGMENTED 

PROCESS  READ  FAILURE 


MTLPRO  -  "SET  PROCESS 

SaFFR  -  TRANSFER  PROCESS  TO  CORE 
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ATIACL= 

000100 

DSNBEA 

C00056 

LF.MTP= 

000020 

NTLPT  = 

******  GX 

PBLK 

AT$ADN= 

OOOOAO 

DINBRA 

000054 

LF.PAC= 

000200 

N$ACQ 

000000 

PRSYM 

AT$AUP= 

000020 

D$NEND= 

000054 

LF.RDY= 

040000 

NSACTL 

29295? 

PR1SC 

AT$CYC= 

OOOOOA 

D$NLN 

000030 

LF.REA= 

010000 

NSADJI 

000072 

PR100M 

ATSL\/1  = 

000002 

DSNN 

000060 

LF.SER= 

000040 

N$ADJ2 

000074 

PSYM 

AT$LV2= 

000001 

DIOUTT 

000043 

LF.T]M= 

000010 

NSCACH 

000062 

PVAL 

AT$NEX= 

000200 

DSRETF 

000050 

LF.UNL= 

020000 

N$CIR 

000034 

P$$P45= 

AT$UP  = 

000010 

D$RNN 

000002 

LF.X2P= 

000000 

N$CRC 

000120 

P$$WRD= 

AXSYM 

000234R 

OSRTMR 

000076 

LN.CL0= 

000000 

N$DLA 

000020 

P.SLKS= 

A$CIR 

000003 

DSSEG 

000036 

LN.DUM= 

000005 

NSDLY 

000014 

P.REL  = 

ASLEN 

OOOOOA 

DISER 

000032 

LN.LOA= 

000004 

NSELEN 

000054 

Q$$OPT= 

A$N!D 

000000 

DSSQRL 

000052 

;.N.L00= 

000003 

N$ENC 

000042 

RI$DER= 

A$TM 

000003 

D$$BUG= 

177514 

LN.0AU= 

000003 

NSERRC 

000022 

R$$K11= 

ASTMI 

000002 

DI$ISK= 

000000 

LN.OfF= 

000001 

N$FLG 

000005 

R$$SND= 

ASTSZ 

000000 

D$$L11= 

000001 

LN.ON  = 

000000 

N$FNC 

000006 

R$$11M= 

ASTYP 

000002 

D$$YNC= 

000000 

LN.00P= 

000004 

NSGENQ 

000052 

SECBLK 

AS$CHK= 

OOOOOC 

D$$YNM= 

000000 

LN.0PE= 

000001 

NSCTM 

000015 

SF.ACT= 

A$$CPS= 

000000 

ETAB1 

000164R 

002  LN.REF= 

000002 

N$HC1 

000052 

SF.FNA= 

A$$PRI= 

000000 

ETAB2 

0001 74R 

002  LN.SER= 

000002 

N$HC2 

000056 

SF.LPB= 

A$$TRP= 

000000 

ESNBR 

000014 

LN.STA= 

000017 

NSHIGH 

000033 

SF.MFL= 

CMFRK  = 

♦♦♦»**  GX 

E$NBS 

000020 

LN.SUB= 

000360 

N$LLT 

000026 

SF.PAC= 

CSLEN 

000012 

ESNCR 

000034 

LN.TRI= 

000006 

NSLLTM 

000024 

SF.REA= 

CSNID 

000000 

E$NCS 

000036 

l$$ASG= 

000000 

NSLVC 

000036 

SF.SER= 

C$NXH 

000002 

E$NIC 

000044 

L$$DRV= 

000000 

NSLVI 

000002 

SF.SVC= 

CSTIM 

000010 

E$NLEN 

000050 

LI$P11= 

000001 

N$LV2 

000010 

SF.UNL= 

C$$CKP= 

000000 

ESNLLA 

000012 

L$$11R= 

000000 

^"«1BXQ 

000050 

SQBLK 

CS$ORE= 

OOOAOO 

ESNLNK 

000000 

L.COST 

000015 

N»MHC1 

000036 

STBERR 

C$$RSH= 

177564 

ESNML 

000040 

L.CTL 

000012 

N$HHC2 

000044 

STBEXT 

DECPT  = 

♦«*«4*  GX 

E$NMR 

000024 

L.CVA 

177776 

NSPLD 

000016 

S$$WRG= 

DSPTAB 

00001 2R 

002  E$NHS 

000030 

L.DDM 

000002 

NSPLLT 

000030 

S$$YSZ= 

DTBLK 

000056R 

002  ESNNGD 

000002 

L.DDS 

000004 

N$PRI 

222°^^ 

S.COST 

DTSYM 

000062R 

002  E$NRT 

000042 

L.DLC 

000003 

N$R0A1 

000022 

S.FL6 

DTVAL 

000066R 

002  F«MRTP 

000005 

L.DLM 

000006 

N$R0A2 

000030 

S.LEN 

DSAMXC 

000072 

ESNSEG 

000010 

L.DLS 

000010 

NSRTMX 

000014 

S.NMST 

DSAMXH 

00007A 

ESNTIM 

000046 

L.FLG 

000000 

N$RTH1 

000014 

S.OWNR 

DSANN 

000000 

ESNUSE 

000004 

L.KR8A 

000016 

N$RTM2 

000015 

TEMP 

DSBRPR 

003102 

ESSTRT 

000006 

L.LEN  = 

000022 

N$RT1 

000000 

TSKERR 

OSBRTM 

000100 

E$$XPR= 

UCCOOO 

L.MPF 

000022 

N$RT2 

000006 

TJFLAG 

DSDELF 

0000A5 

F$$LVL= 

000001 

L.NMST 

000020 

N$SLA 

000016 

T$LIF 

DSDELW 

000046 

G$$TPP= 

000000 

L.NSTA 

000014 

NSSNOD 

000012 

TSLIFL 

DSEND  = 

000104 

G$$TSS= 

000000 

L . OUNR 

000021 

NSTCTL 

000112 

TSLIFO 

DSFNB 

000034 

G$$TTK= 

000000 

L.UNT 

000013 

N$TIM 

000004 

TILIFS 

DSKIOR 

000024 

G$$URD= 

00^.000 

MIL8LK 

000102R 

002  NSTLC 

0001 00 

TSLiN 

DSHOST 

000022 

I$$RAR= 

000000 

M$$CRB= 

000124 

NSTNC 

000114 

TSLIPS 

DtlNAC 

000044 

I$$RDN= 

000000 

M$$CRX= 

000000 

NSTRC 

000106 

TSLLD 

DSINCT 

000042 

Kt$CNT= 

177546 

M$$FC3= 

OOOOOC 

NSTTCB 

00011c 

TILLDC 

D$IPL 

000051 

K$$CSR= 

177546 

M$$M6E= 

OOOOOi 

NSvce 

C00010 

Tt.LDL 

DiLJD 

000020 

K$$LDC= 

000000 

H$$N'ET= 

OOOOOC 

NSVER 

000066 

r$LLDO 

OStigAM 

000006 

K$$TPS= 

000074 

M$$OVR= 

000000 

NSXLEN 

00C124 

TSLLDS 

DSLWJM 

000014 

LDSLP  = 

000000 

NF$8LK= 

000100 

N$$ACC= 

000101 

TSLLEN 

0$LST 

000047 

LF.ACT= 

100000 

NF$DMO= 

000010 

N$$BUF= 

OOOcCI 

TSLOPR 

DSMAXC 

000064 

LF.BRO= 

000400 

NF$MOU= 

000040 

N$$LDV= 

000001 

TSLTCL 

DSMAXH 

0OOO66 

L?,8WT= 

000007 

NF$RSr= 

coooo: 

N$$«CP= 

000001 

TSLTIM 

D$MAXV 

00007C 

lF.ENA= 

002000 

NF$SCN= 

Ou0020 

N$$MLL= 

000001 

TSLTPR 

DSMLL 

OC0040 

LF.LPB^ 

001000 

NF$SHU= 

000004 

N$$M0V= 

000010 

T$LTPS 

rSMNCD 

000041 

LF.MDC= 

00c 100 

NF$TIM= 

000200 

N$$NCT= 

OOC001 

^$NAPL 

D$NA 

000062 

lF.MFL= 

004000 

NODCTR 

000"04R 

002  N$$PEM^ 

000001 

T$NFE 

000020R 

000462R 

000124R 

0001 12R 

000024R 

000030R 

000000 

000000 


000010 

000000 

000001 

000000 

000000 

0O0n4R 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000070R 

000756R 

000006R 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

OOOOOOR 

000226R 

000044 

000013 

000013 

000013 

000013 

000000 

000006 

000012 

000045 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

000000 


GX 
GX 


002 

002 
002 
002 
002 


002 


002 
002 


002 
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1?ft 

00006A 

OOOOOOG 

\/l 

000066 

OOOOOOG 

128 

W 

MO 

Ml 

M2 

1^'; 

t;^ 

MS 

000070 

OOOOOOG 

M6 

000C72 

OOOOOOG 

1W 

000074 

roocooG 

isa 

000076 

JOOOOOG 

M9 

KO 

V,1 

u? 

000100 

OOOOOOG 

Ul 

000102 

OOOOOOG 

K4 

000104 

OOOOOOG 

KS 

000106 

OOOOOOG 

K6 

000110 

OOOOOOG 

u;' 

000112 

OOOOOOG 

UR 

000114 

OOOOOOG 

K9 

000116 

OOOOOOG 

ISO 

000120 

OOOOOOG 

1S1 

000122 

OOOOOOG 

IS? 

000124 

OOOOOOG 

1S^ 

000126 

OOOOOOG 

ISA 

000130 

OOOOOOG 

1SS 

000132 

OOOOOOG 

1S6 

000134 

OOOOOOG 

1S7 

000136 

OOOOOOG 

158 

0C0140 

OOOOOOG 

159 


ZTIHE: 

:  SZTIME 

CMFRK: 

:  SCMrRK 

.IF  DF 

SKS5:. 

S.KS5 

SKTB:. 

S.KTB 

UHRHD. 

:  SUMRHD 

.ENDC 

SLHD: 

S.LHD 

IKTCB 

:  STKTCB 

NTUir 

:  SNTUIC 

SMXVCI 

::V$$CTR 

;  VECTORED  COW 

N8IAS 

:  SNBIAS 

MAXOV 

:  SMAXOV 

RDBTH 

:  SRDBTH 

CEPWR 

:  SCEPWR 

SDBCT 

:  SSDBCT 

RDBCT 

:  IRPBCI 

CCBCT 

:  SCCBCT 

CCBNM 

:  SCCBNM 

LTMFC 

:  SLTMFC 

CCBAF 

:  SCCBAF 

RDBAF 

:  SRDBAF 

LDBAF 

:  SLDBAF 

SDBA"^ 

:  SSDBAF 

CCBAL 

:  SCCBAL 

TKIOO 

:  STKIOO 

LLCTA 

:  SLLCTA 

PDVTA 

:  SPDVTA 

R$$.1PL 
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NTLROO  -  NIL  ROOT  SEGf'iiNT 

AK  -  TEST  FOR  ALREADY  IN  CORE 


718 
719 
720 
721 
722 
723 
72A 
725 
726 
727 
728 
729 
730 
731 
732 
733 
73^  00047A 

735  000500 

736  000504 

737  000510 
733  000516 
739  000522 
740 

741 
742 
743 
744 
745 
746 
747 
748 
749 

750  000530 

751  000534 

752  000536 

753  000544 
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AIC  -  TEST  FOR  PROCESS  ALREADY  IN  CORE 

INPUTS: 

Rl  -  PDV  ADDRESS 

O'JTPUTS: 

$BiAS  -  BASE  ADDRESS  OF  PROCESS 
$GCD  (lASJ  -  GCD  ADDRESS 
$PC8  (RSX)  -  PCB  ADDRESS 


010167  000062' 

116102  OOOOOOG 

042702  177774 

042767  000003 

050267  001232' 

016167  OOOOOOG 


AIC: 


001232' 
000064' 


754 
755 
756 
757 


016102  OOOOOOG 

001405 

016267  OOOOOOG  000066' 

010267  000070' 


000550  000207 


10$: 


l»IOV 

MOVB 

BIC 

BIC 

BIS 

MOV 

.IF  DF 

MOV 
BEQ 
MOV 
MOV 

.IFF 

MOV 
BEO 
MOV 
MOV 

.ENDC 

RETURN 


R1,$PDVA       ;  SAVE  PDV  ADDRESS 

Z.FLG(R1),R2    ;  GET  PROCESS  TYPE  FROM  PDV  STATUS  BYTE 

#*C<FL.DLC!FL.DDM>,R2 

#<FL.DLC!FL.DDM>,$FLAGS  ;  UPDATE  NETLDR  STATUS  ACCORDINGLY 

R2,$FLAGS 

Z.NAM(R1),tNAME  ;  SET  PROCESS  NAME  (RAD50) 

R$$nD    1    I$$AS 


Z.GCD(R1),R2 
10$ 

G.BA(R2),$BIAS 
R2,$GCD 


Z.PCe;R1),R2 
10$ 

P.REL(R2),$BIAS 
R2,$PC6 


GET  GCD  ADDRESS 

IF  EQ,  PROCESS  IS  NOT  IN  CORE 

COPY  BASE  ADDRESS 

MAKE  SURE  $GCD  HAS  THE  PROCESS  REGION  GCD  ADDRESS 


GET  PCB  ADDRESS 

IF  EQ,  PROCESS  IS  NOT  IN  CORE 

COPY  RELOCATION  BIAS 

MAKE  SURE  $PCB  HAS  THE  PROCESS  PCB  ADDRESS 


E     8 
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NTLROO 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT 

00:32 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

$SDEV 

000100 

RG 

#6-298 

8-541 

$$DPR 

000376 

RG 

#6-327 

$$EXT 

000030 

RG 

#6-272 

ttHTIM 

001266 

RG 

#6-430 

11-708 

t$INC 

000072 

RG 

#6-296 

$$LINX 

000104 

RG 

#6-300 

$$LSAD 

001110 

RG 

#6-334 

$$LT1M 

001426 

RG 

#6-431 

$$MTP 

000234 

RG 

#6-324 

$$MUX 

000400 

RG 

#6-328 

SSNODC 

001262 

RG 

#6-421 

$$PAR 

000074 

RG 

#6-297 

$$PCHA 

000746 

RG 

#6-332 

SBPDIN 

001264 

RG 

#6-422 

»8-550 

SSPRI 

000230 

RG 

#6-322 

$$PRM 

000004 

RG 

#6-225 

$$SCSR 

000402 

°G 

#6-329 

$$SNUM 

000236 

RG 

#6-325 

$$TASK 

000006 

RG 

#6-226 

$$TBL 

000102 

RG 

#6-299 

$$VEC' 

000232 

RG 

#6-323 

.ALLOC 

=  000526 

RG 

#6-376 

.AMAXC 

000052 

RG 

#6-282 

.AMAXH 

000050 

PG 

#6-281 

.BfPTR 

=  000450 

RG 

#6-357 

6-358 

.CCBNM 

=  000452 

RG 

#6-358 

6-359 

.CC^.sZ 

=  000454 

RG 

#6-359 

6-360 

.FUDGE 

=  000524 

RG 

#6-375 

6-376 

.HOME 

=  000446 

RG 

#6-356 

6-357 

.MAXC 

000034 

RG 

#6-275 

.HAXH 

000036 

RG 

#6-276 

.MXPRO 

=  000470 

RG 

#6-365 

6-366 

.NA 

000042 

RG 

#6-278 

.NAMBF 

=  000504 

RG 

#6-369 

6-370 

.NBEA 

000046 

RG 

#6-280 

.NBRA 

000044 

RG 

#6-279 

.NN 

000032 

RG 

#6-274 

D  9 

PAGE  8 

CREF   04.00 


.NOMAP 

.NTPSZ 

.PCB 

.PNAM1 

. PNAM2 

.PUMR 

.RDBNM 

.RDBSZ 

.RDBTH 

.ROUTB 

.ROUTM 

.RPRI 

.SDBNM 

.SDBSZ 

.UMRBA 


000514  RG 
0ri'"472  RG 
OuU512  RG 
000474  RG 
000500  RG 
000522  RG 
000456  RG 
000460  RG 
0004o6  RG 
000054  RG 
000040  :iG 
000056  RG 
0004^;  RG 
00046".  RG 
000520  RG 


#6-371 
#6-366 
#6-370 
#6-367 
#6-368 
#6-374 
#6-360 
#6-561 
#6-36^ 
#6-283 
#6-277 
#6-284 
#6-362 
#6-363 
#6-373 


6-372 
6-367 
6-371 
6-368 
6-369 
6-375 
6-361 
6-362 
6-365 


6-363 
6-364 
6-r'4 


NTLRQB 
CEXLD  - 

288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
505 
306 
307 
30E 
30S 
31C 


NTLRQC 


CREATED  BV  MACRO  ON  29-JUN-85  AT  00:32 
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NTLRQB 
PDVA  - 


NTLRQB 
CEXLD  - 

288 
289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
30A 
305 
306 
307 
308 
309 
310 
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CHECK  THAT  COMM  EXEC  U  LOADED 

.SBTTL  CEXLD  -  CHECK  THAT  COMM  EXEC  IS  LOADED 


CEXLD  -  MAKE  SURE  COMM  E:'EC  IS  LOADED 

INPUTS: 

NONE 

OUTPUTS: 

C-eiT=SUCCESS/FAILURE 


000164  CEXLD: 

00016A  032777  0000006  OOOOOOG        BIT     #FE. CEX,2FMASK 

000172  00U01  BED     101$ 

0001 7A  RETURN 


000176 


ERROR  CONDITION 
01$:   EMSGSR  98 


IS  COMM  EXEC  LOADED 
IF  EQ,  NO 


COMM  EXEC  NOT  LOADED 
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PDVA  -   FIND  PDV   ADDRESS  
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CLIN  -   CHECK   CLEAR   LINE   REQUEST   BLOCK 
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781 
782 
783 
78^ 
785 
786 
787 
788 
789 
790 
791 
792 
793 
79A 

795  00205A 

796  002060 

797  002064 

798  002070 

799  002072 

800  002074 

801  002076 

802  002102 

803  002104 

804  002110 
805 

806 
807 
808 
809  002112 


.SBT'L  CLIN  -  CHECK  CLEAR  LINE  REQUEST  BLOCK 

y 

CLIN  -   CHECK   "CLEAR   LINE"  REQUEST  BLOCK 

INPUTS: 

$SLTA=SLT  ADDRESS 


016700  OOOOOOG 

062700  000000 

032710  040000 

001002 

005004 

000405 

032710  100000 

001003 

052710  020000 


20$: 


OUTPUTS: 

NONE 

IN:    MOV 

$SLTA,RO 

ADD 

*L.FLG,RO 

BIT 

#LF.RDY,(RO) 

BNE 

10$ 

CLR 

R4 

BR 

20$ 

$:    BIT 

#LF.ACT,(RO) 

BNE 

101$ 

BIS 

#LF.UNL,(RO) 

RETURN 


ERROR  CONDITION 
101$:   EMSG$R  Z6 


GET  SLT  ADDRESS 

POINT  AT  STATUS  WORD 

IS  LINE  READY? 

IF  NE,  YES 

INDICATE  NO  WORK  TO  DO 

IS  LINE  ACTIVE? 

IF  NE,  YES  -  NOT  ALLOWED 

INDICATE  LINE  MARKED  FOR  UNLOAD 


LINE  STILL  ACTIVE 


E  11 
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00:32 
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NTLSJI 


1291 
1292 
1295 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 


003532  010146 

003534 

003540  010500 

003542  005720 

003544  122720  000072 

003550  001375 

003552  005300 

003554  116640  000001 

003560  112640 

003562 


.SBTTL  DEV7  -  REPl ACE  REQUESTING  TASK'S  NAME  AND  DEVICE  NAME 


DEV7  -  REPLACE  REQUESTING  TASK'S  NAME  AND  RSX11M  DEVICE  lv«ME 

INPUTS: 

$$TASK=REQUeSTING  TASK'S  NAME 
R1-DEVICE  NAME  IN  ASCII 
R3=F0RMAr  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 


SAVE  DEVICE  NAME 
REPLACE  REQUESTING  TASK'S  NAME 
COPY  ERROR  MESSAGE  BLOCK  ADDRESS 
GIVING  ERROR  TEXT  ADDRESS 
LOOK  FOR  THE  COLON 

SKIP  the' COLON 
DEPOSIT  DEVICE  NAME 


OUTPUTS: 

RO.Rl 

,R2=DESTR0YED 

R3,R4 

=UPDATED 

V7:   MOV 

R1,-(SP) 

CALL 

REP7 

MOV 

R5,R0 

TST 

(R0)  + 

I:          CMP8 

#':,(R0)+ 

BNE 

10$ 

DEC 

RO 

MOVE 

1(SP),-(R0) 

MOVB 

(SP)+,-(R0) 

RETURN 


E  12 


NTLRQB 
RFP7R    - 
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RFPI  AfF    RFniiFSTING    TASK'S   NAME    AND    LINE    ID 


NTLSU 


NTLSUB  -  COMMON  SUBROUTINES 


56 
57 
58 
59 
60 
61 
62 
63 
(■<, 
65 
66 
67 
68 
69 
70 
71 
72 

73  000000 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 

87  000000 
88 
89 
90 
91 

92  000030 
93 
94 
95 
96 

97  000032 
98 

99  000032 
100  000046 
101 
102 
103 
104 
105 
106 
107 
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•  *♦* 

•  LIBRARy  MACROS 

.MCALL  D1R$,Q10W$,ALUN$S,QI0W$S 


123 


131 


072 


109 
110 

ir 

112 


.IF  DF 

R$$MPL 

.MCALL 

OLRDFS 

OLRDF$ 

.ENDC 

•  *** 

;  LOCAL  DATA 

.PSECT 

DATA.D 

.NLIST 
.IF  DF 

BEX 
R$$MPL 

;  ONLINE  RECONFIGURATI 

STATUS:  .8LKW 
.ENDC 

2 

DEFINE  ONLINE  RECONFIGURATIONS  BITS 


TI:  OUTPUT  DPB 
tlOUT:   QIOW$   I0.WBT,2,2, 


,40> 


POINTER  INTO  FILE  NAME  (USED  FOR  OPEN  FAILURE  ERROR  METSAGE  LINE  2) 

FNPTR:   .BLKW  1 

DEFAULT  UK 

IdFUIC::.IF  DF  R$$11M 

.11^  DF  M$$M6E 

.ASCIZ  "Sy:C131,54]" 

.BLKS  4 
.IFF 

.ASCIZ  "SY:[131,50]" 

.BLK8  4 
.ENDC 
.IFF 

.ASCIZ  "SY:[n,66] 

.BLKB  5 
.ENDC 

CONFIG  FILE  UK 
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••FILE»MD««NTLSYM 


D  U 


NN 

NN 

TTTTT 

TTTTT 

ssssssss 

VY 

YY 

MM 

MM 

^N 

NN 

TTTTT 

TITTT 

ssssssss 

YV 

YY 

MM 

MM 

NN 

NN 

ss 

YV 

YY 

MMMM 

MMMM 

NN 

NN 

ss 

YV 

YY 

MMMM 

MMMM 

NNNN 

NN 

ss 

CY   YY 

MM  MM  MM 

NNNN 

NN 

ss 

YY   VY 

MM  MM  MM 

NN  NN 

NN 

ssssss 

YY 

MM 

MM 

NN  NN 

MN 

ssssss 

YY 

MM 

MM 

NN 

NNNN 

VY 

MH 

MM 

NN 

NNNN 

ss 

YY 

MM 

MM 

NN 

NN 

ss 

YY 

MM 

MM 

NN 

NN 

ss 

YY 

MM 

MM 

NN 

NN 

LLLLLLLLLL 

ssssssss 

YY 

MM 

MM 

NN 

NN 

LLLLL 

.LLLL 

ssssssss 

YY 

MM 

MM 

NTLTMP 

5 
5 

r 
J 

5 

c 

i 
t 
t 
t 
t 
t 
t 

t 


LL 

ssssssss 

TTTTT 

TTTTT 

.L 

ssssssss 

TTTTT 

TTTTT 

-U 

ss 

.L 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

L. 

ssssss 

L. 

ss 

L. 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

E  U 
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NTLTMf 
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55 

56 

57 

58 

59 

60 

61 

62 

63 

64  OOO'/OO 

65 

66 

67 

68 

69  000000 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001 ooc 
002000 
004000 
010000 
020000 
1C0000 


•  LIBRARr  MACROS 

.MCALL  EMSG$,EMSG$R,GCL$,NTLER$ 

■  *  *  * 

■  LOCAL  DATA 
-  * ** 


.PSECT  DAIA.D 

;  TEMPLATE  FILE  FLAGS 
iFLAG1::.8LICU   1 


F 1.880= 

F1.INT= 

F1.JN1= 

F1.IN2= 

F1.IN3 

F1.LFI 

F1.LFL 

F1.MPL= 

F1.MPT 

F1.MXT= 

F1.STE= 

F1.UMR= 

F1.VSE= 

F1.VC1= 

F1.ERR=: 


=  1 

2 

4 

10 
=?0 
=40 
=100 

200 
=400 
=  1000 
=2000 
=4000 
=10000 
=20000 

100000 


89 

90 

91  000002 

92 

93 

000001 

94 

000002 

95 

000004 

96 

000010 

97 

000020 

98 

000040 

99 

100 

101 

102 

103  000004 

104  000006 

105  000010 

106 

i07 

108 

109 

110  000012 

111  000014 

;    TEMPLATE    FILE   LINE    FLAGS 

iFLAG2::.8LKW        1 

F2.BYT==1 

F2.END==2 

F2.FIL==4 

F2.L8R==10 

F2.NEG==20 

F2.SUB==40 

;  BINARY  BUFFER  INFORMATION 


ieiN: 
$PTR: 
ILEFT 


.BLKW  1 
.BLKW  1 
.8LKW   1 


;  LINE  TABLE  INFORMATION 

iSLTSV:;.BLKW   1 
$SI7E;:  .BLKW   1 


BINARY  BUFFER  OVERFLOWED 
"'.INT"  OPERATOR  SEEN 

MNTI"  OPERATOR  SEEN 

'.INT2"  OPERATOR  SEEN 

'.iNT3"  OPERATOR  SEEN 

'.LFILE"  OPERATOR  SEEN 

■.LFLHD"  OPERATOR  SEEN 

'.MPLHD"  OPERATOR  SEEN 

'.MPTAB"  OPERATOR  SEEN 

'.HXTAB"  OPERATOR  SEEN 
SYMBOL  TABLE  ERROR  HAS  OCCURRED 
ALLOCATE  FROM  UHR  MAPPED  AREA  OF  NTPOOL 
VECTOR  SETUP  ERROR  OCCURRED 
VECTORS  WERE  SETUP 
SOME  ERROR  OCCURRED 
•**  F1.ERR  MUST  BE  THE  SIGN  BIT  *•• 


BYTE  MODE 

".END"  OPERATOR  SEEN 

VALID  FILE  NAME  SEEN 

LIBRARY  REFERENCE  ALREADY  EXISTS 

NEGATIVE  EXPRESSION 

NEGATIVE  MODIFICATION 


STARTING  ADDRESS 
CURRENT  POINTER 
BYTES  REMAINING 


SLT  ADDRESS 

NUMBER  OF  BYTES  NEEDED 
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NTI.TMP  -  TEMPLATE  PROCESSING 
Symbol  table 
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AltCHK= 

At$CPS= 

A$$PRI  = 

AStTRP= 

CSSCKP= 

C$$ORE= 

CS$RSH= 

DttBUG= 

D$$ISK= 

DMLll  = 

D$$YNC= 

D$$yNM= 

EPFX 

ERRBUF 

ERRMSG 

ERR$10= 

ERR$11= 

ERR$12= 

ERR$9  = 

E$$XPR= 

FL.[)DM= 

FL.DLC= 

FL.ECH= 

FL.LLC= 

FMT2 

FM.2   = 

F$$LVL= 

F1.BB0= 

f1.ERR= 

F1.INT= 

F1.IN1= 

F1.IN2= 

F1.IN3= 

F1.LF!= 

FI.LFL^ 

F1.MPL= 

F1.MPT= 

F1.MXT= 

.  ABS. 


000000 

000000 

000000 

000000 

000000 

000^00 

177564 

1775K 

000000 

000001 

000000 

000000 

000507R 

000361 R 

00035AR 


000000 

****** 
****** 


000740R 

000000 

000001 

000001 

100000 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 


GX 
GX 
GX 
GX 

GX 
GX 
GX 
GX 


000000 
000754 
DATA  000760 
Errors  detected: 


F1.STE= 
F1.UMR= 
F1.VCT= 
F1.VSE= 
F2.BVT= 
F2.END= 
F2.FIL= 
f2.LBR= 
F2.NEG= 
F2.SUB= 
G$$TPP= 
G$$TSS= 
002  G$$TTK= 
002  G$$WRD= 
002  IE. EOF 
IE.R8G 
I$$RAR 
I$$RDN: 
K$$CNT: 
K$$CSR: 
KS^LDC^ 
K$$TPS: 
LDSLP  : 
L$$ASG^ 
002  L$$DRV: 
L$$P11^ 
L$$11R^ 
M$$CRB: 
M$$CRX^ 
M$$FCS^ 
M$$MGE 
M$$NET 
M$$0VR 
N$$ACC 
N$$BUF 
N$$LDV 
N$$MCP 


002000 

004000 

020000 

010000 

000001 

=  000002 

=  000004 

=  000010 

=  000020 

=  000040 

=  000000 

=  000000 

=  000000 

=  000000 

=  ****** 
=  ****** 

000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 


GX 
GX 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


N$$MLL= 
N$$M0V= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 

r,;$iiM= 

S$$WRG= 

S$$YSZ= 

TMPBF 

TMPSZ 

TM.RD 

T$$KHG= 

T$$MIN= 

V$$CTR= 

WPFX 

X$$D8T= 

$ABFI  = 

$ADDR 

$8FALL 

SBFBAS 

SBFLBN 

SBFPTR 

SBFXFR 

$BJN 

$CAPR 

$CLBUF= 

$CLDEQ= 

$CLIOS= 

$CLSIZ= 

$CVAL 

$DIFF 

SEFNLL 


000001 

000010 

000001 

000001 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000000 

007600 

000146R 

000352R 

00021  OR 

000000 

000000 

001000 

000472R 

000000 

*♦»»»*  GX 

00001 6RG 

000114RG 

000126RG 

000116RG 

000122RG 

000124RG 

000004RG 

000142RG 

***«»*  GX 

*»*♦»*  GX 

«»*»»♦  GX 

*♦»**»  GX 

0001 36RG 

000112RG 

000326RG 


SELINE 
$ERR13 
$ERR21 
$ERR79 
$ERR82 
$ERR83 
SEVEN 
SFILEN 
$FILEX= 
$FLAGS= 
IFLAGl 
$FLAG2 
$FN0UT= 
002  $FNR50 
002  $GCLEP= 
SICBAD 
SICBSZ 
$JSROF= 
SLBADR 
002  SLBJAS 
$LDA 
SLEFT 
002  $LFLD 
002  SMPLD 
002  SMXADD 
002  IMXLEN 
f02  SMXSIZ 
002  $NALL 
002  SNLIB 
002  SNVECT 
$OFF 
$PRAPR= 
$PTR 
$REP.C= 
002  $RQ1 
002  $RQ2 
$RQ3 


000332RG 

000514R 

000554R 

000602R 

000630R 

000676R 

000470RG 

0001 OORG 

******  GX 

******  GX 

OOOOOORG 

000002RG 

******  GX 

0001 30RG 

**♦*»■»  GX 

000072RG 

000074RG 

000012  G 

000140RG 

000144RG 

000054RG 

00001  ORG 

OOOC60RG 

000056RG 

000020RG 

000026RG 

000022RG 

000030RG 

000031RG 

000070RG 

000024RG 

120000  G 

000006RG 

******  GX 

000404RG 

000376RG 

000370RG 


$R04 
002  $RQ5 
002  $RQ7 


002 
002 
002 

002 


002 
002 


002 
002 

002 
002 
002 
002 


$SAVAL= 
JSIZE 
SSLTA  = 
SSLTSV 
SSZPTR 
STERR 
$TIOUT= 
$TMALT= 
$TMCHK= 
$TMEXP= 
002  STMFIL 
STMFIX 
$TMLTA= 
STMP 
$TMPKU= 
$TMPST= 
$TMVCT= 
$TM.IN= 
$TPARS= 
002  STWARN 
002  $TWE 
002  SUBIAS 
002  $UDA 
002  SVALUE 
002  SVECTI 
002  $VECT2 
002  $VECT3 
002  SVFDDM 
SVFDLC 
SVFLVl 
SVFSPC 
.ABFl 
.BYTE  = 
.TPARS= 


002 


000362RG 

000354RG 

000346RG 

***»♦»  GX 

000014RG 

******  GX 

00001 2RG 

000032RG 

000646RG 

*«•**♦  GX 

******  GX 

•*««**  GX 

******  GX 

000056R 

000306RG 

*♦«**«  GX 

OOOOOORG 

»»****  GX 

******  GX 

*««**«  GX 

******  GX 

***♦♦*  GX 

000622RG 

000636RG 

000050RG 

000052RG 

000076RG 

000062RG 

000064RG 

000066RG 

000522RG 

000542RG 

000574RG 

000562RG 

000316RG 

******  GX 

******  GX 


♦•♦  Assembler  statistics 

Work  file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  10418  Words 

Size  of  core  pool:  14440  Words 

Ooerating  system:  RSX-11M/PLJS 
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002 

002 
002 


002 
002 
002 
002 
002 
002 


NTLTMP 


CREATEb  BY     MACRO     ON  29-JUN-85  AT  00:34 


PAGE    1 


E  16 


SYMBOl_ 

SYMBOL 

SNLDEV 

SPCB 

SPRV.N 

$READ 

SREP.C 

SREP.P 

SRLBl 

tSAVAL 

tSYMBL 

STIOUT 

$$DEV 

$$TBL 


CREATED  a1 

CROSS   REFERENCE 

VALUE 

000000  RG 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


MACRO     ON  29-JUN-85   AT   00:30 


=  ***•♦♦ 

=  ****** 

=  ****** 

=  ****** 

=  ****** 

-  ****** 

r  ****** 

~  ****** 

r  ****** 


REFERENCES 

#8-239 
8-259 
7-157 
13-539 
7-162 
7-159 
11-4^6 
16-699 
10-389 
16-716 
9-32A 
8-257 


7-158 

7-164 
7-160 


10-371 


PAGE 
CREF 


E     1 

OA.OO 


7-161 
18-765 

10-372 


13-5A2 


19-810 


19-811 


NTLDEV 


CREATED  BY     MACRO     ON  29-JUN-85  AT  00:30 


PAGE  4 


F     1 


r  nr,c  c     ncc  CDCK\rc 


NTLGET  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:31 

SYMBOL    CROSS   REFERENCE 


E     2 

PAGE  2 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

QASTT 

- 

****** 

GX 

9-249 

RCVDAT 

000000 

R 

#5-81 

7-168 

RSX$0< 

:: 

000000 

#6-126 

6-126 

RTSPC 

000234 

R 

5-99 

#7-180 

RSSMPL 

= 

****** 

6-125 

R$$11D 

- 

****** 

5-62 

RSSIIM 

~ 

000000 

5-98 

R$$11S 

~ 

****** 

6-126 

R.VXTN 

- 

000002 

5-81 

SRSTD 

- 

****** 

GX 

9-230 

S$$BAS 

= 

****** 

5-99 

5-99 

S.DATN 

- 

000002 

5-86 

♦8-200 

♦8-201 

U.SCB 

- 

****** 

GX 

6-126 

SCFUIC 

= 

****** 

GX 

6-133 

SCRAVL 

- 

****** 

GX 

6-126 

SCXUIC 

= 

♦'**** 

GX 

6-131 

SDFUIC 

- 

'I  ***** 

u< 

6-132 

tERRAO 

00006A 

R 

#5-99 

6-150 

SFLAGS 

~ 

****** 

GX 

♦6-143 

6-144 

♦6-144 

7-171 

♦7-171 

SFUNC 

- 

****** 

GX 

♦6-151 

8-203 

9-246 

SHEAOR 

= 

****** 

GX 

9-236 

SLDUIC 

= 

****** 

GX 

6-130 

SNLGET 

000146 

RG 

6-152 

#7-167 

SNLINI 

000000 

RG 

#6-124 

SNLPUT 

000236 

RG 

6-153 

#8-193 

$RERR 

- 

****** 

GX 

5-99 

$TTO 

r 

****** 

GX 

6-126 

$XBUF2 

= 

****** 

GX 

♦6-141 

$XLEN2 

r: 

****** 

GX 

♦6-142 

$XXBUF 

= 

****** 

GX 

6-141 

SXXINI 

- 

****** 

GX 

6-140 

SXXLEN 

- 

****** 

GX 

6-142 

$$AST 

- 

****** 

GX 

♦7-173 

♦7-176 

8-195 

9-243 

$$LRB 

000022 

RG 

5-81 

5-86 

#5-91 

7-169 

7-170 

$$PRM 

- 

****** 

GX 

♦7-177 

9-245 

$$TAS< 

= 

-.  ***** 

GX 

♦7-169 

♦7-170 

8-200 

8-201 

9-229 

$$$GLB 

= 

****** 

5-81 

5-86 

5$$T1 

r 

000006 

#5-81 

5-81 

#5-86 

5-86 

5-86 

.TTO 

= 

****** 

GX 

6-126 

♦7-179 


7-174 


5-86 


7-176 


7-177 


8-202 


NTLGET  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:31 

MATDn    roncc    DcrcDtrMTF  


F     2 

PAGE   3 

rRFF      04. nn 


NTLKMC  -  LOAD  <MC  MICRO-CODE 
KMC  LOADER  (POWER  FAIL) 

366 
367 
368 
369 
370 
371 
372 
373 
374 
375 

376  000230  000241 

377  000232 
378 
379 
380 
381 
382 
383 
384 
385 
386 


MACRO  V05.03b  Saturday  29-Jun-85 


SO:^ 


1  Page  11-1 


20$: 
30$: 


40$: 


CMP 

CALL 

BR 

ADD 

DEC 

B5T 


.ENDC 

CLC 
RETURN 


(Rl)+, 

KMCLD 

30$ 

#6,R1 

R2 

w 


(RV* 


ERROR  CONDITIONS 
101$ 


.IF  DF 
EMSG$ 
SEC 
RETURN 


R$$MPL 
3K 


U-SKIP  TO  NEXT  ENTRY 

U-LOAD  UP  THE  KMC 

U-AND  COUNT  THE  ENTRY 

U-SKIP  EMPTY  ENTRIES  (4  WORDS/ENTRY) 

U-COUNT  DOWN 

U-BR  IF  MC'iE  ENTRIES 

U-GO  CHECK  IF  MORE  BLOCKS  IN  LIST 

•-MAPPED  AND  UNMAPPED  TAKE  SAME  EXIT-* 

e-NO  ERRORS  FOR  NOW 


M+  CAN'T  FIND  UNIBUS  RUN  MASK 

M+  INDICATE  FAILURE 

M+ 


NILKMC 
RAM  FRF 

90= 


.ENDC 


NTLKMC  -  LOAD  KMC  MICRO-CODE 
KMC  LOAD  LIST  HOUSEKEEPER 


F  3 
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NTLKMC 
Symbol 


NTLKMC  -  LOAD  KMC  MICRO-CODE 
RAM  FRROR  SUFFIX  SUB-FORMATTER 


909 


000001 


MACRO  V05.03b  Saturday  29-jun-85 


.END 


00:31 


Page  22 


NTLKMC  -  LOAD  KMC  MICRO-CODE 
Symbol  table 


f  4 
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fHLPRO  -  "SET   PROCESS"  ROUTINES  MACRO  V05.03b  Saturday  .?9-Jun-85  00:31 
S^ffR   -    TRANSFER  PROCESS    TO   CORE 


So:J- 


Page 


256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
26/' 
268 
269 

270  000000 

271  000000 

272  OOOOOA 

273  000010 
274 

275  000012 

276  000016 

277  000022 

278  000026 

279  000030 

280  000032 
281 

282  000034 

283  000036 

284  000042 

285  000046 

286  000050 
287 

288  000054 

289  000060 

290  000066 

291  000074 

292  000102 

293  000106 

294  000112 

295  000114 
296 

297  000116 
293  000132 

299  000136 

300  000140 

301  000144 

302  000160 
303 

304  000162 

305  000166 

306  000172 

307  000176 

308  000200 

309  000202 

310  000204 
311 

312  000206 


.SBTTL  $XFER  -  TRANSFER  PROCESS  TO  CORE 

$XFER  -  TRANSFER  PROCESS  FROM  DISK  TO  CORE 

INPUTS: 

$PDVA=PDV  ADDRESS 
$NAME=RAD50  PDV  NAME 

OUTPUTS: 

c-8it=success/fa:lure 
ro  =  pdv  address 
r1  =  pcs  address 
$bias=process  relocation  bhs 


OOOOOOG 
OOOOOOG 


016700 
005760 
001102 


016700  OOOOOOG 


SXFER: 


103472 
005000 
005001 

005002 


103467 
016700 

010167 
016160 
016167 
016760 
016703 
026103 
001001 
005003 


010360 
001423 
016104 

160304 


OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000030'  000002G 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


5$: 


016700  OOOOOOG 

050302 
005022 
010412 


10$: 


MOV 
TST 
BNE 

MOV 

CALL 

CALL 

BCS 

CLR 

CLR 

CLR 

CALL 

CALL 

BCS 

MOV 

MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 
CLR 

ASL$ 

MOV 

BEQ 

MOV 

ASL$ 

SUB 

SWSTKS 

MOV 

CALL 

BIS 

CLR 

MOV 

RETURN 

CALL 


SPDVA.RO 

Z.PCB(RO) 

101$ 

$NAME,RO 

$DFN 

PRSVM 

20$ 

RO 

R1 

R2 

$AZFS 

$PRIO 

TSKERR 

$PDVA,RO 


GET  PDV  ADDRESS 

IS  PROCESS  ALREADV  CORE-RESIDENT? 

IF  NE,  YES  -  NETLDR  LOGIC  ERROR 

GET  PDV  NAME 

SETUP  DEFAULT  FILE  NAME 

LOOK  FOR  SPECIAL  SYMBOLS 

IF  CS,  FAILURE 

SETUP  ASCIZ  FILE  SPEC 

FOR  [131,5XJXXX.TSK 


TRANSFER  PROCESS 
IF  CS,  ERROR 
GET  PDV  ADDRESS 


INTO  CORE 


R1,$PCS        ;  SAVE  PCB  ADDRESS  FOR  LATER 
P.fiEL(R1),Z.DSP(R0)  ;  SET  PROCESS  RELOCATION  BIAS 
-.REL(R1),$BIAS  ;  TWICE 

'     ;  SET  DISPATCH  TABLE  ADDRESS 
GET  LOAD  SIZE  OF  PROCESS 
LOAD  SIZE  SAME  AS  PARTITION  SIZE? 
IF  NE,  NO  ..  THERE  MUST  BE  SOME  SPACE 
ELSE,  SAY  THERE  IS  NO  LISTHEAD 


PVAL,Z.DSP+2(R0) 
$LDSIZ,R3      ; 
P.BLKS(Rn,R3   ; 
5$  ; 

R3  ; 


6,R3 

R3,Z.AVL(R0) 

10$ 

P.6LKS(R1),R4 

6,R4 

R3,R4 


10$ 
$6!AS 
$MAPX 
R3,R2 

(r5)  + 

R4,(R2) 


RO 


AXSYM 


GET  LOAD  SIZE  IN  BYTES 

INITIALIZE  LISTHEAD 

IF  EQ,  NO  LIST  HEAD 

GET  PARTITION  SIZE  IN  BLOCKS 

CONVERT  TO  BYTES 

CALCULATE  SIZE  OF  FREE  SPACE 

*  ENTER  KERNEL  MODE 

*  BIAS  OF  PARTITION 

*  MAP  TO  PARTITION 

*  GET  ADDRESS  OF  START  OF  FREE  SPACE  IN  R2 

*  INITIALIZE  LINK  POINTER 

»    INITIALIZE    FREE    SPACE  BYTE    COUNT 

*  BACK   TO  USER  MODE 

FILL    IN   SPECIAL   SYMBOLS    IF    pf^OCESS    IS  AUX 


NTlPRQ  -  "SET  PROCESS"  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00:31     Page  7-1 
$XFER   -   TRANSFER   PROCESS    TO   CORE  


,:^1 


NTLPRO  -  "SET   PROCESS' 
Symbol   table 


E  6 
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TtNLEN 

000010 

XBLK2 

000140R 

no? 

$DFN  = 

****** 

GX 

$ERR60= 

******  GX 

$PCB  = 

******  GX 

T$NNUL 

000002 

XBLK3 

0001 52R 

0(12 

$DFNAM= 

****** 

GX 

$ERR61= 

******  GX 

$PDVA  = 

******  GX 

TSNOPL 

000006 

XPTPDV 

000002R 

002 

tERROX= 

****** 

GX 

$ERR62= 

******  GX 

SPRCLN 

000054RG 

002 

T$NRNI 

000042 

X$$DBT= 

000000 

$lR''44  = 

****** 

GX 

$ERR63= 

******  GX 

SPREXT 

000044RG 

002 

TSNRPL 

000005 

Z.AVL  = 

»♦*««*  GX 

$ERR45= 

****** 

GX 

$ERR64= 

******  GX 

SPRING 

000032RG 

002 

TSNRUL 

000007 

Z.DAT  = 

******  GX 

$£RR46= 

****** 

GX 

$ERR65= 

******  GX 

SPRIO  ^ 

*•*♦♦*  GX 

TSNVR 

000001 

Z.DSP  = 

»*»»**  GX 

$ERR47= 

****** 

GX 

$ERR66= 

******  GX 

SPRLLN 

000042RG 

002 

TtRPRI 

000040 

Z.PC8  = 

*♦»««»  GX 

$ERR49= 

****** 

GX 

$ERR67= 

******  GX 

SROL  = 

******  GX 

T$SVC 

000034 

$ADJ  - 

»***»♦  GX 

$ERR50= 

****** 

GX 

$ERR69= 

******  GX 

SSAVAL= 

******  GX 

T$T5 

000030 

SALECL 

001220RG 

$ERR51= 

****** 

GX 

$ERR70= 

******  GX 

SSQSRV 

000100R 

UU2 

T$T6 

000032 

SALMHC 

001022RG 

$ERR53= 

****** 

GX 

Siwrro 

000764RG 

SSVHBL= 

******  GX 

T$$KMG- 

000000 

$ALN18= 

»»*»*»  GX 

$ERR54= 

****** 

GX 

$L   Z  = 

******  GX 

SXFER 

OOOOOORG 

T$$MIN= 

000000 

$AZFS  = 

*«*♦**  GX 

$ERR55= 

****** 

GX 

SMAhA  = 

******  GX 

SSDEV  = 

******  GX 

T1SCL  = 

«****»  GX 

$BIAS  = 

*«»*«♦  GX 

$ERR56= 

****** 

GX 

$MUL  = 

******  GX 

S$N0DC= 

******  GX 

T100C  = 

»*»**♦  ex 

$CAT5  = 

»♦****  GX 

$ERR57= 

****** 

GX 

SNAME  = 

******  GX 

SSTBL  = 

******  GX 

V$$CTR= 

001000 

$CKT  = 

«««*»*  GX 

$ERR58= 

****** 

GX 

$NICAH= 

******  GX 

.CXSYM= 

******  GX 

XBLKl 

000126R 

002 

tCTSYM 

000456RG 

$ERR59= 

****** 

GX 

.  ABS. 

177776 
001462 

000 
001 

(RU,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

DATA 

000236 

002 

(RW,D,LCL,REL,C0N) 

Errors 

detec  ted: 

0 

*♦*  Assembler  statistics 


Work  file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  16470  Words 

Size  of  core  pool:  17608  Words 

Operating  system:  RSX-IIM/PLUS 


{  65  Pages) 
(  67  Pages) 
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NTLPRO 


CREATED  BY     MACRO     ON  29-JUN-85   AT   u0:32 
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F     6 


NTLROO  -   NTL   ROOT    SEGMENT 
VECTORED   EXEC    TABIE 


161 
162 
163 
164 

165  0001A2 

166  0001AA 

167  'j00K6 

168  000150 

169  000152 

170  000154 

171  000156 

172  000160 

173  000162 
17A  000164 

175  000166 

176  000170 

177  000172 

178  000174 

179  000176 

180  000200 

181  000202 

182  000204 

183  000206 

184  000210 

185  000212 

186  000214 

187  000216 

188  000220 

189  000222 

190  000224 

191  000226 

192  000230 

193  000232 

194  000234 

195  000236 
196 

197 

198  000240 


E  7 
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;  VECTORED  COMM  EXEC  SYMBOLS  (CONT'D) 


199 
200 

201  000242 

202  000244 

203  000246 

204  000250 

205  000252 

206  000254 

207  000256 

208  000260 

209  000262 

210  000264 

211  000266 

212  000270 

213  000272 
214 

215 
216 
217  OOOOCO 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
COOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000136 


PDV^ 

JM::  SPDVNM 

SI  ri> 

lA::  SSLTMA 

SI  Tl 

IM::  SSLTNM 

DPri 

'T::  SDECPT 

Fill 

ID::  SFILHD 

IGS 

T::  SLGSTT 

NSO 

:   $NSO 

NS1 

:   $NS1 

NS2 

:   $NS2 

NS3 

:   $NS3 

NS4 

:   $NS4 

NS5 

:   $NS5 

NS6 

:   $NS6 

NS/ 

:   $NS7 

PDV 

D::  SPDVID 

iir 

\l::    SLLCAL 

NET 

^F::  $NETPF 

IGP 

)V::  $L6PDV 

1  GD 

)B::  SLGDDB 

T10 

30::  STIOOQ 

T10 

3C::  STIOOC 

T1S 

CL::  STISCL 

RDR 

SZ::  SRDBSZ 

CCR 

.H::  SrCBLH 

fCR 

SZ::  $CCBSZ 

RDR 

.H::  SRDBLH 

SDR 

LH::  SSDBLH 

rxo 

"T::  SCXOPT 

NTI 

OT::  SNTLPT 

OR,) 

HD::  SOBJHD 

PUM 

R : :   SPUMR 

.IF  NDF  R$$MPL 

TEA 

VL::  SCEAVL 

.ENDC 

STM 

FC::  SSTMFC 

PAV 

:  :   $XAVL 

XRI 

AS::  SXBIAS 

XAV 

.::   SXAVL 

QRI 

AS::  $QBiAS 

QST 

)T::  SQSTRT 

RDH 

«::  SRDBNM 

SDR 

W::  SSDSNM 

SDH 

SZ::  SSD8SZ 

AlO 

:1::  SALOCl 

Aid 

:B::  SALOCB 

HFA 

)R::  SHEADR 

PSJ 

PT::  SPSIPT 

$VE 

CLN  ==  «.-SVEC8G>/ 

.PSECT  DATA,D 

NTLROC  -  NTL  ROOT  SEGMENT 
VECTORED  EXEC  TABLE 
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NTLROO  -  NTL  ROOT  SEGMENT 

$5CEX  -  SET  CEX 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773  000552 

774  000552 

004767 

000000& 

775  000556 

103423 

776  0C0560 

004767 

OOOOOOG 

777  00056A 

103420 

778  000566 

004767 

OOOOOOG 

779  000572 

103415 

780 

781 

782 

783  C00574 

005727 

OOOOOOG 

784  000600 

001403 

785  000602 

004767 

OOOOOOG 

786  000606 

103407 

787  000610 

788  000610 

005727 

OOOOOOG 

789  000614 

001403 

790  000616 

004767 

OOOOOOG 

7"1  000622 

103401 

792  000624 

793 

794 

795  000624 

000403 

796 

797  000626 

004767 

OOOOOOG 

798  000632 

000261 

799  000634 

000207 
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.SBTTL  $SCEX  -  SET  CEX 


SSCEX  -  "SET  CEX" 

INPUTS: 

FL.NTI  Of  SFLAGS  SET  IF  NTINIT  WORK  IS  TO  BE  DONE 
ELSE  .HOME  =  HOME  BLOCK  BIAS 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 


NTLROC 

SYMBOL 

SYMBOL 

.UMRFL 
.SCSR 


isCEX: 


CALL 

$NTICF 

BCS 

60$ 

CALL 

S$CEX 

BCS 

60$ 

CALL 

$NTICF 

BCS 

60$ 

.IF  NDF 

I$$AS 

TST 

#$NTCF3 

BEQ 

10$ 

CALL 

$NTCF3 

BCS 

60$ 

10$: 

TST 

*$NTCFS 

BEQ 

20$ 

CALL 

$NTCFS 

BCS 

60$ 

20$: 

.ENDC 

BR 

70$ 

60$: 

CALL 
SEC 

$CCEX 

^0$: 

RETURN 

SCAN  CONFIG  FILE  FOR  NTPOOL  PARAMETERS 

IF  CS,  ERROR 

TRANSFER  COMM  EXEC  INTO  CORE 

IF  CS,  ERROR 

SCAN  CONFIG  FILE  FOR  MARKED-FOR-LOAD 

IF  CS,  ERROR 


PSI  SUPPORTED? 

-NO 

SCAN   CONFIG  FILE    FOR  PSI    COMPONENTS 

IF    CS,    ERROR 

SNA  GATEWAY  SUPPORTED? 

-NO 

SCAN  CONFIG  FILE  FOR  SNA  COMPONENTS 

IF  CS,  ERROR 


RETURN,  ALL  DONE 

CLEANUP  AFTER  THE  ERROR 
INDICATE  FAILURE 


F 


NTLROO  -  NTL  ROOT  SEGMENT 
$SCIR  -  SET  CIRCUIT 


MACRO  V05.03b  Saturday  29-Jun-85  00:32  Page  14 


NTLROO 


NTLROC     CREATED  BV  MACRO  ON  29-JUN-85  AT  00:32 

SYMBOL  CROSS  REFERENCE 

SYMBOL   VALUE  REFERENCES 


E     9 

PAGE   9 

CREF       0^.00 


UMRFL      =   000516  RG 
.SCSR         000060  RG 


#6-372 
#6-285 


6-373 


NTLRQB 
PDVA  - 

312 
313 
3U 
315 
316 
317 
318 

31'; 

32C 
321 
322 
323 
32< 
325 
32( 
32/ 
32f 
32'; 
33C 
331 

33; 

33' 
33' 
33! 
33( 

33; 

33! 
33' 

34( 
3'.- 

3a; 
34: 

34' 
3A' 
3^1 


NTLROO 
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NTLRQB 
CHKPP   ■ 


MTLRQB  -   PARSE    REQUEST   BLOCK 
PDVA  -   FIND   PDV   ADDRESS 


315 
315 
3H 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 

330  00020A 

331  000206 

332  000210 

333  0002U 

334  000220 

335  000222 

336  000226 

337  000232 

338  000236 

339  000240 

340  000244 

342 
343 
344 

345  000246 

346  000254 
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.SBTTL     PDVA  -  FIND  PDV  ADDRESS 


PDVA  -   FIND   PDV  ADDRESS 

INPUTS: 

R3=REQUE?T  BLOCK  POINTER 

.BlKW   1       ;  LR.PRO  -  PROCESS  NAME 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

$PDVA=PDV  ADDRESS 

$NAME=RAD50  PDV  NAME 

SFLAGS  SET  TO  PROCESS  TYPE  FROM  PDV  STATUS  BYTE 


NTLRQB 
KMCPF 


012300 
001417 
010067  OOOOOOG 


103412 
010067 
116001 
042701 
001406 
050167 


PDVA: 


OOOOOOG 
OOOOOOG 
OOOOOOC 

OOOOOOG 


MOV 

BEQ 

MOV 

CALL 

BCS 

MOV 

MOVB 

BIC 

BEQ 

BIS 

RETURN 


(R3)+,R0  ;  GET  PROCESS  NAME 

101$  ;  IF  ZERO,  RETURN  FAILURE 

RO.SNAME  ;  STORE  II 

SFPDV  ;  TRY  TO  FIND  PDV 

101$  ;  IF  CS,  NOT  FOUND 

RO,$PDVA  ;  SET  PDV  ADDRESS 

Z.FLG(R0),R1  ;  GET  PROCESS  TYPE  FROM  PDV  STATUS  BYTE 

#*C<FL.DDM!FL.DLC!FL.LLC>,R1 

111$  ;  IF  ZERO,  IT'S  NOT  A  REAL  PDV! 

R1,$FLAGS  ;  UPDATE  NETLDR  STATUS 


8' 


ERROR  CONDITIONS 


101$: 
111$: 


EMSG$R 
EMSGSR 


97 
96 


PROCESS  NOT  IN  SYSTEM 
GARBAGE  IN  PDV 
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CHKPP  -  CHECK  PROCESS  PARAMETERS     


NTLRQE 
CCEX  - 


NTLRQB   • 
KMCPF    - 

811 

812 

813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

825 

82A 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

S'.O 

SAI 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 
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CHEC<   KMC   POWERfAlL   RELOAD   REQUEST   oLOCK 


002120 

002120  017700  OOOOOOG 


002124  010403 
002126 


002132 

002136  005762  OOOOOOG 

002142  001002 


002144  005066  000010 
002150 

002152  010304 
002154 


.SBTTL  KMCPF  -  CHECK  KMC  POWERFAIL  RELOAD  REQUEST  BLOCK 


KMCPF  -  CHECK  KMC  POWERFAIL  RELOAD  REQUEST  BLOCK 

INPUTS: 

NONE 

OUTPUTS: 

R4  CLEARED  IF  NO  WORK  TO  DO 


KMCPF: 


GET  NETLDR  DATA  BLOCK  BIAS 


MAKE  A  COFV  OF  THE  FUNCTION  CODE 
♦  ENTER  KERNEL  MODE 


♦  MAP  TO  THE  DATA  BLOCK 

♦  ARE  THERE  ANY  KMC'S  LOADED? 

♦  IF  NE,  YES 


*  ZERO  USER  MODE  R3 
»  BACK  TO  USER  MODE 
POSSIBLE  CLEAR  OF  FUNCTION  CODE 


;  INDICATE  NO  WORK  TO  DO 

;  RE-ENABLE  TASK  SWITCHING  AND  EXIT 


.IF  DF 

M$$MGE 

MOV 

aNTLPT.RO 

.IF  OF   R$t11M 

MOV 
SWSTKS 

R4,R3 
20i 

.IFTF 

CALL 

TST 

8NE 

$MAPX 

.fXCSR(R2) 

10$ 

.IFT 

10$: 
20$: 

CLR 

RETURN 
MOV 
RETURN 

10(SP) 

R3,R4         ; 

.IFF 

10$: 

CLR 
RETURN 

R4            ; 

10$: 


.ENDC 


.IFF 


MOV 

aNTLPT,R2 

;  GET  NETLDR  DATA  BLOCK  ADDRESS 

TST 

.CXCSR(R2) 

;  ARE  ANY  KMC'S  LOADED? 

BNE 

10$ 

;  IF  NE,  YES 

CLR 

R4 

;  INDICATE  NO  WORK  TO  DO 

RETURN 

.ENDC 
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NTLSU 


1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

•'33i 

1337 

1338 

1539 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

13^1 

1372 


003564 
003570 
003574 
003576 
003602 
003604 
003606 
003610 
003612 
003616 
003622 

003626 
003632 
003636 
003642 
003644 
003646 
005652 
003656 
003660 
005664 
005666 
003670 
003672 
003676 
003700 
003704 
005706 
005712 
0037K 
003720 
005722 


016246 

112314 
122724 
001374 
0055U4 
010400 
011601 
116101 
067701 
016101 

016101 

122740 
001775 
005200 
112720 
112720 
011601 
116101 
001404 
005300 
005002 

012601 
116101 
001405 
112720 
00500' 

010004 


000001 


177776 
000052 


000002 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000040 


000055 
000060 

000012 


000013 
000055 


SBTTL  REP7B  -  REPLACE  REQUESTING  TASK'S  NAME  AND  LINE  ID 


REP7B  -  REPLACE  REQUESTING  TASK'S  NAME  AND  LINE  ID 

INPUTS: 

$$TASK=REQUESTING  TASK'S  NAME 
R2=P0INTER  INTO  SLT  MAPPING  TABLE  +  2 
R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 


SAVE  SLT  ADDRESS 

REPLACE  REQUESTING  TASK'S  NAME 

LOOK  FOR  THE  SECOND  ASTERISK 


SKIP  THE  ASTERISK 
COPY  BUFFER  ADDRESS 
GET  SLT  ADDRESS 
AND  DDM  PDV  INDEX 
ADD  PDV  TABLE  ADDRESS 
GET  PDV  ADDRESS 

GET  DDM  PROCESS  NAME 
CONVERT  TO  ASCII 
DISCARD  TRAILING  BLANKS 


DEPOSIT  A  HYPHEN 

AND  AN  ASCII  ZERO 

GET  SLT  ADDRESS 

AND  CONTROLLER  NUMBER 

IF  ZERO,  NO  WORK  TO  DO 

SKIP  THE  ASCII  ZERO 

SUPPRESS  LEADING  ZEROES 

CONVERT  TO  OCTAL 

GEl  SLT  ADDRESS 

AND  L^JIT  NUMBER 

IF  ZERO,  NO  WORK  TO  DO 

DEPOSIT  ANOTHER  HYPHEN 

SUPPRESS  LEADING  ZEROES 

CONVERT  TO  OCTAL 

SET  NEW  BUFFER  ADDRESS 


;  OUTPUTS: 

R0,R1 

,R2=DESTROYE0 

R3,R4 

=UPDATED 

REP7B: 

MOV 

-2(fi2),-(SP) 

CALL 

REP7 

10S: 

MOVd 

(R5)+,(R4)      ; 

CMPP 

*'*,(R4)+ 

BNE 

10$ 

DEC 

R4 

MOV 

R4,R0 

MOV 

(SP),R1 

MOVB 

L.DDM(R1),R1    ; 

ADD 

aPDVTA.RI 

MOV 

.CBIAS(R1),R1 

15$: 

MOV 

Z.NAM(R1),R1 

CALL 

$C5TA 

20$: 

CMPB 

#•  ,-(R0) 

BEQ 

20$ 

INC 

RO 

MOVB 

tt'-JRO)* 

MOVB 

/t'OARO)* 
(SPJ.RI 

MOV 

MOVB 

L.CTL(R1),R1 

BEQ 

50$ 

DEC 

RO 

CLR 

R2 

CALL 

$C80MG 

30$: 

MOV 

(SP)t,R1 

MOVB 

L.UNT(R1),R1 

BEQ 

40$ 

MOVB 

#'-,(RO)t 

CLR 

R2 

CALL 

$C60MG 

40$: 

MOV 

RO,R', 

RETURN 
.END 
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MACRO  V05.0?b  Saturday  29-Jun-85  00:33  Page  5-1 
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NTLSYI 


115  000052 

1U  000052 

115  000066 

116 

117 

118 

119 

120 

121 

122 

123 

12A 

125  000072 

126  000072 
127 

128 

129 

130  000106 

131 

132 

133 

134 

135 

136  000112 

137 

138 

139 

HO 

141  000121 

K2 

K3 

K-i 

U5 

146  000125 

147 

148 

149 

150 

151  000233 

152  000234 

153  000243 
154 

155 
156 
157  000000 


123 


131 


123 


131 


130 


124 


130 


123 


01  s 

116 

124 

123 

131 

072 


SCFUIC: 


:.IF  Df 
.ASCI2 
.BLKB 
.IFF 
.ASCIZ 
.BLKB 
.ENDC 


R$$11M 

"SY:[130,10]" 

4 

•■SY:[11,61]" 
5 


COMM  fXEC  UK 


.IF  OF 
SCXUIC:  :.IF  DF 
072         .ASCIZ 
.IFF 
.ASCIZ 
.ENDC 
.BLKB 
.ENDC 


R$$11M 
M$$M6E 
"SV:[130.54]" 

"SV:C130,50]" 


DEFAULT  FILE  NAME 
130  IdFNAM::. ASCIZ  "XXXXXX" 

DEFAULT  EXTENSION 

113  DFEXT:   .ASCIZ  "T:,K" 

FILE  NAME(S)  STORAGE  AREA 
NAMES:   .BLKB   7«10. 

GENERAL  PURPOSE  FILE  NAME  (READY  FOR  OPEN  FAILURE  SECOND  ERROR  MESSAGE  LINE) 

FNERR:   .BYTE   15 

114  .ASCII   "NTL  —  " 

060  FILE:    .ASCIZ  "SYOO: CXXX.XXXJXXXXXXXXX.XXX 

.EVEN 
.PSECT 
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NTLTMF 


1 
2 

4 
5 
6 
7 
8 
9 

10 

11 

•;2 

13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
10 
41 
42 
43 
44 
45 
46 
II 
48 
49 
50 
51 
52 


.TITLE  NTLSYM  -  OFFSET  SYMBOL  DEFINITIONS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  '978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  GLOBAL  SYMBOL  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00     14-DEC-79 

DECNET-HM/S   V3.0 
DECNET-11M-PLUS   Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V5.0 
DECnet-Micro/RSX  Vl.O 
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n 


112  000016 

113  000020 
1U  000022 

115  000024 

116  000026 

117  000030 

118  000031 

119  000032 

120  000054 
121 

122  000050 
123 

124  000052 

125  000054 

126  000056 

127  000060 
128 

129 
130 
131 

132  000062 

133  000064 

134  0U0066 

135  000070 

136  000072 

137  000074 
138 

139 
140 
K1 
142 
143 
144 

145  000076 

146  000100 

147  000112 

148  000114 

149  000116 

150  000122 

151  000124 

152  000126 

153  000130 

154  000136 

155  000140 
156 

157  000142 

158  000144 
159 

160 
161 
162 
163 

164  000146 

165  000352 
166 

167 
168 


000012 
120000 


$ADDR: 
SMXADD 
SMXSIZ 
$OFF:: 
SMXLEN 
$NALL; 
SNLIB: 
SSZPTR 


SUBIAS: 

lUDA: 
$LDA: 
SMPLD 
$LFLD 


BLKW 
8LKW 
BLKW 
BLKW 
SLKU 
BLKB 
BLKB 
BLKW 
BLKW 


IF  DF  M$$MGE 


BLKW 
ENDC 
BLKW 
BLKW 
BLKW 
BLKW 


DDM  VECTOR  INFORMATION 


iVECTI 
$VECT2 
$VECT3 
SNVECT 
SICBAD 

sicesz 

SJSROF 


:.BLKW 
r.BLKW 
:.SLKW 
:.BLKW 
:.BLKW 
r.BLKW 
=  12 


SPRAPR  ==  120000 


ADDRESS 

ADDRESS  OF  MUX  TABLES 

SIZE  OF  ALL  MUX  TABLES  (ONLV  FOR  .MXPTB) 

OFFSET  VALUE/START  OF  MUX  TABLES 

MUX  TABLE  LENGTH  (KEPT  AS  NEGATIVE) 

NUMBER  OF  ALLOCATIONS 

NUMBER  OF  LIBRARY  REFERENCES 

POINTER  INTO  SIZE  TABLE 

$SIZE  SAVED  EACH  TIME  A  NEW  LEVEL  IS  ENTERED 

UNLOAD  BLOCK  BIAS 

UNLOAD  DATA  VIRTUAL  ADDRESS 
LIBRARY  DATA  VIRTUAL  ADDRESS 
".MPLHD"  DISPLACEMENT 
".LFLHD"  DISPLACEMENT 


DISPLACEMENT  OF  ".INT1"  FIELD 
DITTO  ".INT2" 
DITTO  ".INT3" 
NUMBER  OF  VECTORS 
ADDRESS  OF  KB 
SIZE  OF  KB 

OFFSET  FROM  SVECTX  TO  "JSR  a#..." 
ADDRESS  TO  USE  FOR  PARTITION  LINE  TABLES 
USE  KERNEL  APRS 


TPARS  ACTION  ROUTINES  INFORMATION 


ivALUE 
SFILEN 
$DIFF: 
SBFALL 
SBFLBN 
$SFPTR 
SBFXFR 
SBFBAS 
$FNR50 
$CVAL: 
SLBADR 

$CAPR:: 
SLBIAS: 


0. 


:.BLKW 
:.BLKB 

.BLKW 
:.BLKW 
:.BLKW 
:.BLKW 
:.8LKW 
:.6LKW 
:.BLKW 

.BLKW 
:.BLKW 

.IF  DF  M$$MGE 

.BLKW 
;.BLKW 

.ENDC 


3 


EXPRESSION  VALUE 

ASCIZ  FILE  NAME 

MODIFICATION  VALUE 

".BIN"  ALLOCATION  SIZE  IN  32.  WORD  BLOCKS 

".BIN"  LOGICAL  BLOCK  NUMBER 

".BIN"  BINARY  BUFFER  POINTER 

".BIN"  TRANSFER  SIZE  IN  BYTES 

BINARY/LIBRARY  FILE  TKB  BASE  ADDRESS 

FILE  NAME  IN  RAD50 

".CORE"  OPERAND  1  VALUE 

".LIBR"  DESCRIPTOR  BLOCK  ADDRESS 

".CORE"  OPERAND  2  APR  NUMBER 
".LI8R"  DESCRIPTOR  BLOCK  BIAS 


TEMPLATE  BUFFER  AND  BUFFER  SIZE 


i-MPBF : 
TMPSZ: 


.8LKB 
.BLKW 


132. 
1 


.NLIST  BEX 
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E  16 

PAGE    1 

CREf        04.00 


SYMBOL 

VALUE 

REFERENCES 

EPFX 

000507 

R 

#5-180 

15-488 

ERRBUF 

000361 

R 

#5-174 

15-491 

ERRMSG 

000354 

R 

#5-172 

15-506 

;rr$io 

=  ****** 

GX 

7-294 

^RRtll 

=  ****** 

GX 

7-295 

ERR$12 

=  ****** 

GX 

7-296 

ERR$9 

=  ****** 

GX 

6-257 

FL.DDM 

=  ****** 

GX 

12-413 

FL.DLC 

r    ****** 

GX 

13-428 

FL.ECH 

=     ****** 

GX 

6-249 

FL.LLC 

r     ****** 

GX 

15-484 

FMT2 

0007AO 

R 

5-189 

5-190 

5-191 

5-192 

5-121 

FM.2 

=  000000 

#5-189 

#5-190 

#5-191 

#5-192 

#5-193 

F1.BB0 

=  000001 

G 

#5-71 

10-367 

10-372 

Fl.ERR 

=  100000 

G 

#5-85 

15-487 

FLINT 

=  000002 

6 

#5-72 

F1.IN1 

=  000004 

G 

#5-73 

F1.IN2 

=  000010 

G 

#5-74 

F1.IN3 

=  000020 

G 

#5-75 

F1.LFI 

=  000040 

G 

#5-76 

F1.LFL 

=  000100 

G 

#5-77 

F1.MPL 

=  000200 

G 

#5-78 

F1.MPT 

=  000400 

G 

#5-79 

Fl.MXT 

=  001000 

G 

#5-80 

F1.STE 

=  002000 

G 

#5-81 

Fl.UMR 

=  004000 

G 

#5-82 

F1.VCT 

=  020000 

G 

#5-84 

F1.VSE 

=  010000 

G 

#5-83 

F2.8YT 

=  000001 

G 

#5-93 

F2.END 

=  000002 

G 

#5-94 

6-258 

F2.FIL 

=  000004 

G 

#5-95 

F2.LBR 

=  000010 

G 

#5-96 

F2.NEG 

=  000020 

G 

#5-97 

F2.SUB 

=  000040 

G 

#5-98 

IE. EOF 

~    *♦♦♦** 

GX 

7-290 

lE.RBG 

r     ****** 

GX 

7-292 

M$$MGE 

-   000000 

5-121 

5-156 

S$$BAS 

-    ****** 

5-189 
5-193 

5-189 

5-190 

5-190 

5-191 

TMPBF 

000146 

R 

#5-164 

7-278 

7-282 

9-329 

TMPSZ 

000352 

R 

#5-165 

♦7-281 

9-330 

TM.RD 

000210 

R 

6-247 

#7-278 

WPFX 

000 '.72 

R 

#5-179 

15-479 

SABFI 

~      ****** 

GX 

8-313 

SADDR 

000016 

RG 

#5-112 

SBFALL 

000114 

RG 

#5-148 

SBFBAS 

000126 

RG 

#5-152 

SBFLBN 

000116 

RG 

#5-149 

SBFPTR 

000122 

RG 

#5-150 

SBFXFR 

000124 

RG 

#5-151 

$BIN 

000004 

RG 

#5-103 

$CAPR 

000142 

RG 

#5-157 

#5-202 


5-191 


5-192 


5-192 


5-193 
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NTLDEV 

CREATED  BY     MACRO     ON  29- 

-JUN-85  AT   00 

30           PAGE 

4 

MACRO   CROSS 

REFERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CALL 

8-2A3 

8-2A5 

8-249 

8-251 

8-253 

8-255 

8-272 

9-320 

10-370 

10-375 

10-387 

10-389 

10-396 

10-404 

10-408 

n-439 

11-440 

11-446 

12-487 

12-488 

13-539 

13-553 

13-556 

13-561 

13-564 

13-581 

13-586 

16-699 

16-703 

16-716 

16-719 

17-741 

17-742 

17-747 

18-765 

18-774 

18-787 

18-789 

CALLR 

10-A17 

17-745 

17-748 

EMSG$ 

#5-59 

10-396 

10-404 

10-408 

EMSG$R 

#5-59 

8-279 

9-345 

9-346 

11-460 

11-461 

11-463 

11-464 

12-513 

13-611 

13-612 

13-613 

13-616 

13-617 

13-618 

13-621 

13-622 

ntlers 

#5-59 

7-156 

7-157 

7-158 

7-159 

7-160 

7-161 

7-162 

7-163 

7-164 

7-165 

7-166 

7-167 

7-168 

7-169 

7-170 

7-171 

7-172 

7-173 

7-174 

7-175 

7-176 

7-177 

RESRG 
RETJRN 

#5-59 
8-273 
18-795 

9-327 
19-812 

9-340 

10-411 

11-455 

12-491 

12-508 

13-600 

14-641 

16-721 

SAVR6 

#5-59 

SWSTKS 

9-320 

12-48? 

13-586 

17-742 

NTLGET 

MACRO  CR 

MACRO  Hf 

CALL 

DIRS 

EMSGS 

EXITSS 

NTLDFS 

NTLERS 

OFF$ 

QIOWS 

Rcvy$ 

RETC 

RETURN 

RSXOKS 

R50$ 

SOAT$ 

SWSTKI 


•♦F1LE«*ID«*NTLGET 


G  1 


'FILE* 


NTLGET  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:31 

MACRO   CROSS   REFERENCE 


MACRO  NAME 

REFERENCES 

CALL 

6-130 

6-UO 

6-150 

6-152 

D1R$ 

#5-58 

7-168 

8-208 

EMSG$ 

#5-58 

6-150 

EXITSS 

#5-58 

NTLDFS 

#5-58 

5-60 

NTLERS 

#5-58 

5-99 

OFF$ 

#5-81 

#5-86 

QIOWS 

#5-58 

Rcvy$ 

#5-58 

5-81 

RETC 

#5-58 

9-236 

RETURN 

6-U5 

7-180 

8-209 

9-250 

RSXOKS 

#5-68 

6-126 

R50S 

#5-81  ■ 

5-81 

#5-86 

5-86 

SDAT$ 

#5-58 

5-86 

SWSTKS 

9-228 

F     2 

PAGE  3 

CREF       0^.00 
6-153 


8-197 


9-228 


9-230 


9-234 


9-2^9 


t«FILE«»lD«*NTLKMC 


G    2 


NTLKHC  -  LOAD  KMC  MICRO-CODE 
KMC  LOAD  LIST  HOUSEKEEPER 

389 
390 
391 
392 
393 
39A 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 

410  000234 

411  000234 

412  000240 

413  000246 

414  000252 

415  000260 

416  000264 
417 
418 
419 

420  000272 
421 

422  000276 

423  000302 

424  000306 
425 
426 
427 
428 

429  000310 
430 
431 
432 

433  000314 

434  000316 
435 
436 

437  000320 

438  000322 

439  000324 
440 
441 
442 
443 
4A4  000326 


F  3 
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.SBTTL  KMC  LOAD  I  1ST  HOUSEKEEPER 


-KMCLL-  KMC  LOAD  LIST  HOUSEKEEPER 

THIS  ROUTINE  WILL  KEEP  HOUSE  FOR  THE  KMC  LOAD  LIST.   THIS  IS  A 
LIST  OF  KMC'S  WHICH  HAVE  ALREADY  HAD  THEIR  MICRO-CODE  ^OADED 
(Oft  AT  LEAST  HAVE  BEEN  TRIED).   IT  HOLDS  ALL  THE  INFORMATION 
NECESSARY  TO  RELOAD  THE  MICRO-COOE  AFTER  A  POWER-FAIL. 

INPUTS: 

SNAME  =  RAD50  PDV/DEVICE  NAME 

$SLTA  =  SYSTEM  LINE  TABLE  ENTRY  ADDRESS 

$$CSR  =  KMC  CSR  ADDRESS 

SNTLPT  =  ADDRESS  OF  NTL  CONTROL  DATA  BLOCK 

.CXKMC  IN  DATA  BLOCK  CONTAINS  ADDRESS  OF  FIRST  LOAD  LIST  BLOCK 

(CONTAINS  ZERO  IF  NO  BLOCKS  ALLOCATED  YET) 
NO  REGISTER  SAVING  IS  NECESSARY 


005067  000014' 

016767  OOOOOOG  000000' 

016700  OOOOOOG 

116067  000012  000004' 

105067  000005' 

016767  OOOOOOG  000002' 


016700  OOOuOOG 
010203 

062703  OOOOOOG 


011300 
001427 


010011 
010200 
010203 


005720 


OUTPUTS: 

C-8IT 

KMCLL: 


SUCCESS/FAILURE 


CLR 

KMCPN1 

MOV 

$NAME,KMCNAM 

MOV 

$SLTA,RO 

MOVB 

L.CTL(RO),KMCNUM 

CLR8 

KMCNUM+1 

MOV 

$$CSR,KHCCSR 

.IF  DF 

M$$MGE 

.IF 

DF,R$$11M 

SWSTKS 

55$ 

.ENDC 

MOV 

$NTLPT,RO 

CALL 

$MAPX 

MOV 

R2,R3 

.IFF 

MOV 

$NTLPT,R3 

.ENDC 

ADD 

#. CXKMC, R3 

;  GET  THE  ADDRESS  OF  THE  NEXT  LO 

8-INIT  "LINK  TO  NEW  BLOCK"  POINTER 

B-COPY  STUFF  BECAUSE  WILL  LOSE 

B-  MAPPING  TO  ROOT  SEGMENT 

B-GET  THE  CONTROLLER  NAME  AND  NUMBER 

B-ZERO  LOCAL  MICRO-CODE  LENGTH 

e-GET  THE  KMC  CSR  ADDRESS 


;M-SWITCH  STACKS,  GO  TO  55$  ON  EXIT 

M-GET  BIAS  OF  THE  DATA  BLOCK 
M-MAP  IT,  SET  R1=MAP  REGISTER,  AND 
M-  R2  (AND  R3)  ->  BASE  OF  BLOCK 


10$: 


MOV 
BEQ 

.IF  DF 

MOV 

MOV 

MOV 

.IFF 

MOV 

.ENDC 

TST 


(R3),R0 
45$ 

M$$MGE 
R0,(R1) 
R2,R0 
R2,R5 

R0,R3 
(R0)  + 


;U-POINT  AT  THE  DATA  BLOCK 


;B-POINT  AT  FIRST  LOAD  LIST  LINK 


;B-COPY  ADDRESS  OF  LIST  FROM  LINK 
;B-BR  IF  NO  NEXT  LIST 


M-MAP  TO  LIST 

M-POINT  RO  AT  LIST 

M-RESET  R3  TO  BEGINNING  OF  BLOCK 

;U-SE'"  TO  POINT  AT  NEXT  LINK 
;8-P0INT  AT  FIRST  ENTRY 


NTLKMC  -  LOAD  KMC  MICRO-CODE 
KMC  LOAD  LIST  HOUSEKEEPER 
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NTLKHC  -  LOAD  KMC 
Symbol  table 


F  4 
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A$$CHK= 

A$tCPS= 

A$$PRI= 

A$$TRP= 

C$$CKP= 

CUORE  = 

C$$RSH= 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FMT10A 

FMT10B 

FMT10C 

FM.10A= 

FM.10B= 

FM.10C= 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$SRDN= 

KMCBUF 

KMCCSR 

<MCOEV 

KMCEBF 

KMCEFT 

KMCEMS 

KMCERl 

KMCER2 

KMCER3 

KMCEX 

KMCFEC 

.  ABS. 


000000 

000000 

000000 

000000 

000000 

000^00 

17756A 

17751A 

000000 

000001 

000000 

000000 

000000 

000512R 

0005^0R 

00061 5R 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

CjOOOO 

000000 

000000 

OOOOOOR 

000002R 

000006R 

000024R 

001234R 

000034R 

00001 6R 

000020R 

000022R 

001232R 

001312R 


177776 
001532 
DATA  000700 
..KMC  000002 
Errors  detected: 


KMCFEO 
KMCLD 
KMCLL 
KMCMP1 
KMCNAM 
KMCNUM 
<MCPN1 
KMCRLI 
KMCRL2 
KM.ALL= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
002  K$$TPS= 
002  LDSLP  = 

002  LF.ACT= 
LF.8R0= 
LF.BUT= 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 

003  LF.SER= 
002  LF.riM= 
002  LF.UNL= 
002  LF.X2P= 

LN.CLO= 
002  LN.DUM= 
002  LN.LOA= 
002  LN.LDC= 
002  LN.OAU= 
LN.OFF= 
LN.ON  = 


001320R 

000542R 

00023^R 

00001 2R 

OOOOOOR 

000004R 

OOOOUR 

001372R 

00U44R 

000001 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

00'^004 

000003 

000003 

000001 

000000 


LN.00P= 
LN.OPE= 
LN.REF= 
002  LN.SER= 
002  LN.STA= 
002  LN.SUB= 
002  LN.TRI= 
LOAD 
L$BFLG= 
L$BLDZ= 
L$BHX2= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.COST 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 
L.DI.M 
L.DLS 
L.FLG 
L.KRBA 
L.LEi^!  = 
L.MPr 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 
M$$CRB= 
M$$CRX= 
M$$FCS= 
H$$MGE- 
M$$NET= 


000004 

M$$rvR= 

000000 

X$$DBT= 

000000 

000001 

N$$ACC= 

000001 

ZF.DIA= 

******  GX 

000002 

N$$BUF= 

000001 

Z.FLG  = 

******  GX 

000002 

N$$LDV= 

000001 

$ALN18= 

******  GX 

000017 

N$$HCP= 

000001 

$AZFS  = 

******  GX 

000360 

N$$MLL= 

000001 

$CBDSG= 

******  GX 

000006 

N$$HOV= 

000010 

$CBOMG= 

******  GX 

000624R 

N$$NCT= 

000001 

$CLDEQ= 

******  GX 

******  GX 

N$$PEM= 

000001 

$CLI0S= 

******  GX 

******  GX 

P$$P45= 

000000 

$CLOPE= 

******  GX 

******  GX 

P$$WD= 

000000 

$C5TA  = 

******  GX 

000000 

Q$$CPT= 

000010 

$DFN2  = 

******  GX 

000000 

R$$DER= 

000000 

$ERR3A 

000142R 

002 

000001 

R$$K11= 

000001 

$ERR3C 

0001 74R 

002 

000000 

R$$SND= 

000000 

$ERR3D 

000230R 

002 

000015 

R$$11M= 

000000 

$ERR3E 

000276R 

002 

000012 

SF.ACT= 

000200 

$ERR3F 

000342R 

002 

177776 

SF.ENA= 

000100 

$ERR3H 

000404R 

002 

000002 

SF.LPB= 

000004 

$ERR3I 

000436R 

002 

000004 

SF.MFL= 

000040 

$ERR3J 

000500R 

002 

000003 

SF.PAC= 

000020 

SIOSB  = 

******  GX 

000006 

SF.REA= 

000010 

$KMC 

OOOOOORG 

000010 

SF.SER= 

000001 

SKMCPF 

000036RG 

000000 

SF.SVC= 

000002 

$LBN  = 

******  GX 

000016 

SF.UNL= 

000040 

SMAPX  = 

******  GX 

000022 

S$$WRG= 

000000 

SNAME  = 

******  GX 

000022 

S$$YSZ= 

007600 

$NTLPT= 

******  GX 

000020 

S.COST 

000001 

SPDVA  = 

******  GX 

000014 

S.FLG 

000000 

SREAD  = 

******  GX 

000021 

S.LEN 

000004 

$REP.C= 

******  GX 

000013 

S.NMST 

000002 

$REP.P= 

******  GX 

000124 

S.OWNR 

000003 

SRLBL  = 

******  GX 

000000 

TS$NHD= 

******  GX 

SSLTA  = 

******  GX 

000000 

T$$KMG= 

000000 

$TI0UT= 

******  GX 

000000 

T$$MIN= 

000000 

$$CSR  = 

******  GX 

000000 

V$$CTR= 

001000 

.CXKMC= 

******  GX 

000 
001 
002 
003 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 


*♦*  Assembler   statistics 

Work      file     reads:  0 

Work      file   writes:  0 

Size  of  work    tile:  12053  Words      (   48  Pages) 

Size  of   core  oool:  14440  Words      (    55  Pages) 

Operating     system:  RSX-11M/PLUS 

SY:NTUMclv2![132,134lNTLI<MC/CR/-SP=SY:[l,ljR5XMCM.SML/ML,[130,110]NETLie/ML,t130,10]RSXMCM/PA:1,[132,10]NTLKMC 


NTLKMl 
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NTLPRO  -  "SET   PROCESS"  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85   00:31 
SXFER   -   TRANSFER   PROCESS    TO   CORE 


513  000212 

103402 

BCS     111J 

31A  0002H 

20$: 

RETURN 

315 
316 
317 

318 

;  ERROR 

CONDITIONS 

319 

■ 

320  000216 

101$: 

CRASH 

321  000220 

111$: 

EMSGSR  QX 

322  000226 

016000 

000172' 

TSKERR: 

MOV     ETAB2-2(R0),R0 

323  0OC232 

CALLR   a(R0)+ 

Page  7-1 


IF  CS,  SYMBOLS  MISSING 


$XFER  SHOULD  NOT  HAVE  BEEN  CALLED 
AUX  TIMER  SYMBOLS  MISSING 
GET  ERROR  MESSAGE  CONTROL  BLOCK  ADDRESS 
PRINT  ERROR  MESSAGE 


NTLPRO  -  "SET  PROCESS"  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85 
AX5YM  -  AUX  SPECIAL  SYMBOLS     


l0;31  Page  8 


NTLPRO  CREATED  BY     MACRO     ON  29-JUN-85  AT   uO:32 

SYMBOL    CROSS   REFERENCE 


PAGE 
CREF 


F     6 

OA.OO 


SYMBOL 

VALUE 

REFERENCES 

AXSYM 

00023A  R 

7-312 

#8-340 

CMFRK 

=  »»««»*  GX 

8-344 

8-356 

DECPT 

=  ******  GX 

12-630 

12-646 

13-684 

DSPTAB 

000012  R 

#6-118 

10-465 

10-477 

DTBLK 

000056  R 

6-186 

#6-193 

DTSYM 

000062  R 

#6-194 

*10-524 

DTVAL 

000066  R 

#6-195 

10-542 

DSMNOD 

00OOA1 

13-686 

D$NA 

000062 

1 2-633 

12-656 

D$NN 

000060 

12-631 

12-647 

ETABl 

0001 6A  R 

#6-228 

10-583 

ETAB2 

000174  R 

#6-236 

7-322 

E$NBR 

OOOOH 

#5-62 

ESNBS 

000020 

#5-62 

ESNCR 

000034 

#5-62 

ESNCb 

000036 

#5-62 

ESNIC 

000044 

#5-62 

ESNLEN 

000050 

#5-62 

13-688 

13-711 

ESNLLA 

000012 

#5-62 

ESNLNK 

000000 

#5-62 

E$NML 

000040 

#5-62 

ESNMR 

000024 

#5-62 

E$NM5 

000030 

#5-62 

ESNNOD 

000002 

#5-62 

E$NRT 

000042 

#5-62 

ESNRTP 

000005 

#5-62 

ESNSEG 

000010 

#5-62 

ESNTIM 

000046 

#5-62 

ESNUSE 

000004 

#5-62 

ESSTRT 

000006 

#5-62 

1$$AS 

-   ****** 

7-297 

7-301 

12-641 

LF.ACT 

=  100000 

#5-65 

LF.BRO 

=  000400 

#5-65 

LF.BWT 

=  000007 

#5-65 

LF.ENA 

=  002000 

#5-65 

LF.LPB 

=  001000 

#5-65 

LF.MDC 

=  000100 

#5-65 

LF.MFL 

=  004000 

#5-65 

LF.MTP 

=  000020 

#5-65 

LF.PAC 

=  000200 

#5-65 

LF.RDY 

=  040000 

#5-65 

LF.REA 

=  010000 

#5-65 

LF.SER 

=■■  000040 

#5-65 

LF.TIM 

=  000010 

#5-65 

LF.UML 

=  020000 

#5-65 

LF.X2P 

=  000000 

#5-65 

LN.CLO 

=  000000 

#5-65 

LN.DUH 

=  000005 

#5-65 

LN.LOA 

=  000004 

#5-65 

LN.LOO 

^  000003 

#5-65 

LN.CAJ 

=  000003 

#5-65 

LN.OFF 

=  000001 

#5-65 

•10-519 


•10-520 


10-521 


13-715 


13-721 


13-693 


NILPRO 


create:^  BY     MACRO     ON  29-JUN-85  AT   00:32 
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NTLROO  -  NIL  ROOT  SEGMENT 
VECTORED  EXEC  TABLE 


2-15 
219 
220 
221 
222 

223  000000 

224  000002 

225  000004 

226  000006 

227  000012 

228  000014 
229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243  000016 

244 


F  7 
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000016 


245 
246 
2'.7 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
26? 
263 
264 
265 
266 
267 

268  G00020 

269  00002? 

270  C00024 

271  000026 
m  000030 
273 

274  000032 


000016 


000001 
000002 
000004 
000010 
004020 
004037 
000040 
000100 
000200 
000300 
000400 
001000 
002000 
004000 
010000 


;  GENERAL  INPUT 

PARAMETERS 

$RSXNM::.BLKW 

$$AST: 

.8LKW 

$$PRM: 

.BLKW 

$$TASK 

:.BLKU 

$FUNC: 

.BLKW 

SWISS: 

.BLKU 

.IF  DF 

R$$MPL 

.IFTF 

SICBI   ==  16 

.IFT 

SICBD   ==  30 

SVCTB: 

.WORD 

0 

SVCLN: 

.WORD 

0 

SLIBNM 

:.BLKB 

10. 

$LSVL: 

.BLKW 

1 

SLBVT: 

.BLKW 

1 

$L8BLK 

:.BLKW 

1 

.IFTF 

SICBLN 

:.W0RD 

SICBI 

MS.CSR 

MS.PRI= 

MS.VCT= 

MS.MTP 

MS.MUX= 

MS.LIN= 

MS. LLC 

MS.BUF= 

MS.PAR= 

MS.NT1= 

MS.NT2 

MS.INC= 

MS.EXT= 

MS. SEC 

MS.CIR= 


.ENDC 


1 
=2 
=4 

10 
=4020 

4037 

40 
=  100 
=200 

300 
=400 

1000 

2000 
=4000 
=10000 


PROCESS  PARAMETERS 


JCTBAD 
SURM:: 
SfiCDEV 
SFEATR 
SSEXT: 

.  NN :  : 


i.BLKW 

.BLKW 
:.BLKW 
:.6LKW 

.BLKW 

.BLKW   1 


ADDRESS  OF  SSYSNM 

NOTIFICATION  AST  ADDRESS 

NOTIFICATION  AST  PARAMETER  TO  RETURN 

REQUESTING  TASK'S  NAME 

FUNCTION  CODE 

MISSING  PARAMETERS  BIT  MASK 


KB  LENGTH  I-SPACE  ONLY 

KB  LENGTH  I/D-SPACE  SYSTEMS 
ADDRESS  OF  PROCESS  VECTOR  TABLE 
SIZE  OF  PROCESS  VECTOR  TABLE  (WORDS) 
ASCII  NAME  OF  LIBRARY 
VALUE  OF  SXXXVL  FOR  LIBRARY 
VALUE  OF  SXXXVT  FOR  LIBRARY 
VALUE  OF  LIBRARY  BIAS 


DEFAULT  KB  LENGTH  TO  I-SPACE  ONLY 


CSR  MISSING 

INTERRUPT  PRIORITY  MISSING 

VECTOR  MISSING 

MULTIPOINT  STATION  NUMBERS  MISSING 

MUX  UNIT  INFORMATION  MISSING 

LLC  INFO  MISSING 

BUFSDF  MISSING 

PARSDF  MISSING 

NTINIT  PHASE  1  INFO  MISSING 

NTINIT  PHASE  2  INFO  MISSING 

LINE  TABLE  COUNT  MISSING 

CONTROLLER  TABLE  COUNT  MISSING 

SECONDARY  CSR  MISSING 

CIRCUIT  PARAMETERS  ARE  MISSING 


CTB  ADDRESS  (FOR  RSX-11M+  ONLY) 

UNiBUS  RUN  MASK  (FOR  RSX-nM+  ONLY) 

RE-CONFIGURATION  DEVICE  (FOR  RSX-IIM*-  ONLY) 

CURRENT  LLC  DEVICE  FEATURES  WORD 

PROCESS  EXTENSION  IN  32.  WORD  BLOCKS 

FOR  DDM'S  -  NUMBER  OF  CONTROLLERS  IN  PROCESS  SPACE 

NUMBER  OF  NODES  MAXIMUM 


NTLROO  -  NTL  ROOT  SEGMENT 
VECTORED  EXEC  TABLE 


MACRO  V05.03b  Saturday  29-Jun-85 


§0:32 
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NTLROO  -  NTL  ROOT  SEGMENT 
$SCIR  -  SET  CIRCUIT 


801 
802 
803 
80A 
805 
806 
807 
808 
809 
810 
811 
812 
813 
3U 

815  000636 

816  0006A2 

817  000646 

818  000650 

819  000656 

820  000662 

821  000664 

822  000670 

823  000672 

824  000700 

825  000704 

826  000710 

827  000716 

828  000720 

829  000724 

830  000726 
'-'      "0734 

J740 


MACRO  V05.03b  Saturday  29-Jun-85  00:32  Page  14 


.SBTTL  $SCIR  -  SET  CIRCUIT 


$SCIR  -  SET  CIRCUIT 

INPUTS: 

SPDVA  -  PDV  ADDRESS 
$SLTA  -  SLT  ADDRESS 

OUTPUTS: 

CIRCUIT  DATA  BASE  IS  SET  UP  FROM  CETAB 


NTLROO 

MACRO  n 

MACRO  N 

CCBDFS 
SLTDFS 


iSCIR: 


831 
832 
833 

834  000742 
835 


016701  000062' 

004767  177626 

001016 

012767  003000  000014' 

004767  OOOOOOG 

105427 

004767  OOOOOOG 

103424 

052767  020000  001232' 

010160  OOOOOOG 

016700  000136'        10$: 

032760  040000  000000 

001003 

004767  OOOOOOG 

103406 

052767  010000  000014'  20$: 

004767  OOOOOOG 

000207 


000167  OOOOOOG 
000000' 


101S 


MOV 

$PDVA,R1 

CALL 

AIC 

8NE 

10$ 

MOV 

#MS.INC1MS.EXT 

CALL 

$NLCFG 

BCS 

101$ 

CALL 

$XFER 

BCS 

101$ 

BIS 

#FL.PX2,$FLAGS 

MOV 

R1,Z.PCB(R0) 

MOV 

$SLTA,R0 

BIT 

#LF.RDY,L.FLG( 

BNE 

20$ 

CALL 

$TMP 

BCS 

101$ 

BIS 

#MS.CIR,$MISS 

CALL 

$NLCFG 

RETURN 

JMP 

$XLIN 

.END 

$NTL 

,$MI 


R05 


GET  DIM'S  PDV  ADDRESS 

IS  DLM  ALREADr  IN  CORE? 

IF  NE,  YES 

SS    ;  LOOK  FOR  PROCESS  INCREMENT 

..IN  CETAB 

IF  CS,  FAILED 

TRANSFER  DLM  INTO  CORE 

IF  CS,  FAILURE 

INDICATE  SUCCESSFUL  DDM  TRANSFER 

INDICATE  PROCESS  IS  LOADED 

GET  SLT  ADDRESS 

;  HAS  LINE  TABLE  BEEN  EXPANDED? 

BR  IF  YES 

EXPAND  LINE  TABLE 

INDICATE  CIRCUIT  PARAMETERS  ARE  MISSING 
LOOK  FOR  CIRCUIT  IN  CETAB 


DO  A  PARTIAL  CLEAR  LINE 
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•FILE" 


MLROO  CREATED  BV     MACRO     ON  29-JUM-85   AT    00:32 

MACRO   TROSS   RE''ERENCE 
MACRO  NAME  REFERENCES 


CCBDFS 
SLTDft 


F     9 

PAGE   10 

CREF        0^.00 


#4-59 
#'1-59 


A-62 
4-61 


G     9 


"F!LE*'!D««NTLRQB 
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3A8 
349 
350 
351 
352 
353 

355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 

369  000262 

370  000270 

371  000276 

372  000300 

373  000304 

374  000310 

375  000312 

376  000320 

377  000324 

378  000332 

379  000334 

380  000340 

381  000342 

382  000350 

383  000352 

384  000356 
38'  000362 

386  000366 

387  000372 
383  000376 
389  000402 


.SBTIL  CHKPP  -  CHECK  PROCESS  PARAMETERS 


CHKPP  -  CHECK  PROCESS  PARAMETERS 

INPUTS: 

LS.OPT  SET  IF  ANY  OPTIONAL  PARAMETERS 
R3=REQUEST  BLOCK  POINTER 


.8LKW 
.BLKW 
.BLKW 


LO.LIN  -  NUMBER  OF  LINE  TABLES 
LO.CON  -  NUMBER  OF  CONTROLLERS 
LO.PAR  -  PARTITION  NAME 


IN  PROCESS  SPACE 
IN  PROCESS  SPACE 


OUTPUTS: 

R3=DESTR0YED 
$$INC=LINE  TABLE  COUNT 
$$EXT=C0NTR0LLER  TABLE  COUNT  IF  NON-LLC 
$$PAR=PARTITION  NAME 


012767 
032767 
001002 
012703 
012367 
001403 
042767 
005067 
032767 
001006 
011367 
001403 
042767 
005723 
012367 
011367 
005067 
005067 
005067 
005067 


OOOOOOC  OOOOOOG  CHKPP: 
000400  000004G 


000116' 
OOOOOOG 


10$: 


OOOOOOG  OOOOOOG 
OOOOOOG       20$: 
OOOOOOG  OOOOOOG 

OOOOOOG 


0000006  OOOOOOG 

OOOOOOG 
000002G 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


30$: 


MOV  #MS.INCIMS.EXT,$MI 

BIT  #LS.0PT,$$LRB+4 

BNE  10$ 

MOV  *NULL,R3 

MOV  CR3)+,$$INC 

BEQ  20$ 

BIC  #MS.INC,$MISS 

CLH  $$EXT 

BIT  #FL.LLC,$FLAGS 

BNE  30$ 

MOV  (R3),$$EXT 

BEQ  30$ 

BIC  #MS.EXT,$MISS 

TST  (R3)+ 

MOV  (R3)+,$$PAR 

MOV  (R3),$$PARt2 

CLR  $$DEV 

CLR  $$TBL 

CLR  $$LINX 

CLR  $$N0DC 

RETURN 


SS    ;  ASSUME  PROCESS  EXTENSION  FIELDS  ABSENT 

ANY  OPTIONAL  PARAMETERS  INCLUDED? 

IF  NE,  YES 

IF  NOT,  USE  NULL  PARAMETERS 

SET  LINE  TABLE  COUNT 

IF  EQ,  LINE  TABLE  COUNT  NOT  PRESENT 

ELSE,  NO  LONGER  MISSING 

CLEAR  LLC  PROCESS  EXTENSION 

IS  THIS  AN  LLC  ? 

IF  NE,  YES 

SET  CONTROLLER  TABLE  COUNT 

IF  EQ,  CONTROLLER  COUNT  NOT  PRESENT 

ELSE,  NO  LONGER  MISSING 

SKIP  CONTROLLER  TABLE  COUNT 

SET  PARTITION  NAME 

INDICATE"nO  DEVICE  NAME  (YET) 
AND  NO  DISPATCH  TABLE  ADDRESS 
CLEAR  LOGICAL  LINK  COUNT 
CLEAR  NODE  COUNTERS  COUNT 
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866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
881 
881 
882 
883 

884  002156 

885  002156 
886 

887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 

901  002162 

902  002164 

903  002170 
904 

905  002174 

906  002202 

907  002204 

908  002210 

909  002212 
910 

911  002214 

912  002220 

913  002222 

914  002226 

915  002234 

916  002236 

917  002240 

918  002244 

919  002246 

920  002250 

921  002252 

922  002256 


.SBTTL  CCEX  -  CHECK  CLEAR  CEX  REQUEST  BLOCK 

h 

CCEX  -  CHECK  "CLEAR  CEX"  REQUEST  BLOCK 

INPUTS: 

$PDVA=PDV  ADDRESS 
SPDVNUM^NUMBER  OF  PDV  ENTRIES 
$SLTMA=SLT  TABLE  ADDRESS 
$SLTNH=NUMBER  OF  SLT  ENTRIES 

OUTPUTS: 

C-8IT=5UCCESS/FAILURE 


004567  OOOOOOG 


CCEX: 


5$: 


005000 

005067  000126' 

017705  OOOOOOG 

017767  OOOOOOG  000134' 

001002 

000167  000444 

012504  10$: 

001566 

005764  OOOOOOG 

001563 

010467  OOOOOOG 

132764  OOOOOOG  OOOOOOG 

001541 

005002 

156402  OOOOOOG 

001447 

006302 

010401 

062701  OOOOOOG 

060102 


JSR 

R5,$SAVRG 

SAVE  R3,R4,R5 

.IF  DF 

I$$AS 

CLR 

RO 

MOV 

#"NS,R4 

GET  NS  DEVICE  NAME  IN  ASCII 

CLR 

R5 

UNIT  NUMBER  0 

CALL 

..FDEV 

LOOK  FOR  PUD  ENTRY 

BCS 

5$ 

BR  IF  NOT  FOUND 

BITS 

#UM.RT,U.MN(R5) 

IS  NS:  STILL  MOUNTED? 

BEQ 

5$ 

BR  IF  NO 

MOV 

U.DN(R5),R1 

GET  NAME  OF  MOUNTED  DEVICE 

EMSGSft 

Z4 

INDICATE  DEVICE  STILL  MOUNTED 

.ENDC 

CLR 

RO 

USED  AS  AN  ERROR  INDICATOR 

CLR 

PDVX 

START  WITH  PDV  INDEX  =  0 

MOV 

aPDVTA,R5 

GET  PDV  TABLE  ADDRESS 

MOV 

aPDVNM,POVNUM 

GET  NUMBER  OF  PDV  ENTRIES 

BNE 

10$ 

IF  NON-ZERO,  ENTRIES 

J  MP 

190$ 

IF  ZERO,  NO  ENTRIES 

MOV 

(R5)+,R4 

GET  ADDRESS  OF  NEXT  PDV 

BEQ 

145$ 

ALLOW  FOR  BLANK  ENTRIES 

TST 

Z.PC8(R4) 

IS  IT  LOADED? 

8EQ 

145$ 

IF  EQ,  NO 

MOV 

R4,$PDVA 

SAVE  PDV  ADDRESS  FOR  ERROR  ME 

BIT8 

#FL.LLC,2 

FLG(R4 

;  IS  THIS  AN  LLC? 

BEQ 

130$ 

IF  EO,  NO 

CLR 

R2 

GET  THE  CHANNEL  COUNT 

BISB 

Z.LLN(R4) 

,R2 

BEQ 

50$ 

IF  EQ,  NONE 

ASL 

R2 

CONVERT  TO  A  WORD  INDEX 

MOV 

R4,R1 

•  GET  PDV  ADDRESS 

ADD 

#Z.MAP,R1 

•  POINT  AT  MAPPING  TABLE 

ADD 

R1,R2 

■  GIVING  END  OF  MAPPING  TABLE 
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NTLS'J 


A$$CHK= 

At$rPS= 

At$PRI= 

At$TRP= 

CCEX 

CEXLD 

CHKLP 

CHKPP 

CLIN 

CLRPP 

CPRO 

CS$CICP= 

CS$ORE= 

C$$RSH= 

DEVHD  = 

DEV7 

OV.MNT= 

D$$BUG= 

D$$IS<= 

D$$L11= 

D$$YNC= 

D$$YNM= 

D.DSP  = 

D.NAM  = 

D.PCB  = 

D.UCB  = 

D.UCBL= 

D.UN1T= 

ERRBUF 

ERRMSG 

E$$XPR= 

FE.CEX= 

FL.CEX= 

FL.DDM= 

FL.DLC= 

FL.ECH= 

FL.FDX= 

FL.HDX= 

FL.(CMX=: 

FL.LLC= 

FL.LMC= 

FL.MUX= 

FL.NTI= 

FL.TOP= 

FMASK  = 

FMAX   = 

FMT7 

FHT7A 

FHT7B 

FM.7  = 

FM.7A  = 

FM.7B  = 

FTAB 

F$$L\/L  = 

G$$TPP= 

G$$TSS= 

G$$'TK= 


000000 

000000 

000000 

000000 

002156R 

00016AR 

000730R 

000262R 

002054R 

001244R 

001306R 

000000 

000400 

17756A 

♦♦*»*»  GX 

003532R 

»♦•♦•«  GX 

1775U 

000000 

000001 

000000 

000000 

««♦»♦»  GX 

♦»*»«*  GX 

♦«*»♦»  GX 

♦♦«•*«  GX 

»»*♦>»  GX 

<♦♦*♦»  GX 

0001 70R 

000160R 

000000 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


****** 

****** 

****** 

****** 

****** 

****** 

****** 

000010 

OOU^i^R 

OOK-iSR 

001511R 

000000 

000000 

000000 

OOOOOOR 

000001 

000000 

000000 

000000 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


G3i'WR[)= 
l$tPAR= 
I$iRDN= 
KMCPF 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS^ 
LBITS 
LD$LP  = 
LF.ACT= 
LF.BRO= 
LF.BWT= 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.RDY= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LN.CLO= 
LN.DUH= 
LN.L0A= 
002  LN.LOO= 
002  LN.OAU= 
LN.0FF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.SUB= 
LN.TRI= 
LO.CON 
LO.CSR 
LO.CTL 
LO.LIN 
LO.PAR 
LO.PRl 
LO.SCR 
002  LO.STA 
002  LO.VCT 
002  LR.AST 
LR.CIR 
LR.CTL 
LR.EFN 
002  LR.LIN 
LR.PRM 
LR.PRO 
LR.STS 
LR.TCB 


000000 

000000 

000000 

0021 20R 

177546 

177546 

000000 

000074 

0001 36R 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000006 

000006 

000014 

000004 

000010 

000010 

000014 

000015 

000012 

000026 

000002 

000004 

000004 

000002 

000030 

000002 

000000 

000002 


LR.UNT 
LS.AST= 
LS.CEX= 
LS.CIR= 
LS.CX0= 
LS.CX5= 
LS.DLM= 
LS.ECH= 
002  LS.FDX= 
LS.HDX= 
LS.LIN= 
LS.LMC= 
LS.NTI= 
LS.ON  = 
LS.OPT= 
LS.PR0= 
LS.PWF= 
LS.TOP= 
LS.UNF= 
LS.X25= 
LS.11D= 
LX.CEX= 
LX.LJN= 
LX.PRO= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R^ 


COST 

CTL 

CVA 

DD.1 

DDS 

DLC 

DLM 

DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMSr 
L.NSTA 
L . OWNR 
L.UNT 
MS.CSR= 
MS.EXT= 
MS.JNC= 
MS.LIN= 
MS.LLC= 
MS.MTP= 
MS.PR1= 
MS.SEC= 
MS.VCT= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 


000005 
100000 
000001 
000010 
010000 
000400 
004000 
001000 
004000 
010000 
000003 
000007 
004000 
000011 
000400 
000002 
040000 
002000 
020000 
000012 
004000 
000004 
000006 
000005 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 

****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

000124 
000000 
000000 
000000 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


M$$NET= 

M$$OVR= 

NTLPT  = 

NULL 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$HCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PBITS 

PDVA 

PDVNM  = 

PDVNUM 

PDVTA  = 

PDVX 

P$$P45= 

P$$WRD= 

P.REL  = 

Q$$OPT= 

REP7 

REP7A 

REP7B 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SCEX 

SCIR 

SF.ACT= 

SF.ENA= 

SF.LP8= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLIN 

SLTA 

SLTMA  = 

SLTNM  = 

SPRO 

SPSAV 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OUNR 

T$$KMG= 

T$$MIN= 

UNITS 

US.BSY 


000000 

000000 

******  GX 

0001 16R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

OOOUdR 

000204R 

»«»»♦*  GX 

000134R 

******  GX 

0001 26R 

000000 

000000 

♦*♦***  GX 

000010 

003420R 

003422R 

003564R 

000000 

000001 

000000 

000000 

000070R 

002656R 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

001256R 

000464R 

******  GX 

******  GX 

000404R 

000132R 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

0001 30R 


US.MNT= 
U.CU1  = 
U.STS  = 
002  V$$CTR= 
X$$DBT= 
ZF.DDM= 
2F.DLC= 
ZF.KMX= 
ZF.LMC= 
ZF.MUX= 


002 


,DAT 
,FLG 
.LLN 
.MAP 
.NAM 
.PCB 


-   ******  GX 


002  ...  ._ 
$BIAS  = 

002  $RITS 
$CBOMG= 
$C5TA  = 
$DDMPV= 
$DLCPV= 
SERRZP 
SERRZR 
SERRZI 
$ERRZ3 
$ERRZ4 
$ERRZ5 
$ERRZ6 
$ERRZ7 
$ERR86 
$ERR87 
$ERR88 
$ERR90 
$ERR91 
$ERR92 
$ERR93 
$ERR94 
$ERR95 
$ERR96 
$ERR97 
$ERR98 
$ERR99 
$FLAGS= 
SFPDV 

v02  $FSLT 
SFUNC  = 
SMAPX  = 
$MISS  = 
$MXVCT= 
$NAME  = 
$NLCSR= 
SNLRQB 
$PCB  = 
SPDV  = 

002  $RER^ 
$SAVAL= 


****** 
****** 
****** 
001000 
000000 
****** 
****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 


=  ******  GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 

003016R" 

******  GX 

******  GX 

******  GX 

******  GX 

001406R 

001264R 

001120R 

001150R 

001162R 

001330R 

001354R 

001224R 

001062R 

001014R 

000752R 

00071 6R 

000660R 

00061 6R 

000552R 

000516R 

000462R 

000424R 

000366R 

000330R 

000276R 

******  GX 

003050RG 

0031 40RG 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

OOOOOORG 

******  GX 

******  GX 

003532RG 

*♦♦»♦♦  GX 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
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159 

+ 

160 
161 
162 

$DFN 

-  SETUP 

DEFAULT  FILE 

NAME 

INPUTS: 

163 

R0=RAD50  FILE  NAME, 

FIRST  HALF 

164 

R1=RA[)50  FILE  NAME, 

SECOND  HALF  ($DFN2  ONLY) 

165 
166 

OUTPUTS: 

167 

R0,Rl,R2=DESIROYFD 

168 

;DFN:: 

169  000000 

170  000000 

005001 

CLR 

R1 

;  NO  SECOND  HALF 

171  000002 

;DFN2:. 

172  000002 

010146 

MOV 

R1,-(SP) 

SAVE  SECOND  HALF 

173  000004 

010001 

MOV 

RO.RI 

COPY  FIRST  HALF 

174  000006 

012700 

000112' 

MOV 

*$DFNAM,RO 

GET  DEFAULT  FILE  NAME  ADDRESS 

175  000012 

CALL 

10$ 

CONVERT  TO  ASCII 

176  000016 

012601 

MOV 

(SP)+,R1 

RESTORE  SECOND  HALF 

177  000020 

001407 

BEQ 

20$ 

IF  ZERO,  USE  FIRST  HALF  ONLY 

178  000022 

10$: 

CALL 

$C5TA 

CONVERT  TO  ASCII 

179  000026 

122740 

000040 

15$: 

CMPB 

#'  ,-(R0) 

SKIP  TRAILING  BLANKS 

180  000032 

001775 

BEQ 

15$ 

181  000034 

005200 

INC 

RO 

182  000036 

105010 

CLRB 

(RO) 

MAKE  IT  AN  ASCIZ  STRING 

183  000040 

20$: 

RETURN 

NTLSUB  -  COMMON  SUBROUTINES     MACRO  V05.03b  Saturday  29-Jun-85  00:33  Page  7 


00:33 


NTLSY 


F  U 

NT;.SVM  -  OFFSET  SYMBOL  DEFINUI  MACRO  V05.03b  Saturday  29-Jun-85  00:34  Page  5 


NTLTMt 


54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A  000000 


000000 
000002 


000004 
000006 
000007 
000010 

000012 


OOOOU 

000016 
000020 


000016 


ooo:oo 

000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 

001000 
002000 
004000 
010000 
020000 
040000 
100000 


;  LIBRARY  MACROS 
•  *** 

.MCALL  PDVDFS 


•  lillil 

';   GLOBAL  LIBRARY  SYMBOLS 

•  ♦«* 


PDVDFS  <=>,<:>, LIST    ;  PROCESS  DESCRIPTION  VECTOR  OFFSETS 
PROCESS  DESCRIPTOR  VECTOR  OFFSETS  AND  BIT  DEFINITIONS 


Z.DSP::  .8LKU 
.BLKU 


Z.OUE: 

Z.NAM: 
Z.LLN: 
Z.SCH: 
Z.FLG: 

Z.PC8: 


Z.GCD:: 

Z.AVL:: 
Z.LEN== 
Z.DAT:: 
Z.MAP:: 


.IF  DF 

.BLKW 

.ENDC 

.BLKW 

.BLKB 

.8LK8 

.BLKU 

.IF  DF 

.BLKU 

.ENDC 

.IF  DF 

.BLKW 

.ENDC 

.BLKW 

.-Z.DSP 

.BLKW 


1 
1 

X$$MCB 
1 


RELOCATION  BIAS  OF  DISPATCH  TA-^LE 
VIRTUAL  ADDRESS  OF  DISPATCH  TABLE 


ADDRESS  OF  SCHEDULER  LEVEL  QUEUE 


1       ;  PROCESS  NAME  (RAD50) 

1       ;  *  OF  LOGICAL  LINES  (LLC'S  ONLY) 

1       ;  PROCESS  PRIORITY  (COMPLEMENT) 

1       ;  FLAGS  WORD 

X$$MCB!R$$11MIR$$11S 

1       ;  PCS  OF  LOADED  PROCESS  PARTITION 


R$$11DII$$AS 


ADDRESS  OF  GCD  NODE (  0  =  PROCESS  NOT  RESIDENT  ) 

POINTER  TO  FIRST  FREE  BLOCK  IN  PROCESS  SPACE 

LENGTH  OF  PDV 

BIAS  OF  LLC  DATA  BASE 

DISPLACEMENT  OF  LLC  MAPPING  TABLE 


;  FLAGS  WORD  BIT  DEflNTIONS 

ZF.X3P==   0  ;  PROCESS  REtJUIRES  PARAMETERS  FROM  X3P$Df  MACRO 

ZF.DDM==   1  ;  PROCESS  IS  A  DDM 

ZF.DLC==   2  ;  PROCESS  IS  A  DLC 

ZF.LLC==   4  ;  PROCESS  IS  A  LLC 

ZF.MFL==  10  ;  PROCESS  IS  MARKED  FOR  LOAD  (  WITH  NS  ) 

ZF.KMX==  20  ;  PROCESS  IS  A  DDM  FOR  A  KMC  DEVICE 

2F.MUX==  40  ;  PROCESS  IS  A  DDM  FOR  A  MULTIPLEXER  DEVICE 

ZF.LMC==  100  ;  PROCESS  REQUIRES  MICRO-CODE  TO  BE  LOADED 

ZF.TIM==  200  ;  PROCESS  REQUESTS  TIMER  SUPPORT 

ZF.MTM==  400  ;  PROCESS  REQUIRES  TIMER  ENTRY  ON  EVERY  ACTIVE  PROCESSOR 

;  (RSX-IIMt  MULTI-PROCESSOR  SYSTEMS  ONLY) 

ZF.COU==1000  ;  LLC/DLC  PROCESS  SUPPORTS  COUNTERS 

ZF.PSE==2000  ;  PROCESS  IS  A  PSEUDO  DDM/DLC 

2F.DIA==4000  ;  PROCESS  REQUIRES  DIAGNOSTICS  MICRO-CODE  LOAD 

ZF.SLI==10000  ;  PROCESS  SUPPORTS  SYSTEM  LEVEL  INTERFACE 

ZF.MAN==20000  ;  PROCESS  SUPPORTS  NETWORK  MANAGEMENT  REQUESTS 

ZF.INI==40000  ;  PROCESS  SUPPORTS  INITIALIZATION  AND  TERMINATE 

Zf.DVP==100000  ;  PROCESS  ALWAYS  RUNS  AT  IT'S  PRIORITY 
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169 
170 
171 

172  000?54 

173  00035S 
17A  000361 
175 

176 
177 
178 

179  0004  72 

180  000507 
181 

182 
183 
134 
185 
186 
187 
188 

189  000514 

190  000554 

191  000602 

192  000630 

193  000676 
194 

195 

196 

197 

198 

199 

200 

201 

2C2  000740 

203 

204 

205 

206 

207  000000 


015 
116 


C55 
C55 


124 


055 
055 


ERROR  MESSAGE  BUFfER 

ERRMSG:  .BYTE  15 

114  .ASCII  "NIL  ' 

ERRBUF:  .BLKB  73. 


ERROR  MESSAGE  PREFIXES 


040  WPFX:    .ASCII 
040  EPFX:    .ASCIZ 

.EVEN 


"—  •WARNING* 


ERROR  MESSAGES 

.ENA8L  LC 

NTLERS  ,13,2,$TERR,$REP.C,$ELlNE,<Binary  Buffer  0verflow> 

NTLERS  ,21,2,$TERR,$REP.C,$ELINE,<DDM  0perator> 

NTLERS  ,79,2,$TERR,$REP.C,$ELINE,<DLC  Operator> 

NTLERS  ,82,2,$TERR,$RtP.C,$ELINE,<0perator  May  Not  Occur  TwKe> 

NTLERS  ,83,2,STERR,$REP.C,SELINE,<Primary  Template  Operator) 

.DSA8L  LC 


ERROR  MESSAGE  FORMAT  STRING 


052 


040 


124  FMT2: 


ENABL 

1  C 

NLIST 

HEX 

ASCIZ 

'  '* 

EVEN 

DSASL 

1  f 

LIST 

BtX 

Template 


.PSECT 
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NTLTMP  CREATED  Bv      MACRO     ON  29-JUN-85   H   00:3A 

SYMBOL    CROSS   REFERENCE 


F  16 

PAGE   2 

CREF        04.00 


SYMBOL 

VALUE 

REFERENCES 

tCLBUF 

=    ...••.      GX 

•7-278 

ECLDEQ 

=    »♦«••<      6X 

6-260 

SCLIOS 

=    •••*••     GX 

7-279 

SCLSIZ 

-    .♦«♦*.     GX 

•7-278 

tCVAL 

000136  RG 

#5-154 

$DIFF 

000112  RG 

#5-147 

SEFNLL 

000326  RG 

#9-326 

tELlNE 

000332  RG 

5-189 

5-190 

5-191 

$ERR13 

0005K  R 

#5-189 

10-371 

SERR21 

000554  R 

#5-190 

12-415 

$ERR79 

000602  R 

#5-191 

13-430 

tERR82 

000630  R 

#5-192 

14-459 

$ERR83 

000676  R 

#5-193 

14-460 

$EVEN 

0004  70  RG 

#11-393 

SFILEN 

000100  RG 

#5-146 

SflLEX 

=   «*••••     GX 

8-307 

SFLAGS 

=   •♦♦•••     GX 

6-249 

12-413 

13-428 

SFLAGI 

000000  RG 

#5-69 

•6-235 

10-367 

$FLAG2 

000002  RG 

#5-91 

6-242 

•6-245 

SFNOUT 

=   »*«*♦*     GX 

9-327 

$FNR50 

000130  RG 

#5-153 

SGCLEP 

=    •♦♦•••     GX 

7-278 

SICBAD 

000072  RG 

#5-136 

$ICBS7 

000074  RG 

#5-137 

$JSROr 

=  000012     G 

#5-138 

SLBADR 

000140  RG 

#5-155 

SLBIAS 

000144  RG 

#5-158 

$LDA 

000054  RG 

#5-125 

SLEFT 

000010  RG 

#5-105 

•10-369 

SLFLD 

000060  RG 

#5-127 

$MPLD 

000056  RG 

#5-126 

SMXADD 

000020  RG 

#5-113 

SMXLEN 

000026  RG 

#5-116 

$MXSIZ 

000022  RG 

#5-114 

tNALL 

000030  RG 

#5-117 

$NLIB 

000031   RG 

#5-118 

SNVECT 

000070  RG 

#5-135 

$OFF 

000024  RG 

#5-115 

tPRAPR 

=   120000     G 

#5-139 

$PTR 

000006  RG 

#5-104 

10-377 

•10-378 

SREP.C 

=   ««»♦♦«     GX 

5-189 

5-190 

5-191 

$RQ1 

000404  RG 

#10-366 

$RQ2 

000376  RG 

#10-364 

11-396 

$RQ3 

000370  RG 

#10-362 

$RQ4 

000362  RG 

#10-360 

$RQ5 

000354  RG 

#10-358 

iRQ7 

000346  RG 

#10-356 

SSAVAL 

=    ».*»«»     GX 

6-241 

15-489 

$SIZE 

000014  RG 

#5-111 

6-244 

11-394 

SSLTA 

r     »♦•**♦        GX 

6-225 

SSLTSV 

000012  RG 

#5-110 

•6-225 

SSZPTR 

000032  RG 

#5-119 

•6-243 

6-244 

5-192 


5-193 


6-251 


#9-328 


15-480  15-484 

•10-372  10-375 

6-258  •6-261 


U-448 


•14-450 


•15-487 


5-192 


01-400 


•6-262 


5-193 


14-452 


14-452 
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•♦F1LE*MD»*NTLGET 


G     1 


»*FILE' 


NN      NN 

TTTTTTTTTT 

GGGGGGGG 

EEEEEEEEEE 

TTTTTl 

TTTT 

NN      NN 

TTTTTTTTTT 

GGGGGGGG 

EEElEEEEEE 

TTTTTl 

Mil 

NN      NN 

GG 

EE 

NN      NN 

Gb 

EE 

NNNN    NN 

6G 

EE 

NNNN    NN 

fiG 

EE 

NN  NN  NN 

GG 

EEEEEEEE 

NN  NN  NN 

GG 

EEEEEEEE 

NN    NNNN 

GG 

GGGGGG 

EE 

NN    NNNN 

GG 

GGGGGG 

EE 

NN      NN 

GG 

GG 

EE 

NN      NN 

GG 

GG 

EE 

NN      NN 

LLLLLLLLLL 

GGGGGG 

EEEEEEEEEE 

NN      NN 

LLLLLLLLLL 

GGGGGG 

EEEEEEEEEE 

NN 

NN 

NN 

NN 

NNNN 

NNNN 

NN      NN 

NN      NN 

NN  Nl 

NN  Nl 

NN 

NN 

NN 

NN 


ssssssss 

TTTTl 

TTTTT 

ssssssss 

TTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLLLL 

LLLLLLL 
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N'LKMC 
Table  0 


»«f  1LE"1D*»N|TL<MC 


G  I 


NN      NN 

TTTTTTTTTT 

LL 

KK 

KK 

MM 

MM 

CCCCCCCC 

NN      NN 

TTTTTTTTTT 

iL 

KK 

KK 

MM 

MM 

CCCCCCCC 

NN      NN 

KK 

KK 

MMM^ 

MMMM 

CC 

NN      NN 

KK 

KK 

mw 

MMMM 

CC 

NNNN    NN 

KK 

KK 

MM 

m    MM 

CC 

NNNN    NN 

KK 

KK 

MM 

m     MM 

CC 

NN  NiM  NN 

KKKKKK 

MM 

MM 

CC 

NN  NN  NN 

KKKKKK 

MM 

MM 

CC 

NN    NNNN 

KK 

KK 

MM 

MM 

CC 

NN    NNNN 

KK 

KK 

MM 

MM 

CC 

NN      NN 

KK 

KK 

MM 

MM 

CC 

NN      NN 

KK 

KK 

MM 

MM 

CC 

NN      NN 

LLLLLLLLLL 

KK 

KK 

MM 

MM 

CCCCCCCC 

NN      NN 

LLLLLLLLLL 

KK 

KK 

MM 

MM 

CCCCCCCC 

ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

mil 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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NTLKMC    -   LOAD  KMC   MICRO-CODE 
KK.   LOAD   LIST   HOUSEKEEPER 


MACRO   V05.03b  Saturday  29-Jun-85 


§oJ 


1  Page  12-1 


^A5  000330 

4A8 

449  000334 

450  000336 

451  000340 

452  000344 

453  000350 

454  000354 

455  000356 

456  000360 

457  000362 

458  000366 

459  000370 

460  000372 

461  000374 
462 

463 
464 

465  000376 

466  000376 
467 

468  000402 

469 

470 

471 

472  000406 

473 

474  0C0406 

475 

476 

477 

478 

479 

480  000410 

481  000414 
482 

483 
484 

485  000416 

486  000422 

487  000426 

488  000430 

489  000434 

490  000440 

491  000444 

492  000446 

493  000454 

494  000462 

495  000464 
496 

497 

/OB 

499  000466 

500 

501  000466 


012746  000007 


005710 
001011 
016720 
016720 
016720 
005010 
005726 
000412 
062700 
005316 
003361 
005726 
000747 


011167 
010367 


000000' 
000002' 
000004' 


000010 


000012' 
000014' 


005767 
001451 


000014' 


012701     000001 


103017 
016701 
012700 


105010 
016767 

000261 
000425 


MOV     *7,-(SP) 
FIND  A  BLANK  ENTRY  AND  FILL  IT  IN 
5$: 


20$: 


TST 

8NE 

MOV 

MOV 

MOV 

CLR 

TST 

BR 

ADD 

DEC 

BGT 

TST 

BR 


(RO) 

20$ 

KMCNAM,(RO)+ 

KMCCSR,(RO)t 

KMCNUM,(RO)+ 

(RO) 

(SP)  + 

50$ 

#8.,R0 

(SP) 

15$ 

(SP)  + 

10$ 


;B-7  ENTRIES  PER  LIST 


B-IS  THIS  ENTRY  EMPTY? 

B-BR  IF  NO 

B-FILL  IN  RAD50  NAME 

B-FILL  IN  CSR  ADDRESS 

B-SET  CTL  NUM  AND  MICRO-CODE  LEN 

B-NO  LOCAL  MICRO-CODE  COPY 

B-DUMP  ENTRY  COUNT 

B-DONE 

B-SKIP  REST  OF  ENTRY 

B-COUNT  ENTRIES 

B-BR  IF  MORE  IN  THIS  BLOCK 

B-DUMP  ENTRY  COUNT 

B-CHECK  NEXT  BLOCK 


RAN  OUT  OF  BLOCKS  TO  CHECK,  A  NEW  BLOCK  MUST  BE  ALLOCATED 


45$: 


.IF    DF 
MOV 
.ENDC 
MOV 


M$$MGE 
(RD.KMCMPI 

R3,KMCPN1 


;M-SAVE  MAPPING  OF  LINK  TO  NEW  BLOCK 
;B-SAVE  POINTER  TO  LINK  WORD 


MAPPED  SYSTEMS  ALWAYS  COME  HERE  AFTER  A  LIST  SEARCH 


50$: 


55$: 


.IF  DF 
.IF  DF 

RETURN 
.IFF 

CALL 
.ENDC 

.ENDC 

TST 
BEQ 


M$$MGE 
R$$11M 


a(SP)+ 


KMCPN1 
70$ 


;M-RETURN  TO  55$  FROM  SWSTK$ 
;M-RESTORE  MAPPING  VIA  MAPX 


;B-WAS  INFO  ENTERED  INTO  LIST? 
;B-BR  IF  YES,  FINISHED 


A  BLOCK  MUST  BE  ALLOCATED  FOR  A  NEW  LIST  SEGMENT  (RAN  OUT  OF  ROOM) 


OOOOOOG 
000006' 


000004'  OOOC 


MOV 

CALL 

BCC 

MOV 

MOV 

CALL 

CLR8 

MOV 

EMSG$ 

SEC 

BR 


#KM.ALL,R1 

$ALN18 

60$ 

$NAME,R1 

#K«CDEV,RO 

$C5TA 

(RO) 

KMCNUM,KMCER1 

3J 

70$ 


B-AMOUNT  TO  ALLOCATE 

B-GET    V.K  FROM  NON-UMR  SPACE 

B-BR    NO  ALLOCATION  FAILURE 

B-GET  THE  DEVICE/PDV  NAME 

B-PLACE  ASCII  VERSION  HERE 

B-CONVERT  RAD50  TO  ASCII 

B-MAKE  ASCIZ 

B-USE  CONTROLLER  NUM  FOR  THIRD  ARG 

B-ALLOCATION  FAILURE  ERROR 

B-INDICATE  FAILURE 


GOT  A  NEW  BLOCK  -  INITIALIZE  IT  AND  LINK  IT  IN 


60$: 


.IF  DF  M$$MGE 

.IF  DF  R$$11M 
SWSTKS  70$ 


ENTER  KERNEL  MODE 


NTLKMC   -   LOAD   KMC   MICRO-CODE 
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SYMBOL  VALUE 


FMT10A 

FMTlOe 

FHTIO: 

FM.10A 

FH.10B 

FH.10C 

KMCBUF 

KMCCSR 

KMCDEV 

KMCEBF 

KMCEFT 

KMCEMS 

KHCER1 

KMCER2 

KHCER3 

KMCEX 

KMCFEC 

KHCFEO 

KHCLD 

KMCLL 

KMCMP1 

KMCNAM 

KMCNUM 

KMCPM 

KMCRL1 

MCRL2 

KM. ALL 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 


_  .SER 

LF.TIM 

LF.UNL 

LF.X2P 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 


000512  R 
000540  R 
000615  R 
000000 
000000 
000000 
000000  R 
000002  R 
000006  R 
000024  R 
001 23A  R 
000034  R 
000016  R 
000020  R 
000022  R 
001232  R 
001312  R 
001320  R 
000542  R 
000234  R 
000012  R 
000000  R 
000004  R 
000014  R 
001372  R 
001444  R 
:  000001 
:  100000 
:  000400 
-■   000007 
:  002000 
=  001000 
■■   000100 
■-   004000 
:  000020 
=  000200 
:  040000 
=  010000 
=  000040 
=  000010 
=  020000 
=  000000 
=  000000 
=  000005 
--   000004 
=  000003 
--   000005 
=  000001 
=  000000 

:^  000004 

=  000001 
:^  000002 


REFEREMCES 

8-176 

8-182 

8-183 
*8-176 
#8-182 
#8-183 
#8-210 
#7-132 
#7-134 
#8-155 

8-176 
#8-156 
#7-139 
#7-140 
#7-141 

16-676 

8-176 

8-177 

9-245 

9-247 
#7-136 
#7-131 
#7-133 
#7-138 

8-182 

8-182 
#7-144 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 


8-177     8-178 
#3-195 
#8-196 
#8-177    #8-178 


15- 
»11- 

♦  10- 
18- 
8-1 
18- 

♦  12- 
*17- 
»17- 
#17- 
#19- 

8-1 

11- 

#12- 

*10- 

♦  10- 

♦  11- 
10- 
8-1 

#21- 
12- 


609 
311 
298 
763 

n 

761 

492 

705 

706 

715 

796 

78 

349 

410 

273 

300 

312 

282 

83 

882 

4o5 


11-348 
♦10-304 

8-178 

♦17-704 
21-886 
21-889 


8-179 
#13-542 

10-279 

11-323 

♦12-414 

♦11-313 

#20-846 


8-179 
#8-179 


♦12-416 
12-489 

8-179 

20-857 


8-180 


♦10-288 
♦12-412 
♦12-415 
♦12-411 


8-180 
#8-180 


12-452 
13-557 

8-180 


8-181 


♦10-293 
12-451 
12-453 

♦12-468 


8-181 
#8-181 


12-511 
20-849 

8-181 


#19-799 


11-321 
12-510 
12-492 
12-480 


#8-194 


♦17-703 


8-182 


20-854 

8-183  #18-748 


♦12-466 

12-512 
12-522 


12-519 


NTLKMC 
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325 
326 
327 
328 
329 
330 
331 
332 
333 
33A 
335 
336 
337 
338 
339 
540  00023'i 

341  000242 

342  000244 
343 

344  000246 

345  000254 

346  000262 

347  000270 

348  000276 

349  000304 

350  000312 

351  000320 

352  000326 
353 

354  000334 

355  000340 

356  000342 

357  000350 

358  000356 

359  000364 

360  000372 

361  000376 
362 

363  000400 

364  000406 

365  000414 

366  000422 

367  000430 

368  000436 

369  000444 

370  000450 

371  000452 

372  000454 
373 


022767 
000241 
001103 

016767 
062767 
016777 
016767 
062767 
016777 
016767 
062767 
016777 

005767 
001444 
016767 
016777 
062767 
016777 
005767 
001425 

016767 
062767 
016777 
016767 
062767 
016777 
005767 
001001 
000261 


.SBTTL  AXSVM  -  AUX  SPECIAL  SYMBOLS 
♦♦*  -  AXSYM  -  AUX  SPECIAL  SYMBOLS 


INPUTS: 


004640  OOOOOOG  AXSYM 


OOOOOOG 

000010 

OOOOOOG 

OOOOOOG 

000014 

OOOOOOG 

OOOOOOG 

000014 

OOOOOOG 

000072' 


OOOOOOG  000000" 
000100"  OOOOOO' 


000000' 
OOOOOO" 
OOOOOO" 
OOOOOO' 
OOOOOO' 
OOOOOO' 
OOOOOO' 
OOOOOO" 
OOOOOO' 


000002 

000100' 

000104' 


OOOOOO' 
OOOOOO' 


OOOOOOG  OOOOOO' 

000012  OOOOOO' 

000112'  OOOOOO' 

OOOOOOG  OOOOOO' 


000012 

000124' 

000116' 


OOOOOO" 
OOOOOO" 


10$: 
20$: 


SNAME  =  RAD50  PROCESS  NAME 

SSQSRV  =  ADDRESS  OF  $SQSRV  ROUTINE  IN  AUX  PROCESS 

PR100M  =  ADDRESS  OF  100  MSEC  TIMER  SERVICE  ROUTINE  IN  AUX  PROCESS 

PRISC  =  ADDRESS  OF  1  SEC  TIMER  SERVICE  ROUTINE  IN  AUX  PROCESS 


IS  THIS  PROCESS  AUX  ? 

ASSUME  NOT 

IF  NE,  NO  ..  DO  NOTHING 

STORE  SCMFRK  ADDESSS 
GET  $CMFRK+10  ADDERSS 
STORE  BIAS  FOR  AUX  PROCESS 
STORE  $T100C  ADDRESS 
GET  $T100C+14  ADDRESS 
STORE  BIAS 
GET  $T1SCL  ADDRESS 
GET  $T1SCL+14  ADDRESS 
STORE  BIAS 

WAS  SSQSRV  DEFINED  ■> 
IF  EQ,  NO  ..  ERROR 
GET  SCMFRK  ADDRESS 
INITIALIZE  FORK  BLOCK 
GET  SCMFRK+2  ADDRESS 

WAS  PRIOOM  DEFINED  ? 
IF  EQ,  NO  ..  ERROR 

GET  STIOOC  ADDRESS 
GET  $n00C  +  12  ADDRESS 
INITIALIZE  100  MSEC  CLOCK  BLOCK 
GET  $T1SCL  ADDRESS 
GET  $T1SCL+12  ADDRESS 
INITIALIZE  1  SEC  CLOCK  BLOCK 
WAS  PRISC  DEFINED  ? 
IF  NE,  YES  ..  OKAY 
ELSE,  INDICATE  FAILURE 


OUTPUTS: 

C-BIT 

=  SUCCESS/FAILURE 

FORK 

BLOCK  AND  TIMER  BLOCKS  INITI 

SYM:   CMP 

#*RAUX,SNAME           ; 

CLC 

BNE 

20$ 

MOV 

CMFRK.TEMP 

ADD 

*10,TEMP 

MOV 

$BIAS,aTEHP 

MOV 

TIOOCTEHP 

ADD 

#14, TEMP 

MOV 

$BJAS,aTEMP 

MOV 

TISCL.TEHP 

ADD 

#14, TEMP 

MOV 

$8IAS,aTEMP 

TST 

SQBLK+2 

BEQ 

10$ 

MOV 

CMFRK,TEMP 

MOV 

$SQSRV,aTEMP 

ADD 

#2, TEMP 

MOV 

$SQSRV,aTEMP 

TST 

MIL6LK+2 

BEQ 

10$ 

MOV 
ADD 
MOV 
MOV 
ADD 
MOV 
TST 
BNE 
SEC 
RETURN 


TIOOCTEMP 
#12, TEMP 
PRIOOM, STEMP 
T1SCL,TEHP 
#12, TEMP 
PRISC, aiEMP 
SECBLK'-2 
20$ 
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SYMBOL 

VALUE 

REFERENCES 

LN.ON 

^  000000 

#5-65 

LN.OOP 

=  000004 

#5-65 

LN.OPE 

=  000001 

#5-65 

LN.REF 

=  000002 

#5-65 

LN.SER 

=  000002 

#5-65 

LN.STA 

=  000017 

#5-65 

LN.SUB 

=  000360 

#5-65 

LN.TRI 

=  000006 

#5-65 

L.COST 

00C015 

#5-65 

L.CTL 

000012 

#5-65 

L.CVA 

177776 

#5-65 

L.DDM 

000002 

#5-65 

L.DDS 

000004 

#5-65 

L.DLC 

000003 

#5-65 

L.DLM 

000006 

#5-65 

L.DLS 

000010 

#5-65 

L.FLG 

000000 

#5-65 

L.KRBA 

000016 

#5-65 

L.LEN 

=  000022 

#5-65 

L.MPF 

000022 

#5-65 

L.NMST 

000020 

#5-65 

L.NSTA 

OOOOU 

#5-65 

L.OWNR 

000021 

#5-65 

L.UNT 

000013 

#5-65 

MILSLK 

000102  R 

6-200 

#6-204 

8-360 

M$$MGE 

=  000000 

12-653 

13-707 

13-713 

13-723 

NODCTR 

OOOOOA  R 

#6-108 

♦13-700 

13-709 

NTLPT 

=   *«***»      GX 

10-547 

N$ENC 

000042 

♦13-699 

♦13-708 

♦13-724 

NSMHCI 

000036 

«12-649 

♦12-651 

♦12-654 

N$MHC2 

000044 

*12-659 

♦12-660 

♦12-661 

PBLK 

000020  R 

#6-155 

10-530 

10-543 

PRSYM 

000462  R 

7-277 

#10-464 

PR1SC 

000124  R 

#6-210 

8-368 

PR100M 

000112  R 

#6-206 

8-365 

PSYM 

000024  R 

#6-158 

♦10-481 

♦10-484 

PVAL 

000030  R 

#6-159 

7-291 

P.BLKS 

=   ******     GX 

7-293 

7-300 

P.REL 

=   ***«*«      GX 

7-289 

7-290 

R$$EIS 

=    ****** 

7-297 

7-301 

12-641 

13-693 

R$$MPL 

-   ****** 

5-69 

6-122 

6-152 

6-164 

R$$11D 

=    ****** 

7-297 

7-301 

12-641 

13-693 

R$$11M 

=  000000 

12-653 

13-707 

13-713 

13-723 

SECBLK 

000114  R 

6-204 

#6-208 

8-369 

SF.ACT 

=  000200 

#5-65 

SF.ENA 

=  000100 

#5-65 

5F.LPB 

=  000004 

#5-65 

SF.MFL 

=  000040 

#5-65 

SF.PAC 

=  000020 

#5-65 

SF.REA 

-  000010 

#5-65 

SF.SER 

=  000001 

#5-65 

SF.SVC 

=  000002 

#5-65 

9-389 


9-447 


10-486 


10-534 


10-553 
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275  00003A 

276  000036 

277  000040 

278  000042 

279  000044 

280  000046 

281  000050 

282  000052 

283  000054 

284  000056 

285  000060 
286 
287 
288 
289 
290 
291 

292  000062 

293  000064 

294  000066 

295  000070 

296  000072 

297  000074 

298  000100 

299  000102 

300  000104 

301  000106 

302  000110 

303  000112 

304  000114 

305  000116 

306  000120 

307  000122 

308  000124 

309  000126 

310  000130 

311  000132 

312  000134 
313 
314 
315 

316  000136 

317  000140 

318  000142 

319  000144 

320  000146 

321  000226 

322  000230 

323  000232 

324  000234 

325  000236 

326  000316 

327  000376 

328  OOOaOO 

329  000402 

330  000442 

331  000446 
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MAXC:: 

BLKW   1 

MAXH:: 

BLKW 

ROUTM:: 

BLKW   1 

NA:: 

BLKU   1 

NBRA :  : 

BLKW   1 

NBEA:: 

BLKW   1 

AMAXH:: 

BLKU   1 

AMAXC:: 

BLKW   1 

ROUTB:: 

BLKU   1 

RPRI:: 

BLKW   1 

.SCSR:: 

BLKU   1 

MAXIMUM  COST  ALLOWED 

MAXIMUM  HOPS  ALLOWED 

ROUTING  TIMER  INTERAL 

NUMBER  OF  AREAS  IN  NETWORK 

NUMBER  OF  BROADCAST  ROUTER  ADJACENCIES 

NUMBER  OF  BROADCAST  ENDNODE  ADJACENCIES 

AREA  MAXIMUM  HOPS 

AREA  MAXIMUM  COST 

BROADCAST  ROUTING  TIMER 

ROUTER  PRIORITY 

SECONDARY  CSR 


»«**»*»»»  NOTE:  THE  FOLLOUING  DATA  STRUCTURES  ARE  ************ 
DUPLICATED  IN  TMPEX6,  SO  ANY  CHANGE  MADE 
HERE  MUST  BE  REFLECTED  IN  TMPEX6  ALSO  <.  i 

PDV  ADDRESS 

RAD50  PDV  NAME 

RELOCATION  BIAS 

PC8  ADDRESS 

NUMBER  OF  LINE  TABLES  TO  PUT  IN  PROCESS  SPACE 

RAD50  PARTITION  NAME 

ASCII  DEVICE  NAME 

DEVICE  DISPATCH  TABLE  ADDRESS 

LOGICAL  LINK  COUNT 

COUNTER  TIMER  VALUE  (LINE  PARAMETER  ALSO) 

DEFAULT  BLOCK  SIZE 

MAXIMUM  BLOCK  SIZE 

DEFAULT  UINDOW  SIZE 

MAXIMUM  UINDOW  SIZE 

CALL  TIMER 

CLEAR  TIMER 

RESET  TIMER 

RESTART  TIMER 

MAXIMUM  CLEAR  VALUE 

MAXIMUM  RESETS  VALUE 

MAXIMUM  RESTARTS  VALUE 


§PDVA 

:  .BLKU 

$NAME 

:  .BLKW 

$BIAS 

:  .BLKW 

$PCB: 

.BLKW 

$$INC 

:  .BLKU 

$$PAR 

:  .BLKW 

$$DEV 

:  .BLKW 

$$T8L 

:  .BLKW 

$$LIN 

<::.BLKU 

SCTIM 

:  .BLKU 

$X3D8 

;::.BLKU 

$X3MB 

;::.8LKW 

$X3DW 

5::. BLKW 

$X3MW 

5::. BLKW 

$X3CA 

.::.BLKW 

$X3CL 

^::.BLKW 

$X3RE 

5::. BLKU 

$X3RS 

■::.8LKU 

$X3MC 

_::.BLKW 

$X3MR 

E::.8LKW 

$X3MR 

S::.BLKW 

;  LIN 

:  PARAMETER 

$SLTA: 
SDLCPV 
SDDMPV 
$SLN:: 

$$CSR: 

$$PRI: 

$$VECT 

$$MTP: 

$$SNUM 

$$APR 

SiDPR 

$$MUX 

$$SCSR 

$$DCHA 


.BLKU 

:.8LKU 

:.BLKW 

.BLKW 

.BLK8 

.8LKU 

.BLKU 

:.BLKW 

.BLKW 

:.8LK8 

.BLKB 

.BLKU 

.BLKU 

:.BLKW 

:.8LKU 

.BLKW 


48. 


48. 


2 
48. 


SLT  ADDRESS 

DLC  PDV  ADDRESS 

DDM  PDV  ADDRESS 

SYSTEM  LINE  NUMBER 

MUX  SLN'S 

CSR  ADDRESS 

INTERRUPT  PRIORITY 

VECTOR  ADDRESS 

MULTIPOINT  STATION  COUNT 

MULTIPOINT  STATION  NUMBERS 

MULTIPOINT  STATION  ACTIVE  POLLING  RATIO 

DEAD  POLLING  RATIO 

MUX  UNIT  COUNT 

SECONDARY  CSR  TABLE 

DEVICE  CHARACTERISTICS 

MUX  CHARACTERISTICS 
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AlC 

ALOCB 

AL0C1 

CB.CCB= 

CB.ODM= 

CB.[)LC  = 

C8.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBAF 

CCBAL 

CCBCT 

CCBLH 

CCBNM 

CCBSZ 

CC.LLC= 

CEAVL 

CEPWR 

CE.A80= 

CE.DAO= 

CE.DI5= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.TME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 

Cf.EOM= 

CF.HDR= 

CF.LB  = 

CF.LIN= 

CF.SOM= 

CF.SYN= 

CF.TRN= 

CLKHD 

CMFRK 

CM.CIR= 

CM.FMT-. 

CM.HRD= 

CM.LIN= 

CM.LOO= 

CM.XLO= 

CP.DCF= 

CP.HDL= 

CP.PS  = 

CP.PSI= 

CP.XCF= 

CP.2FR^ 

CRAVL 

CS.ABO= 


oooArAR 

000266RG 

000264RG 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

000122RG 

0001 32RG 

0001URG 

000220RG 

000116RG 

000222RG 

000200 

000240RG 

0001 06RG 

100362 

1003A6 

100566 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 

000004 

000020 

100000 

000002 

000010 

000040 

000100 

000022RG 

000066RG 

000002 

100000 

000002 

JOOOOO 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

000026RG 

000100 


002 
002 


002 
002 
002 


CS.BRO= 
CS.BUF= 
CS.CES= 
CS.CHN= 
CS.CMP= 
CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.DIS= 
CS.ENA= 
CS.ENB= 
CS.ERR- 
CS.FTL= 


002  CS.HCR= 


002 
002 

002 


CS.HFE= 
CS.LST= 
CS.M1L= 
...  CS.RNG= 
002  CS.ROV= 
CS.RSN= 
CS.SHU=: 
CS.SID= 
CS.SIR= 
CS.SUC= 
CS.TMO= 
CS.XUR= 
CXOPT 
C.ADD 
C.BID 
C.BcF 
C.BUf , 
C.SUF2 
C.CNT 
C.CNT1 
C.CNT2 
C.FLG 
C.FLG1 
r.FLG2 
C.FNC 
C.LIN 
C.LNK 
C.MOD 
C.NSP 
C.PRO 
C.RSV 
C.STA 
C.STS 
C.URM 
C.XACP 
C.XID 
C.XLEM 
C.XPL! 
C.XPT 
C.XSVC 
C.XTC 
C.X25 
DEACB 


002 
002 


002 


000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000230RG 

000034 

0OCO03 

000014 

000014 

000024 

000020 

000020 

000030 

000022 

000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000036 

000040RG 


DEAC1 

OECPT 

DEUMR 

DEVHD 

EXRQN 

EXSIZ 

FC.CCP= 

FC.CTL=: 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT= 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FJLHD 

FL.CEX= 

FL.CHA= 

FL.DDM= 

FL.DLC= 

FL.ECH= 

FL.FDX= 

002  FL.HDX= 
FL.KMX= 
FL.LLC= 
FL.LMC= 
FL.MUX= 
FL.NTJ= 
FL.PX1= 
FL.PX2= 
FL.T0P= 
FL.WRN= 
FMASK 
FS.AST= 
FS.CI8= 
FS.CRA= 
FS.DIS= 
FS.DVC= 
FS.ENS= 
FS.EXJ= 
FS.GET= 
FS.HLT= 
FS.]NI= 
FS.KIL= 
FS.LCL= 
FS.LTM= 
FS.MNT= 
FS.MSN= 
FS.REA= 
FS.RET= 
FS.REZ= 
FS.fiLB= 

002  FS.RNG= 


000050RG 

000150RG 

000014RG 

000036RG 

000016RG 

000024RG 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

000152RG 


000010 

000020 

000001 

000002 

000040 

000100 

000200 

000400 

000004 

001000 

002000 

004000 

010000 

020000 

040000 

100000  _ 

000020RG 

000000 

002000 

001000 

013000 

001000 

012000 

001000 

006000 

000000 

000000 

000000 

100000 

001000 

004000 

014000 

001000 

000000 

003000 

002000 

011000 


002  FS.RST- 
002  FS.RTN= 
002  FS.SET= 
002  FS.SFC= 
002  FS.SFR=: 
002  FS.SFS- 
FS.SPU= 
FS.STM= 
FS.STP= 
FS.STR= 
FS.TRM= 
FS.WLB= 
FS.XKL= 
FS.XOF= 
FS.XON= 
FS.ZER= 
FTAB 
HEADR 
KISARO= 
002  KISAR5= 
KISAR6= 
KISAR7= 
KSAf!0 
KSAftS 
KSAR6 
KSAR7 
LD8AF 
LDPWF 
LF.ACT= 
LF.BRO= 
LF.BWT= 
LF.ENA= 
LF.LPB= 
LF.MDC= 
LF.MFL= 
LF.MTP= 
002  LF.PAC= 
LF.RDy= 
LF.REA= 
LF.SER= 
LF.TIM= 
LF.UNL= 
LF.X2P= 
LGDDB 
LGPDV 
LGSTT 
LLCAL 
LLCTA 
LN.CLO= 
LN.[)UM= 
LN.LOA= 
LN.LOO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 


000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

001236R 

000270RG 

******  GX 

******  GX 

******  GX 

******  GX 

000062RG 

000006RG 

000010RG 

00001 2RG 

000126RG 

000052RG 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000206RG 

000204RG 

0001 54RG 

000200RG 

000136RG 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 


003 
002 


LN.REF= 
LN.SER= 
LN.STA= 
LN.SUB= 
LN.TRI= 
LOOP 
LTMFC 
L.COST 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 
L.DLH 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSTA 
L . OWNR 
002  L.UNT 
002  MAXOV 
002  MS.BUF= 
002  MS.CIR= 
002  MS.CSR= 
002  MS.EXT= 
MS.INC= 
MS.LIN= 
MS.LLC= 
MS.MTP= 
MS.MUX= 
MS.NT1= 
MS.NT2= 
MS.PAR= 
MS.PRI= 
MS.SEC= 
MS.VCT= 
N8IAS 
NETPF 
NONSI 
NSO 
002  NSl 
002  NS2 
002  NS3 
002  NS4 
002  NS5 
NS6 
NS7 
NTLPT 
NTUIC 
OBJHD 
PARHD 
PAVL 
PDVID 
PDVNM 


000002 

000002 

000017 

000360 

000006 

000004 R 

000120RG 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000102RG 


000100 

010000 

000001 

002000 

001000 

004037 

000040 

000010 

004020 

000300 

000400 

000200 

000002 

004000 

000004  _ 

OOOIOORG 

000202RG 

000046RG 

0001 56RG 

0001 60RG 

0001 62RG 

0001 64RG 

0001 66RG 

0001 70RG 

0001 72RG 

000174RG 

000232RG 

000074RG 

000234RG 

000054RG 

000244RG 

0001 76RG 

000142RG 


002 


002 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
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NN    m 

TTTTTTTTTT 

LL 

RRRRRRRR 

QOOOOO 

BBBBBBBB 

NN      NN 

TTTTTTTTTT 

LL 

RRRRRRRR 

QOQOOQ 

BB8BBBBB 

NN      NN 

LL 

RR      RR 

00 

QQ 

BB     BB 

NN      NN 

LL 

RR      RR 

00 

QQ 

BB     BB 

NNNN    NN 

LL 

RR     RR 

00 

00 

BB     BB 

NNNN    NN 

LL 

RR     RR 

UO 

00 

BB     BB 

NN  NN   NN 

LL 

RRRRRRRR 

QQ 

OQ 

BBBBBBBB 

NN  NN   NN 

LL 

RRRRRRRR 

00 

QQ 

BBBBBBBB 

NN    NNNN 

LL 

RR  RR 

00 

QQ  QO 

BB     BB 

NN    NNNN 

LL 

RR  RR 

QO 

OQ   00 

BB     BB 

NN      NN 

LL 

RR    RR 

00 

QQ 

BB     BB 

NN      NN 

LL 

RR    RR 

00 

QQ 

BB     BB 

NN      NN 

LLLLLLLLLL 

RR      RR 

QOOQ   QO 

BBBBBBBB 

NN      NN 

LLLLLLLLLL 

RR      RR 

OQOO  00 

BBBBBBBB 

NTLRQB 
SPRO  - 

39- 
39; 
39; 
39' 
39' 
39( 
39; 
391 
39' 
AOI 
W 
W. 
40 
40. 
40' 
40( 
40 
40. 
40' 
41 
41 
41 
41 
41 
41 
41 
41 
41 
41 


ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

niii 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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391 

.S8TTL 

SPRO  -  CHECK  SET 

PROCESS  REQUEST  BLOCK 

392 

393 
394 
395 

+ 

SPRO 

-  CHECK 

"SET  PROCESS"  REQUEST  BLOCK 

396 

397 

INPUTS: 

398 

$PDVA=PDV  ADDRESS 

399 

400 

OUTPUTS: 

W 

R4  CLEARED  IF  NO  WORK  TO 

DO 

402 

403 
404 
405 

- 

000404 

012700 

000146' 

5PR0: 

MOV 

#P6ITS,R0 

DO  BIT  TWIDDLING 

406 

000410 

CALL 

StiJTS 

407 

000414 

032712 

OOOOOOG 

BJT 

#FL.LLC,(R2) 

IS  THIS  AN  LLC? 

408 

000420 

001403 

BEQ 

10$ 

IF  EQ,  NO 

409 

000422 

052767 

OOOOOOG 

OOOOOOG 

BIS 

#MS.LLC,$MISS 
$PDVA,R0 

INDICATE  LLC  INFO  MISSING 

410 

000430 

016700 

OOOOOOG 

10$: 

MOV 

GET  PDV  ADDRESS 

411 
412 

000434 

016067 

OOOOOOG 

OOOOOOG 

MOV 

Z.PCB(R0),$PC8 

IS  PROCESS  CORE-RESIDENT?  /  GE 

413 

000442 

001407 

BEQ 

30$ 

IF  EQ,  NO 

414 

000444 

032712 

OOOOOOG 

BIT 

#FL.LLC,(R2) 

IS  THIS  AN  LLC? 

415 

000450 

001403 

BEQ 

20$ 

If  EQ.  NO           ^  ^,^^ 

416 

000452 

005760 

OOOOOOG 

TST 

Z.DAT(RO) 

IS  LINE  TABLE  PRESENT?  (CLEARS 

417 

000456 

001401 

BEQ 

30$ 

IF  EQ,  NO 

418 

000460 

005004 

20$: 

CLR 

R4 

NO  WORK  TO  DOI 

419 

000462 

30$: 

RETURN 

IT  IS 


C-BIT) 
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923  002260 

022721 

140000 

CMP 

*140000,(R1)+   ; 

IS  CHANNEL  0  ASSIGNED? 

924  002264 

001435 

BEQ 

40$ 

IF  EQ,  NO 

925  002266 

005741 

TST 

-(R1) 

RESET  CHANNEL  POINTER 

926  002270 

022721 

100000 

20$; 

CMP 

#100000, (R1)t   ; 

IS  CHANNEL  1-N  ASSIGNED? 

927  002274 

001431 

BEQ 

40$ 

IF  EQ,  NO 

928  002276 

929 

930  002302 

017746 

OOOOOOG 

MOV 

aSLTMA,-(SP) 

SAVE  ADDRESS  OF  SLT  TABLE 

012746 

002344' 

MOV 

#30$, -(SP) 

ALLOW  FOR  CO-ROUTINE  CLEANUP 

931  002306 

004267 

OOOOOOG 

JSR 

R2,$SAVVP 

SAVE  R0,R1,R2 

932  002312 

014101 

MOV 

-(RD.RI 
#*C<377>,R1 

GET  SYSTEM  LINE  NUMBER 

933  002314 

042701 

177400 

BIC 

..AS  BYTE 

<534  002320 

006301 

ASL 

R1 

CONVERT  TO  WORD  INDEX 

935  002322 

060166 

000012 

ADD 

RI.IO.(SP) 
alO.(SP),10.(SP) 
#L.FLG,10.(SP)   , 

ADJUST  SLT  POINTER 

936  002326 

017666 

000012 

000012 

MOV 

;  POINT  TO  SLT 

937  002334 

062766 

000000 

000012 

ADD 

POINT  AT  FLAGS  WORD  OF  SLT 

938  002342 

939 

940  002344 

RETURN 

RESTORE  R0,R1,R2 

032736 

100000 

30$: 

BIT 

#LF.ACT,a(SP)t   , 

IS  CHANNEL  1-N  ACTIVE? 

941  002350 

001403 

BEQ 

40$ 

"  EQ.  NO          ,   .  „„  „. 

942  002352 

EMSG$ 

Z3 

CHANNEL  STILL  ACTIVE  (SETS  RO  NON- 

943  002360 

020102 

40$: 

CMP 

R1,R2 

SCAN  ENTIRE  CHANNEL  TABLE 

944  002362 

001342 

BNE 

20$ 

945  002364 

005400 

50$: 

NEG 

RO 

ANY  ERRORS? 

946  002366 

947 

948 

103532 

BCS 

190$ 

IF  CS,  YES 

.IF  DF 

R$$11M 

949 

950  002370 

005001 

CLR 

R1 

INDICATE  NO  DEVICE  ERROR 

951  002372 

SWSTK$ 

110$ 

»  ENTER  KERNEL  MODE 

952  002376 

016702 

OOOOOOG 

MOV 

DEVHD,R2 

*  AND  RSX11M  DEVICE  POINTER 

953  002402 

011202 

60$: 

MOV 

(R2),R2 

*  GET  NEXT  DEVICE  IN  LIST 

954  002404 

001442 

BEQ 

100$ 

*  IF  EQ,  ALL  DONE 

955  002406 

026462 

OOOOOOG 

OOOOOOG 

CMP 

Z.PC8(R4),D.PCB(R2)  ;*  IS  OUR  LLC  ALSO  THIS  DEVICE? 

956  002414 

001372 

BNE 

60$ 

*  IF  NE,  NO 

957  002416 

016203 

OOOOOOG 

MOV 

D.UC8(R2),R3 

*  GET  FIRST  UCB  ADDRESS 

958  002422 

116204 

OOOOOOG 

MOVB 

D.UNIT(R2),R4 
#DV.MNT,U.CW1(R3 

•  AND  FIRST  UNIT  NUMBER 

959  002426 

032763 

OOOOOOG 

OOOOOOG 

70$: 

BIT 

;♦  MOUNTABLE  DEVICE? 

960  002434 

001010 

BNE 

80$ 
#US.8SY,U.STS(R3 

*  IF  NE,  YES 

961  002436 

132763 

OOOOOOG 

OOOOOOG 

BITB 

;»  IS  UNIT  BUSY? 

962  002444 

001414 

BEQ 

90$ 

*  IF  EQ,  NO 

963  002446 

016266 

OOOOOOG 

000004 

MOV 

D.NAM(R2),4(SP) 

«  SAVE  NAME  OF  BUSY  DEVICE  IN  Rl 

964  002454 

000416 

BR 

100$ 

*  AND  RETURN  TO  USER  MODE 

965  002456 

132763 

OOOOOOG 

OOOOOOG 

80$: 

BITB 

#US.MNT,U.STS(R3 

;*  IS  UNIT  MOUNTED? 

966  002464 

001004 

BNE 

90$ 

*  IF  NE,  NO 

967  002466 

016266 

OOOOOOG 

000002 

MOV 

D.NAM(R2),2(SP) 

♦  SAVE  NAME  OF  MOUNTED  DEVICE  IN  RO 

968  002474 

000406 

BR 

100$ 

*  AND  RETURN  TO  USER  MODE 

969  002476 

066203 

OOOOOOG 

90$: 

ADD 

D.UCBL(R2),R3 

*  GET  NEXT  UCB  ADDRESS 

970  002502 

105204 

INCB 

R4 

•  AND  NEXT  UNIT  NUMBER 

971  002504 

126204 

000001G 

CMPB 

D.UNIT+1(R2),R4 

*  ALL  UNITS  CHECKED? 

972  002510 

103346 

BHIS 

70$ 

»  IF  HIS,  NO 

973  002512 

974 

975  002514 

100$: 

RETURN 

*  RETURN  TO  USER  MODE 

005701 

110$: 

TST 

R1 

WERE  ANY  UNITS  BUSY? 

976  002516 

001403 

BEQ 

120$ 

IF  EQ,  NO 

977  002520 

EMSG$R 

V 

DEVICE  BUSY 

978  002526 

010001 

120$: 

MOV 

RO.Rl 
176$ 

ANY  UNITS  MOUNTED? 

979  002530 

001441 

BEQ 

•  IF  EQ,  NO 

NTLRQ! 
Sytnbo 

SSAVR^ 

tSAVV 

$SLN 

$SLTA 

$T1DU 

$TR1B 

$$CSR 

ABS 

DATA 
Error 


Work 
Work 
Size 
Size 
Opera 

Elaps 
Sy:NT 
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Symbol  table 


NTLSL 


S5AVRG=  «•♦•• 
tSAVVR=  ••«•« 
tSLN  =  •••*• 
tSLTA  =  »♦••• 
$TIOUT=  •«»•• 
$TRIB  =  »•«•• 
$$CSR  =  ♦•*•• 

ABS.   177776 
00372A 
DATA    001522 
Errors  detected: 


GX 
GX 
GX 
GX 
GX 
GX 
GX 


003 
001 
002 
0 


$$DEV  =  »****•  GX 

$$EXT  =  ******  GX 

$$HTIM=  ******  GX 

$$!NC  =  •*•*♦*  GX 

$$LINX=  ******  GX 

$$LRB  =  ******  GX 

$$LTIM=  ******  GX 

(RW,I,GBL,ABS,OVR) 
(RW,1,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 


$$MTP  =  ******  GX 

$$MUX  =  ******  GX 

$$NODC=  ******  GX 

$$PAR  =  ******  GX 

$$PRI  =  ******  GX 

$$SNUM=  ******  GX 

$$TBL  =  ******  GX 


$$\/Ecr= 

******  GX 

.KMCPf 

000102R 

.CB]AS= 

******  GX 

.SCEX 

000020R 

.CCEX 

00005«R 

002 

.SCIR 

000110R 

.CLIN 

000072R 

002 

.SLIN 

000010R 

.CPRO 

000062R 

002 

.SPRO 

000026R 

.CXCSR= 

******  GX 

..SCSR= 

******  GX 

.HOME  = 

******  GX 

002 
002 
002 
002 
002 


'♦*  Assembler  statistics 


Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  13932  Words  ( 

Size  of  core  oool:  15496  Words  ( 

Operating  system:  RSX-11M/PLUS 


55  Pages) 
59  Pages) 


SY?NTLRQb!v2![132°°3^]NTLRQB/CR/-SP  =  SY:[1  J]RSXMCM.SML/ML,[130J10]NETLIB/I«1L,[130JOJRSXMCM/PA:1,C132JO] 


NTLRQB 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:33 
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NTLSUB  -  COMMON  SUBROUTINES 


185 
186 
187 
188 
189 
190 
191 
192 
195 
19^ 
195 
196 

197  000042 

198  000042 

199  000044 

200  000050 

201  000052 

202  000054 

203  000060 

204  000062 

205  000064 

206  000066 

207  000070 

208  000072 

209  000076 

210  000100 

211  000102 

212  000104 

213  000112 

214  000114 

215  000116 
c'16  000122 

217  000124 

218  000126 

219  000130 

220  000134 

221  000140 

222  000144 

223  000146 

224  000150 

225  000154 

226  000156 
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$AZfS  -  SETUP  ASCIZ  FILE  SPEC 

INPUTS: 

R0=ASCIZ  UlC  ADDRESS  (0=USE  DEFAULT) 
R1=ASCI2  FILE  NAME  ADDRESS  (0=USE  DEFAULT) 
R2=ASC]Z  EXTEN'JION  ADDRESS  (0=USE  DEFAULT) 

OUTPUTS: 

R1=ASCIZ  FILE  SPEC  ADDRESS 

R2=FILE  SPEC  LENGTH  (EXCLUDING  ZERO  BYTE) 


NTLSV 


010246 

012702  000243' 

005700 

001002 

012700  000032' 

112022 

001376 

005302 

010100 

001002 

012700  000112" 

010001 

112J22 

001376 

112762  000056  177777 

012600 

001002 

012700  000121' 

112022 

001376 

005302 

010267  000030' 

012700  000001 

112120 
001376 

012701  000243' 
160102 


IaZFS:: 


10$: 


15$: 
20$: 


30$: 


40$: 


227 
228 
229 
230 


MOV 

MOV 

TST 

BNE 

MOV 

MOVB 

BNE 

DEC 

MOV 

BNE 

MOV 

MOV 

MOVB 

BNE 

MOVB 

MOV 

BNE 

MOV 

MOVB 

BNE 

DEC 

MOV 

MOV 

CALL 

MOVB 

BNE 

MOV 

SUB 

RETURN 


R2,-(SP) 

#FJLE,R2 

RO 

10$ 

*$DfUIC,RO 

(R0)+,(R2)t 

10$ 

R2 

RI.RO 

15i 

#$DFNAM,RO 

RO.RI 

(R0)+,(R2)+ 

20$ 

*'.,-1(R2) 

(SP)+,RO 

30$ 

#DFEXT,RO 

(R0)+,(R2)t 

30$ 

R2 

R2,fNPTR 

#1,R0 

SLFNP 

(R1)+,(R0)+ 

40$ 

#FJLE,R1 

R1,R2 


SAVE  E)(TENSION  ADDRESS 

PLACE  WHERE  FILE  SPEC  WILL  BE  ASSEMBLED 

IS  THERE  A  UIC  ADDRESS? 

IF  NE,  YES 

else  use  default  uic 

copy  asciz  uic  into  file  spec 

discard'zero  byte 

copy  file  name  address 

if  ne,  there  is  one 

else  use  default  name 

save  file  name  address  for  later 

copy  asciz  file  name  into  file  spec 

deposit''''." 

restore  extension  address 

if  ne,  there  is  one 

else  use  default  extension 

copy  asciz  extension  into  file  spec 

discard'zero  BYTE 

SAVE  POINTER  FOR  POSSIBLE  ERROR  MESSAGE 

SETUP  LOCAL  FILE  NAME  POINTER 

FOR  NEXT  GCL  LEVEL 

COPY  FILE  NAME  INTO  LOCAL  AREA 

SET  FILE'sPEC  ADDRESS 
SET  FILE  SPEC  LENGTH 


NTLSUB  -  COMMON  SUBROUTINES 
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NTLS> 


NTLSYM  -  OffSET   SYMBOL   DEFIMTI   MACRO  V05.03b   Saturday  29-Jun-85 


CHANNEL   TABLE   FLAGS 


G  U 

00:34 


Page  5-1 


100000 

uoooo 

6S 

66 

6/ 

6H 

69 

^0 

n 

7? 

r^ 

/t, 

/s 

;'6 

000020 

77 

000001 

7H 

000001 

79 

000002 

HO 

000003 

HI 

000004 

8? 

0000C5 

a'; 

000006 

Hi, 

000007 

8S 

000010 

86 

000011 

87 

000012 

88 

000013 

89 

000014 

90 

000015 

91 

000016 

9? 

000017 

9'. 

000020 

9i, 

000021 

9S 

000022 

96 

000023 

97 

000024 

98 

000025 

99 

000026 

ion 

000027 

101 

000030 

HV 

000031 

101 

000032 

104 

000033 

10S 

000034 

106 

000035 

107 

000036 

108 

000037 

109 

000040 

110 

000041 

111 

000042 

n? 

00004  3 

11-; 

000044 

IK 

00004-' 

lis 

000046 

116 

000047 

h.ASN==100000 
2S.BSY==140000 


LOCAL  SYMBOLS 


CHANNEL  IS  FREE  TO  ASSIGN 

CHANNEL  IS  IN  PROCESS  OF  ASSIGNMENT 


TEMPLATE  PROCESSING  FUNCTION  CODES 

WARNING  -  DON'T  CHANGE  THESE  CODES  WITHOUT  CHANGING  TMPEX2,  TMPEX3, 
TMPEX5,  TMPEX6,  AND  TMPEX7 


;  0=END  OF  FILE 


.ASFCT 

1 

ADDRF 

::.BLKB   1 

ADDRk 

::.eLK8   1 

RIKB 

:  .BLKB   1 

RIKW 

:  .BLKB   1 

RYTF 

:  .BLKB   1 

CORF 

:  .BLKB   1 

CSR: 

.BLKB   1 

CTIM 

:  .BLKB   1 

DVCH/ 

U-:.BLKB   1 

EOF: 

.BLKB   1 

MIF 

:  .BLKB   1 

INT: 

.BLKB   1 

1  IRR 

:  .BLKB   1 

1  INK, 

)::.BLKB   1 

IFII 

::.BLKB   1 

1  S  FHI 

)::.8LKS   1 

1  TAR 

:  .BLKB   1 

MPIAI 

3::.BLK8   1 

MXIAI 

3::. BLKB   1 

NODE 

:  .BLKB   1 

PRI: 

.BLKB   1 

PRTO 

/::.BLK8   1 

sroM 

:  .BLKB   1 

SFCS 

?::.BLK8   1 

SINH 

:  .BLKB   1 

SINW 

:  .BLKB   1 

STNR 

:  .BLKB   1 

STNW 

:  .BLKB   1 

IINR: 

.BLKB   1 

IINW: 

.BLKB   1 

WORD 

:  .BLKB   1 

APR: 

.BLKB   1 

DPRR 

:  .BLKB   1 

DPRW 

■:  .BLKB 

TIME 

•:  .BLKB 

.MXPI 

3::. BLKB   1 

PFCH 

A::.6LK8   1 

.X1C0 

!::.8LK8   1 

.X3C0 

2::. BLKB   1 

H  U 
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209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 
219 
220 
221 
222 
223 
22A  000000 

225  000000 

226  000006 

227  000012 

228  OOOOK 

229  000020 

230  000024 

231  000030 

232  00003A 

233  030040 

234  000044 

235  000050 

236  000054 
237 

238 
239 
240 

241  000056 

242  000062 

243  000066 

244  000074 

245  000102 

246  000106 

247  000112 

248  000116 

249  000120 

250  000126 

251  000130 

252  000134 

253  000136 

254  000142 

255  000146 

256  000152 

257  000154 

258  000160 

259  000160 

260  000170 

261  000174 

262  000200 

263  000206 


$TMP  -  TEMPLATE  FILE  PROCESSOR 

THIS  ROUTINE  IS  CALLED  TO  PROCESS  THE  TEMPLATE  FILE  AND  TO  LOAD  THE 
DATA  BASE  INTO  CORE. 

INPUTS: 

$BIAS=PROCESS  RELOCATION  BIAS 
$$CSR=CSR  ADDRESS 
$$PRI=INTERRUPT  PRIORITY 
$$VECT=INTERRUPT  VECTOR 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 


016767 
103416 


OOOOOOG  000012' 


JtMP:: 


006167  000000' 


016746 
062767 
016777 
005067 
005067 

103426 
032767 
001402 

005001 
012702 
012705 

103002 

032767 
001745 

012667 
162767 


000002' 

000002  000032' 

000014'  000032' 

000002' 

000076' 


OOOOOOG  OOOOOOG 


OOOOOOG 
OOOOOOG 


000002  000002'  20$ 


000002' 

000002  000032' 


MOV 

$SLTA,$SLTSV 

CALL 

STM.IN 

BCS 

10$ 

CALL 

$TPARS 

CALL 

$TMFIL 

CALL 

$TMCHK 

CALL 

$TMALT 

CALL 

STMEXP 

CALL 

$TMVCT 

CALL 

$TMLTA 

10$: 

ROL 
RETURN 

$FIAG1 

;  PROCESS  TEMPLATE  FILE 

$TMFIL 

CALL 

$SAVAL 

MOV 

$FLAG2,-(SP) 

ADD 

#2,$SZPTR 

MOV 

$SIZE,a$SZPTR 

10$: 

CLR 

$FLAG2 

CLR 

SVALUE 

CALL 

TM.RD 

BCS 

30$ 

BIT 

#FL.ECH,$FLAGS 

BEO 

15$ 

CALL 

$EL1NE 

15$: 

CLR 

R1 

MOV 

#$TMPKW,R2 

MOV 

#$TMPST,R5 

CALL 

.TPARS 

BCC 

20$ 

CALL 

ERR$9 

20$: 

BIT 

#F2.END,$FLAG2 

BEQ 

10$ 

CALL 

$CLDEQ 

30$: 

MOV 

(SP)t,$FLAG2 

sue 

#2,$SZPTR 

RETURN 


SAVE  SLT  ADDRESS 

INITIALIZE  COUNTERS,  OPEN  PRIMARY  TEMPLATE 

IF  CS,  OPEN  FAILURE  OR  NOTHING  TO  DO 

LOAD  TPARS  TABLES 

PROCESS  TEMPLATE  FILE 

CHECK  FOR  DDM  INTERRUPT  LINKAGE  ERROR 

ALLOCATE  DATA  BASE 

EXPAND  BINARY  INFORMATION 

SETUP  DDM  VECTOR(S) 

STORE  LINE  TABLE  ADDRESS 

INTO  THE  SIGN  BIT 


SAVE  ALL  REGISTERS 

SAVE  $FLAG2 

ADJUST  SIZE  POINTER  FOR  NEW  DEPTH 

SAVE  CURRENT  VALUE  OF  $SIZE 

CLEAR  LINE  FLAGS 

CLEAR  EXPRESSION  VALUE 

READ  1  LINE  FROM  TEMPLATE  FILE 

IF  CS,  END  OF  FILE 

IS  ECHO  ENABLED? 

IF  EQ,  NO 

PRINT  TEMPLATE  LINE 

PARSE  THE  INPUT  LINE 


IF  CC,  NO  PROBLEM 

SYNTAX  ERROR 

".END"  SEEN  YET? 

IF  EQ,  NO  -  GET  NEXT  LINE 

CLOSE  TEMPLATE  FILE 

RESTORE  $FLAG2 

RESET  SIZE  TABLE  POINTER 
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NTLTMP 

CREATED   BY 

MACRO     ON  29 

-JUN-85  AT 

00:34 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

tIERR 

0006^6 

RG 

5-189 

5-190 

5-191 

triOUT 

~      t  ***  ** 

GX 

9-331 

15-509 

$TMALT 

=      ****** 

GX 

6-231 

STMCHK 

=      ****** 

GX 

6-230 

tTMEXP 

-      ****** 

GX 

6-232 

$TMf  IL 

000056 

R 

6-229 

#6-241 

8-306 

STMFIX 

000306 

RG 

#8-305 

$TMLTA 

~       ****** 

GX 

6-234 

$TMP 

000000 

RG 

#6-224 

$TMP<W 

~    ****** 

GX 

6-253 

tTMPST 

r     ****** 

GX 

6-254 

STMVCT 

=    ****** 

GX 

6-233 

$TM   IN 

-    ****** 

GX 

6-226 

STPARS 

-    ****** 

GX 

6-228 

8-314 

STWARN 

000622 

RG 

#15-478 

15-485 

$TWE 

000636 

RG 

#15-483 

SUB  I  AS 

000050 

RG 

#5-122 

$UDA 

000052 

RG 

#5-124 

SVALUE 

000076 

RG 

#5-145 

♦6-246 

ivEcn 

000062 

RG 

#5-132 

$VECT2 

000064 

RG 

#5-133 

$VE:;F3 

000066 

RG 

#5-134 

SVfDDM 

000522 

RG 

#12-412 

SVFDLC 

0C0542 

RG 

#13-427 

SVFLVl 

000574 

RG 

#14-451 

SVFSPC 

000562 

RG 

#14-447 

.ABFI 

000316 

RG 

#8-312 

.BYTE 

-      ****** 

GX 

11-398 

.TPARS 

:r     ****** 

GX 

6-255 

G  16 

PAGE  3 

CREf   04.00 
5-192 


5-193 


#15-486 


NTLTMP 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:34 
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NTl.jET  -  GET  SEND/RECEIVE  DATA  MACRO  V05.03b  Saturday  29-Jun-85  00:31 
Tab'.e  of  contents 


211 


PUTAST  -  PUT  COMPLETION  AST  IN  CALLER'S  AST  QUEUE 


NTLKMC  ■ 
Table  0' 

6- 
7- 

8- 
9- 
10- 
12- 
13- 
14- 
18- 
19- 
20- 
21- 
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NTLKMC 


NTLKMC  -  LOAD  KMC  MICRO-CODE    MACRO  VO5.03b  Saturday  29-Jun-85  00:51 
Table  of  contents 

KMC  DATA  BASE  DESCRIPTION 

LOCAL  DATA  AND  DEFINITIONS 

ERROR  PROCESSING  DATA  AND  FILE  BUFFER 

KMC  LOADER  (PROCESS  LOAD) 

KMC  LOADER  (POUER  FAIL) 

KMC  LOAD  LIST  HOUSEKEEPER 

KMC  MICRO-CODE  LOADER 

LOAD  -  LOAD  MICROCODE 

MAIN  ERROR  PROCESSING 

FILE  ERROR  SUB-FORMATTER 

RAM  ERROR  PREFIX  SUB-FORMATTER 

RAM  ERROR  SUFFIX  SUB-FORMATTER 


fS- 

67 

/- 

Vft 

R- 

u^ 

9- 

^'IH 

10- 

r'SI 

]?- 

SHH 

n- 

Sr^S 

u- 

S^6 

ia- 

f?t, 

14- 

r-ftSl 

?()- 

Hr'O 

2^.- 

860 

NTLKMC 
KMC  LOA 

502 
503 
50A 
505 
506 
507 

5oe 

509 
51C 
511 
51^ 
51' 
5V 
51' 
5U 
51( 
515 

51'; 

52( 
521 

52; 
52; 


NTLKMC  -  LOAD  KMC  MICRO-CODE    MACRO  V05.03b  Saturday  29-Jun-85 


00:51 
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NTLKMC 
KMC  MI( 


NTLKMC   -   LOAD   <MC   MICRO 

-CODE 

MACRO  VO5.03b 

Saturday  I 

KHC   LOAD   LIST   HOUSEKEEPER 

502 

.ENDC 

503  000^72 

CALL 

50A   000A76 

010203 

MOV 

505 

.IFF 

506 

MOV 

507 
508 
509  000500 

.ENDC 

005023 

CLR 

510  000502 

016723 

OOOOOC 

MOV 

511   000506 

016723 

000002' 

MOV 

512  000512 

016723 

OOOOOA' 

MOV 

513  000516 

005023 

CLR 

5K  000520 

005023 

65$: 

CLR 

515  000522 

032703 

000077 

JIT 

516  000526 

001374 

3NE 

517 

518 

.IF    DF 

519  000530 

016711 

000012' 

MOV 

520 
521 
522  00053A 

.ENDC 

010077 

OOOOU' 

MOV 

523  0005AO 

70$: 

RETURN 
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$MAPX 
R2,R3 

R0,R3 


(R3)  + 

KMCNAM,(P3)+ 
KMCCSR,(R3)+ 
KMCNUM,(R3)+ 
(R3)  + 
(R3)  + 
#77, R3 
65$ 

M$$MGE 
-MCMP1,(R1) 


RO.aKMCPNl 


;*  MAP  TO  THE  NEW  BLOCK 
;«  copy  VIRTUAL  ADDRESS 

;  COPY  THE  BLOCK'S  ADDRESS 


NO  NEXT  BLOCK 

STORE  DEVICE  NAME 

STORE  CSR  ADDRESS 

STORE  CONTROLLER  NUMBER 

NO  LOCAL  MICRO-CODE  ADDRESS 

ZERO  THE  REMAINDER  OF  THE  BLOCK 


;*  MAP  TO  THE  LINK  WORD 

:•  POINT  PREVIOUS  BLOCK  AT  THE  NEW  ONE 


NTLKMC  -  LOAD  KMC  MICRO-CODE 
KMC  MICRO-CODE  LOADER 
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CREF   OA.OO 


SYMBOL  VALUE 


LN.SER 

LN.STA 

LN.SUB 

LN.TRl 

LOAD 

LtBFLG 

LSBLDZ 

LSBMXZ 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

M$$MGE 

R$$MPL 
R$$11M 
SF.ACT 
SF.ENA 
SF.LPB 
SF.MFL 
SF.PAC 
SF.REA 
SF.SER 
SF.SVC 
SF.UNL 
S$$BAS 

S.COST 

S.FLG 

S.LEN 

S.NMSi 

S.OWNR 

TSSNHD 

ZF.DIA 

Z.FL6 

$ALN18 

SAZFS 

SCBDSG 

SCBOMG 

SCLDEQ 


=  000002 
=  000017 
=  000360 
=  000006 

00062'!.  R 

=  ****** 

=  ****** 

~   ****** 

000015 

000012 

177776 

000002 

OOOOOA 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 

000020 

00001 1 

000021 

000013 

=  000000 

=   ****** 

=  000000 

=  000200 

=  000100 

=  OOOOOA 

=  0000^0 

=  000020 

=  000010 

=  000001 

=  000002 

=  OOOO-iO 


000001 
000000 
000004 
000002 
000003 


GX 
GX 

GX 


-■  ****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

#5-60 

#5-60 

#5-60 

#5-60 
13-570 
15-615 
15-621 
15-622 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 
7-135 
12-518 
5-62 
10-275 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 
8-176 
8-180 

#5-60 

#5-60 

#5-60 

#5-60 

#5-60 
15-615 
13-566 
13-566 
12-486 
14-594 
19-813 
20-855 
16-674 


13-573        #14-590 

12-414 
9-238 


7-144 

7-103 
11-315 


7-145 

8-184 
12-419 


10-271 

8-197 
12-473 


12-418 

11-325 
12-500 


12-436 

11-381 
15-614 


12-465 
13-546 


12-472 
17-716 


12-499 


8-176 
8-181 


8-177 
8-181 


8-177 
8-182 


8-178 
8-182 


8-178 
8-183 


8-179  8-179 

8-183 


8-180 


21-887 

17-710 


21-891 


NTLKMC 


CREATED  BY     MAC.'O     ON  29-JUN-85  AT  00:31 


PAGE   3 


I    4 


H  5 

NTLPRO  -  "SET  PROCESS"  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00:31 
SCTSYM  -  FIND  SYMBOLS  FROM  CETAB 


Page  9 


375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388  000456 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 


.SBTTL  SCTSYM  -  FIND  SYMBOLS  FROM  CETAB 

♦**  -  SCTSYM  -  FIND  SYMBOLS  FROM  CETAB 

INPUT: 

SNAME  =  RAD50  PROCESS  NAME 

OUTPUT: 

C-BIT  =  SUCCESS/FAILURE 

SCTBAD  =  CT8  ADDRESS  FOR  THIS  PROCESS  (ZERO  IF  NOT  A  DDM) 


SCTSYM:: 


.IF  OF 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

CALL 

BCS 

rsT 

BEQ 

SWSTKS 

MOV 

CALL 

MOV 

CALL 

ADD 

MOV 


RSSMPL 

SNAME,  CTBSYMt2 

#SCXU]C,RO 

#CETNAM,R1 

#ST8EXT,R2 

SAZFS 

#CTBLK,RO 

SSYM8L 

STERR 

CTBLKt2 

40$ 

30S 

aNTLPT, 

SMAPX 

.CXALL(R2),R1 

a(SP)+ 

CTVAL.RI 

R1, SCTBAD 


,R0 


SEE  IF  CTB  ALREADY  IN  LIST 


3S: 


5$: 


MOV 

MOV 

BEQ 

CMP 

BNE 

MOV 

MOV 

INC 

BR 

MOV 

MOV 


CTLST.RO 

(R0),RO 

5S 

R0,R1 

3$ 

aHEADR.RO 

(R0),R0 

6(R0) 

20$ 

aCTLST,L.LNK(R1) 

Rl.aCTLST 


FORM  SYMBOL  NAME  TO  LOOK  FOR  "SCTXXX" 

GET  THE  COMM  EXEC  UIC 

FORM  ASCIZ  FILE  SPEC  "[XX,5X]CETAB.STB' 


GET  SYMBOL  BLOCK  TO  LOOK  FOR 

LOOK  FOR  IT 

IF  CS,  FILE  ERROR 

UAS  SYMBOL  DEFINED  ? 

IF  EO,  NO  ..  ASSUME  IT  IS  NOT  A  DDM 

►  ENTER  KERNEL  MODE 

►  GET  NTL  HOME  BLOCK  BIAS 
«  MAP  TO  NTL  HOME  BLOCK 

»  GET  THE  CETAB  ALLOCATION  ADDRESS 

*  RESTORE  PREVIOUS  MAPPING 

*  CALCULATE  CTB  ADDRESS 

*  SAVE  CTB  ADDRESS 


GET  START  OF  CTB  LIST 
GET  NEXT  CTB 
IF  EQ,  NOT  IN  LIST 
IS  THIS  OUR  CTB  ? 
IF  NE,  NO  ..  KEEP  LOOKING 
GET  USER  HEADER  ADDRESS 
GET  USER  MODE  SP 
SET  USER  MODE  C-BIT 
AND  LEAVE 
*  LINK  CTB  INTO  FRONT  OF  CTB  CHAIN 


SEARCH  DEVICE  LIST  FOR  RE-CONFIGURATION  DEVICE 

MOV  DEVHD.RO       ;*  GET  START  OF  DEVICE  LIST 

10$-    MOV  (RO),RO        ;*  GET  NEXT  DCB  ADDRESS 

BEQ  20$  ;*  IF  EQ,  END  OF  LIST 

CMP  SRCDEV,D.NAM(RO)  ; •  IS  THIS  THE  RE-CONFIGURATION  DEVICE 

BNE  :0$  ;•  IF  NE,  NO  ..  KEEP  LOOKING 

MOV  R0,L.DCB(Ri)    ;•  STORE  DCB  ADDRESS  IN  CTB 

20$:    MOV  R0,2(SP)        ;*  RETURN  DCB  ADDRESS  IN  USER  RO 
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CREf   DA. 00 


SYMBOL 

VALUE 

REFERENCES 

SF.UNL 

=  OOOOAO 

#5-65 

SQBLK 

000070  R 

6-193 

#6-200 

8-354 

STBERR 

000756  R 

10-532 

#10-583 

STBEXT 

000006  R 

#6-113 

10-528 

S.COST 

000001 

#5-65 

S.FLG 

000000 

#5-65 

S.LEN 

000004 

#5-65 

S.NMST 

000002 

#5-65 

S.OUNR 
TEMP 

000003 
000000  R 

#5-65 
#6-103 

•8-344 

•8-345     8-346 

•8-347 

•8-348 

8-349 

•8-350 

•8-351 

8-352 

•8-356 

8-3:7    ^8-358 

8-359 

•8-363 

•8-364 

8-365 

•8-366 

♦8-367 

8-368 

TSKERR 

000226  R 

7-285 

#7-322 

TSFLAG 

000044 

#5-62 

T$L1F 

000013 

#5-62 

TSLIFL 

000013 

#5-62 

TSLIFO 

000013 

#5-62 

TSLIFS 

000013 

#5-62 

T$LIN 

000000 

#5-62 

TSLIPS 

000006 

#5-62 

TSLLD 

000012 

#5-62 

TSLLDC 

000045 

#5-62 

TSLLDL 

000012 

#5-62 

TSLLDO 

000012 

#5-62 

TSLLDS 

000012 

#5-62 

TSLLEN 

000046 

#5-62 

TSLOPR 

000002 

#5-62 

TSLTCL 

000024 

#5-62 

TSLTIM 

000026 

#5-62 

TSLTPR 

000014 

#5-62 

TSLTPS 

000020 

#5-62 

TSNAPL 

000004 

#5-62 

T$NFE 

000000 

#5-62 

TSNLEN 

000010 

#5-62 

TSNNUL 

000002 

#5-62 

TSNOPL 

000006 

#5-62 

TSNRNI 

000042 

#5-62 

TSNRPL 

000005 

#5-62 

T$NRUL 

000007 

#5-62 

rSNVR 

000001 

#5-62 

TSRPRI 

000040 

#5-62 

TSSVC 

000034 

#5-62 

T$T5 

000030 

#5-62 

T$T6 

000032 

#5-62 

T1SCL 

-   »*».♦«  ex 

8-350 

8-366 

T100C 

=  »♦♦«»«  GX 

8-347 

8-363 

XBLK1 

000126  R 

6-208 

#6-215 

10-560 

XBLK2 

000140  R 

6-215 

#6-218 

XBLK3 

000152  R 

6-218 

#6-221 

XPTPDV 

000002  R 

#6-107 

Z.AVL 

=  *«*»*»  GX 

•7-298 

Z.DAT 

=  »*....  GX 

11-598 

12-645 

13-698 

NTLPRO 
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^^? 

D007A6 

',',', 

)00750 

',',1, 

)01110 

^^s 

)oni2 

^ift 

)0n32 

3V 

)01152 

3^R 

)01172 

^W 

}01212 

W) 

0O0A6A 

W 

S42 

',',', 

^A4 

■SAS 

iA6 

-lA^ 

tt8 

^A9 

<S() 

^S1 

^S^ 

^Si 

•iSA 

^SS 

^Sft 

000AA6' 

^S^ 

0OOA5O' 

3SH 

000A52' 

3S9 

000A5A' 

3iS0 

000A56' 

361 

000A60' 

';fi2 

00OA62' 

3iS3 

0O0A6A' 

36A 

000A66' 

36S 

000A70' 

366 

000A72' 

36^ 

000A7A' 

368 

000500' 

364 

00050A' 

370 

000512' 

371 

00051A' 

372 

000516' 

373 

000520' 

3 /A 

000522' 

3^S 

00052A' 

3/6 

000526' 

V/ 

<;/■« 

3/9 

380 
381 

001232 

100000  000000 

382 

38'! 

000001 

3RA 

000002 

38S 

OOOOOA 

386 

000010 

387 

000020 

388 

OOOOAO 

$$PCHA 

r.BLKW 

1 

.BLKW 

A8. 

$$LSAD 

:.BLKW 

1 

$X2MWS 

:.BLKW 

8. 

$X2MBS 

r.BLKW 

8. 

$X2MRT 

r.BLKW 

8. 

$X2RET 

:.8LKW 

8. 

$X2HLD 

:.BLKW 

8. 

SSMTSZ 

==  «. 

-$PDVA>/2> 

';    ♦♦»»»*«  NOTE 

THE  PREC 

PROTOCOL  EMULATOR  CHARACTERISTICS 

MUX  CHARACTERISTICS 

LOCAL  PHYSICAL  STATION  ADDRESS 

MAXIMUM  WINDOW  SIZE 

MAXIMUM  BLOCK  SIZE 

MAXIMUM  RETRANSMIT  COUNT 

RETRANSMIT  TIMER 

HOLDBACK  TIMER 

CALCULATE  SIZE  OF  GLOBAL  SYMBOL  TABLE  (WORDS) 


PRECEEDING  DATA  STRUCTURES  MUST  BE  CONTIGUOUS 


.IF  DF  R$$MPL 

VECTORED  EXEC  DIRECTIVE 

TRNVEC: :GIN$  GI . VEC ,$VECBG,$VECLN 
.ENDC 


NTINIT  PARAMETERS 


HOME== 
BFPTR: 
CCBNM: 
CCBSZ^ 
RDBNM^ 
RDBSZ: 
SDBNM^ 
SDBSZ: 
RDBTH: 
MXPRO: 
NTPSZ^ 
PNAMI^ 
PNAM2^ 
NAMBF 
PCB== 
NOMAP 
UMRFL 
UMRBA 
PUMR= 
FUDGE 
ALLOC 


$$DCHAtA 

:=.H0ME+2 

:=.BFPTR+2 

:=.CC8NM+2 

:=.CCBSZ+2 

:=.RD8NM+2 

:=.fiDBSZt2 

:=.SDBNM+2 

:=.SDBSZt2 

:=.RDBTH+2 

==.MXPR0+2 

:=.NTPSZ+2 

:=.PNAM1tA 
:=.PNAM2+A 
NAMBF +6 
==.PCB+2 
:=.N0MAP+2 
==.UHRFLt2 
:. UMRBA +2 
:=.PUMR+2 
==.FUDGE+2 


PRIMARY  STATUS 

SFLAGS: r.WORD   100000,0 

FL.DDM==1 

FL.DLC==2 

FL.LLC==A 

FL.CEX=:=10 

FL.CHA==20 

FL.ECH==A0 


HOME  BLOCK  BIAS 

ACTION  ROUTINES  (BUFSDF) 

NUMBER  OF  CCB'S  (BUFSDF) 

CCB  SIZE  (BUFSDF) 

NUMBER  OF  RDB'S  (BUFSDF) 

RDB  SIZE  (BUFSDF) 

NUMBER  OF  SDB'S  (BUFSDF) 

SDB  SIZE  (BUFSDF) 

RDB  THRESHOLD  (BUFSDF) 

MAXIMUM  PROTOCOL  OVERHEAD  SIZE  (BUFSDF) 

NTPOOL  SIZE  NEEDED  (RDB/SDB  +  FUDGE) 

FIRST  PARTITION  NAME  (PARSDF) 

SECOND  PARTITION  NAME  (PARSDF) 

ASCII  TO  RAD50  CONVERSION  BUFFER 

NTPOOL  PCB  ADDRESS 

SIZE  OF  NON-UMR-MAPPED  AREA 

UMR  FLAG 

UMR  BLOCK  ADDRESS 

UMR  ADDRESS  CONSTANT  (SPUMR  OF  CEX) 

FUDGE  FACTOR 

SINGLE  WORD  POOL  LENGTH 


ENABLE  WARNING  MESSAGES 


DDM  BEING  LOADED 

DLC  BEING  LOADED 

LLC  BEING  LOADED 

COMM  EXEC  BEING  LOADED 

DDM  CHARACTERISTICS  UPDATE 

ECHO  THE  TEMPLATE 


NTLROO  -  NTL  ROOT  SEGMENT 
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PDVTA 

PLGTH 

PSIPT 

PUMR 

P.LGTH= 

P.REL  = 

QASTT 

QBIAS 

QSTRT 

RDSAF 

RDBCT 

RDBLH 

RDBNM 

RDBSZ 

RDBTH 

SDBAF 

SDBCT 

SDBLH 

SDBNM 

S08SZ 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLHD 

SLTMA 

SLTNM 

5RSTD 

5TMFC 

SYSNM 

S$CEX  = 

S.COST 

S.FLG 

S.LEN 

S.LHD  = 

S.NMST 

S.OUNR 

TKPS 

TKTCB 

TK100 

TTNS 

T1SCL 

T100C 

T1000 

UISARO= 

UISAR7= 

UISDR7= 

USARO 

USAR7 

USDR7 


OOOUORG 

000056RG 

000272RG 

000236RG 

»*♦»*«  Gx 

*«♦»»»  GX 

00003ARG 

000252RG 

000254RG 

0001 24RG 

000112RG 

000224RG 

000256RG 

000216RG 

0001 OARG 

0001 30RG 

00011  ORG 

000226R6 

000260RG 

000262RG 

000200 

000100 

000004 

OOOOAO 

000020 

000010 

000001 

000002 

OOOOAO 

000070RG 

OOOUARG 

000K6RG 

000032RG 

000242RG 

000002RG 

******  GX 

000001 

000000 

000004 

******  GX 

000002 

000003 

000004RG 

000072RG 

0001 34RG 

000030RG 

0002KRG 

00021 2RG 

00021  ORG 

..***♦  GX 

******  GX 

******  GX 

000060RG 

000042RG 

OOOOAARG 


002  V$$CTR= 
002  XAVL 
002  XBIAS 
002  ZF.1NI= 
ZF.MFL= 
ZF.PSE= 
002  ZTIME 
002  Z.FLG  = 


002 
002 


Z.NAM 

,__  Z.PCB 

002  $ALECL= 

002  $ALMHC= 

002  $ALOCB= 

002  $AL0C1= 

002  $ALTLC= 

002  SBIAS 

002  $CCBAF= 

002  TCCBAL= 

002  $CCBCT= 

002  $CCBLH= 

$CCBNM= 

$CCBSZ= 

$CCEX  = 

$CEAVL= 

SCEPUR= 

SCLIN  = 

$CLICHD= 

$CMFRK= 

$CPRO  = 

002  $CRAVL= 

002  SCTBAD 

002  $CTIM 

002  $CTSYM= 

002  $CX0PT= 

002  SDDMPV 

$DEAC8= 

$DEAC1= 

$DECPT= 

$DEUMR= 

$DEVHD= 

SDLCPV 

$DSINI= 

002  $EXRON= 

002  $EXSIZ= 

002  SFEATR 

002  $FILHD= 

002  SFLAGS 

"'    $FMASK  = 

$FUNC 

$HEADR= 

$!C8I  = 

SICBLN 

002  $INICO= 

002  $LDBAF= 

002  $LDPWF= 


******  GX 
000250RG 
000246RG 
******  GX 
******  GX 
******  GX 
000064RG 
******  GX 
******  GX 
******  GX 
****** 
****** 
****** 


GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 


******  GX 
******  GX 
000066RG 
GX 
GX 
GX 
GX 
GX 

******  GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


002 
002 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

000020RG 
000106RG 
******  GX 
******  GX 
000U2RG 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
OOOUORG 
******  GX 
******  GX 
******  GX 
000026RG 
******  GX 
001232RG 
******  GX 
00001 2RG 
******  GX 
000016  G 
000016RG 
******  GX 
******  GX 
******  GX 


$LGDDB= 
002  $LGPDV= 
002  $LGSTT= 
$LLCAL= 
$LLCTA= 
$LTMFC= 

002  $MAXOV= 
$HISS 
SMXVCT 
$NAME 
$NB]AS= 
$NETPF= 
$NLCFG= 
$NLDEV=: 
$NLGET= 

003  $NLINI= 
$NLPUT= 
$NLRQB= 
$NONSJ= 
$NSO  = 
$NS1  = 
$NS2  = 
$NS3  = 
$NS4  = 
$NS5  = 
$NS6 
$NS7  = 
$NTCFS= 
$NTCF3= 
$NTICF= 

003  $NTL 

003  $NTLPT= 
$NTU1C= 
$OBJHD= 

003  $PARHD= 
$PC8 
$PDVA 
$PDVID= 
$PDVNM= 
$PDVTA= 

003  $PSIPT= 
SPUMR  = 
$QASTT= 
$QBIAS= 

003  $QSTRT= 
SRCDEV 

003  $RD8AF= 
$RDBCT= 

003  $RDBLH= 
$RDBNM= 
$RDBSZ= 

003  $RD8TH= 
SRSXNM 
SSCEX 
SSCIR 


****** 

****** 

****** 

****** 

****** 

****** 

******  GX 

OOOOURG 

000076RG 

000064RG 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

******  GX 

******  GX 

******  GX 

******  GX 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
=  ******  GX 


GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
OOOOOOR 
******  GX 
******  GX 
******  GX 
******  GX 
000070RG 
000062RG 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
000024RG 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
OOOOOORG 
OO0552R 
000636R 


$SDBAF= 
$SDBCT= 
$SDBLH= 
$SDBNM= 
$SDBSZ= 
SSLIN 
$SLN 
003  $SLTA 

002  $SLTMA= 

003  $SLTNM= 
$SMTSZ= 
$SPR0 
$SRSTD= 
$STMFC= 
$SYSNM= 
$TKPS  = 
$TKTCB= 
$TK100= 
$TMP  = 
STRIB 
STTNS  = 
$T1SCL= 
$T100C= 
$T100Q= 
$URM 
SVECBG 
$VECLN= 
SXAVL  = 
$XBIAS= 
$X8UF2 
$XFER  = 
$XLEN2 
$XLIN  = 
SXPRO  = 
$X2HLD 

003  $X2MBS 

003  $X2MRT 
$X2MUS 
$X2RET 
$X3CAL 
$X3CLR 
$X3DBS 
$X3DWS 
$X3MBS 
$X3MCL 

003  $X3MRE 
$X3MRS 
$X3MWS 
$X3RES 
$X3RST 
$ZTIME= 
$$APR 

003  $$AST 
$$CSR 
$$DCHA 


****** 
****** 
****** 
****** 
****** 


******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
0003UR 
OOOUARG 
0001 36RG 
******  GX 
******  GX 
000464  G 
000070R 
******  GX 
******  GX 
GX 
GX 
GX 
GX 
GX 

001566RG 
******  GX 
******  GX 
******  GX 
******  GX 
000022RG 
OOOOOORG 
000136  G 
******  GX 
******  GX 
001256RG 
******  GX 
001260RG 
«*♦**♦  GX 
******  GX 
001212RG 
001132RG 
00n52RG 
00in2RG 
001172RG 
000120RG 
000122RG 
000110RG 
000114RG 
000112RG 
0001 30RG 
000132RG 
0001 34RG 
000116RG 
000124RG 
000126RG 
******  GX 
000316RG 
000002RG 
000226RG 
000442RG 


$$DEV 

$$DPR 

$$fXT 

$$HTIM 

$$INC 

$$LINX 

003  $$LSAD 

003  $$LTIM 
$$MTP 
$$MUX 
$$N0DC 
$$PAR 
$$PCHA 
$$PDIN 
$$PRI 
$$PRH 
$$SCSR 
$$SNUM 
$$TASK 

003  $$TBL 
$$VECT 
.ALLOC= 
.AHAXC 
.AMAXH 

003  .BFPTR= 

002  .CCBNM= 
.CCBSZ= 
.FUDGE= 
.HOME  = 

003  .MAXC 
.MAXH 

003  .MXPRO= 

.NA 

.NAMBF= 
003  .NBEA 
003  .NBRA 
003  .NN 
003  .N0MAP= 
003  .NTPSZ= 
003  .PCB  = 
003  .PNAM1= 
003  .PNAM2= 
003  .PUMR  = 
003  .RDBNM= 
003  .RDBSZ= 
003  .RDBTH= 
003  .ROUTS 
003  .ROUTM 
003  .RPRI 
003  .SDBNM= 

.SDBSZ= 
003  .UMRBA= 
003  .UMRFL= 
003  .$$$$.= 
003  ..SCSR 


000100RG 

000376RG 

000030RU 

001266RG 

000072RG 

000104RG 

001 11  ORG 

00U26RG 

000234RG 

000400RG 

001262RG 

000074RG 

000746RG 

001264RG 

000230RG 

000004RG 

000402RG 

000236R6 

000006RG 

000102RG 

000232RG 

000526RG 

000052RG 

000050RG 

000450RG 

000452RG 

000454RG 

000524RG 

000446RG 

000034RG 

000036RG 

000470RG 

000042RG 

000504RG 

000046RG 

000044RG 

000032RG 

000514RG 

000472RG 

00051 2RG 

000474RG 

000500RG 

000522RG 

000456RG 

000460RG 

000466RG 

000054RG 

000040RG 

000056RG 

000462RG 

000464RG 

000520RG 

00051 6RG 

000034 

000060RG 


003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
005 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 

003 
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s- 

SA 

(S- 

64 

l- 

1«) 

H- 

196 

->- 

2A'! 

10- 

2HH 

11- 

112 

12- 

1A8 

t;- 

191 

H- 

421 

1S- 

491 

1(S- 

S92 

17- 

611 

1H- 

M', 

19- 

/HI 

20- 

811 

21- 

866 

22- 

1010 

2-;- 

lOS,' 

2i- 

10HS 

2";- 

IV) 

26- 

1189 

?/- 

1229 

28- 

1246 

29- 

1291 

30- 

1320 

MACRO  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

SNLRQB  -  PROCESS  RECEIVE  DATA  BLOCK 

SCEX  -  CHECK  SET  SYS  REQUEST  BLOCK 

CEXLD  -  CHECK  THAT  COMM  EXEC  IS  LOADED 

PDVA  -  FIND  PDV  ADDRESS 

CHKPP  -  CHECK  PROCESS  PARAMETERS 

SPRO  -  CHECK  SET  PROCESS  REQUEST  BLOCK 

SLTA  -  GET  SLT  ADDRESS 

CHKLP  -  CHECK  LINE  PARAMETERS 

CLRFP  -  CLEAR  PROCESS  PARAMETERS 

SLIN  -  CHECK  SET  LINE  REQUEST  BLOCK 

CPRO  -  CHECK  CLEAR  PROCESS  REQUEST  BLOCK 

ClIN  -  CHECK  CLEAR  LINE  REQUEST  BLOCK 

KMCPF  -  CHECK  KMC  POWERFAIL  RELOAD  REQUEST  BLOCK 

CCEX  -  CHECK  CLEAR  CEX  REQUEST  BLOCK 

SCIR  -  SET  CIRCUIT 

$BITS  -  COPY  BITS  FROM  REQUEST  BLOCK  TO  SFLAGS 

$FPDV  -  FIND  PDV 

SFSLT  -  FIND  SLT 

$RERR  -  PRINT  ERROR  MESSAGE 

REP7  -  REPLACE  REQUESTING  TASK'S  NAME 

REP7A  -  REPLACE  REQUESTING  TASK'S  NAME  AND  CHANNEL  NUMBER 

DEV7  -  REPLACE  REQUESTING  T^SK'S  NAME  AND  DEVICE  NAME 

REP7B  -  REPLACE  REQUESTING  TASK'S  NAME  AND  LINE  ID 


NTLRQB 
SLTA  - 

42 

42; 

42 
42' 
42' 
42( 
42 
42i 
42' 
43 
43 
43 
43 
43 
43 
43 
43 
43 
43 
44 
44 
44 
44 
44 
44 
44 
44 
44 
44 
45 
45 
45 
45 
45 
45 
45 
45 
45 
45 
46 
4d 
46 
46 
46 
46 
46 
46 
46 
46 
4? 
4/ 
4; 
4; 
4; 
4; 
4; 
4; 
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NTLRQB 
SI  TA  - 


NTLRQB   -   PARSE    REQUEST   BLOCK 
SLTA  -   GET    SLT   ADDRESS 


'^2^ 

423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
435 
437 
438 
439 

440  000464  012300 

441  000466  001507 

442  000470  010067 

443  000474 

444  000500  103502 

445  000502  010067 

446  000506  132760 

447  000514  001474 

448  000516  010067 

449  000522  132760 

450  000530  001403 

451  000532  052767 

452  000540  005046 

453  000542  132760 

454  000550  001416 

455  000552  052767 

456  000560  012716 

457  000564  132760 

458  000572  001405 

459  000574  052767 

460  000602  012716 

461  000606  005001 

462  000610  152301 

463  000612  005002 

464  000614  152302 

465  000616  022602 

466  000620  103435 

467  000622 

468  000626  103427 

469  000630  010067 

470  000634  010167 

471  000640  010267 

472  000644  116001 

473  000^50  067701 

474  000654  016102 
475 

4  76  000660  132762 
477  000666  001415 
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.SBTTL  SLTA  -  GET  SLT  ADDRESS 


SLTA  -  GET  SLT  ADDRESS 


INPUTS: 

R3=REQUEST  BLOCK  POINTER 
.BLKW   1 
.8LK8   1 
.BLK8   1 

OUTPUTS: 

C-BIT=SUCCESS/fAILURE 
$SLTA=SLT  ADDRESS 
$SLN=SYSTEM  LINE  NUMBER 


LR.LIN  -  LINE  NAME 

LR.CTL  -  CONTROLLER  NUMBER 

LR.UNT  -  UNIT  NUMBER 


SLTA: 


OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

000017 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 
000057 


5$: 


10$: 


OOOOOOG 

OOOOOOG 

OOOOOOG 

000003 

OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG  20$: 


MOV 

BEQ 

MOV 

CALL 

8CS 

MOV 

BITS 

BEQ 

MOV 

BITB 

BEQ 

BIS 

CLR 

BITB 

BEQ 

BIS 

MOV 

BITB 

BEQ 

BIS 

MOV 

CLR 

BISB 

CLR 

BISB 

CMP 

BLO 

CALL 

BCS 

MOV 

MOV 

MOV 

MOVB 

ADD 

MOV 

BITB 
BEQ 


(R3)+,R0 

101$ 

RO,$NAHE 

$FPDV 

101$ 

RO,$PDVA       , 

#2F.DDM,Z.FLG(R0) 

101$ 

RO,$DDMPV 

*ZF. LMC.Z.fLGCRO) 

5$ 

#FL.LMC,$FLAGS  ; 

-CSP)         ; 

*ZF.MUX,Z.FLG(RO) 

10$ 

#FL. MUX, $F LAGS 

*15.,(SP)      , 

#ZF.KMX,Z.FLG(RO) 

10$ 

#FL.KMX,$FLAGS 

#47.,(SP) 

R1 

(R3)+,R1 

R2 

(R3)+,R2 

(SP)+,R2 

111$ 

$FSLT 

101$ 

RO,$SLTA 

R1,$SLN 

R2,$$MUX 

L.DLC(R0),R1 

aPDVTA,R1 

.CBIAS(R1),R2 


GET  LINE  NAME 

IF  ZERO,  RETURN  FAILURE 

SAVE  IT 

LOOK  FOR  PDV  ADDRESS 

IF  CS,  NO  SUCH  PROCESS 

SAVE  PDV  ADDRESS 

;  IS  DDM  BIT  SET  IN  PDV? 

IF  EQ,  NO 

SAVE  DDM  PDV  ADDRESS 

;  MICRO-CODE  LOAD  NEEDED? 

IF  EQ,  NO 

UPDATE  NETLDR  STATUS 

SET  MAXIMUM  UNIT  COUNT  FOR  NON-MUX 

;  MUX  DEVICE? 

IF  EQ,  NO 

UPDATE  NETLDR  STATUS 

MAXIMUM  OF  16.  UNITS/CONTROLLER 

;  COMIOP  MUX  DEVICE? 

IF  EQ,  NO 

UPDATE  NETLDR  STATUS 

MAXIMUM  OF  48.  UNITS/CONTROLLER 

GET  CONTROLLER  NUMBER 

AND  UNJt' NUMBER 

VALID  UNIT  NUMBER? 

IF  LO,  NO 

TRY  TO  FIND  SLT 

IF  CS,  NOT  FOUND 

SET  SLT  ADDRESS 

AND  SYSTEM  LINE  NUMBER 

SAVE  UNIT  COUNT  (FOR  $NLCFG) 

GET  DLC  PDV  INDEX 

ADD  PDV  TABLE  ADDRESS 

GET  DLC  PDV  ADDRESS 


#ZF.DLC,Z.FLG(R2)  ;  IS  DLC  BIT  SET  IN  PDV? 
121$  ;  IF  EQ,  NO 


I  10. 
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CCEX  -  CHECK  CLEAR  CEX  REQUEST  BLOCK 


980  002532 

EMSG$R 

Z4 

981 

982 
983 
984  002540 

.ENDC 

012701 

000003 

130$: 

MOV 

#L.DLC,R1      ; 

985  0025A4 

132764 

OOOOOOG  OOOOOOG 

BITB 

#FL.DLC,Z.FLG(R4) 

986  002552 

001002 

BNE 

140$ 

987  00255A 

012701 

000002 

MOV 

#L.DDM,R1 

988  002560 

989 

990  002564 

017702 

OOOOOOG 

140$: 

MOV 

aSLTMA.R? 

017703 

OOOOOOG 

MOV 

aSLTNM,R3 

991  002570 

001421 

145$: 

BEQ 

170$ 

992  002572 

012246 

150$: 

MOV 

(R2)t,-(SP) 

993  002574 

062716 

OOOOOO 

ADD 

#L.FLG,(SP) 

994  002600 

032736 

040000 

BIT 

#LF.fiDY,a(SP)+   . 

995  002604 

001411 

BEQ 

160$ 

996  002606 

016246 

177776 

MOV 

-2CR2),-(SP) 

997  002612 

998 

999  002614 

060116 

ADD 

R1,(SP) 

123667 

000126' 

CMPB 

a(SP)+,PDVX 

1000  002620 

001003 

BNE 

160$ 

1001  002622 

EMSG$ 

^l   ,.., 

1002  002630 

160$: 

SOB 

R3,150$ 

1003  002634 

005267 

000126' 

170$: 

INC 

PDVX 

1004  002640 

005367 

000134' 

DEC 

PDVNUM 

1005  002644 

003402 

BLE 

180$ 

1006  002646 

000167 

177336 

JMP 

10$ 

1007  002652 

005400 

180$: 

NEG 

RO 

1008  002654 

190$: 

RETURN 

Page  21-2 


DEVICE  STILL  MOUNTED 


ASSUME  DLC 

;  IS  IT  A  DLC? 

IF  NE,  YES 

IT  MUST  BE  A  DDM 

GET  SLT  TABLE  ADDRESS 

AND  NUMBER  OF  SYSTEM  LINES 

IF  ZERO,  NONE  TO  CHECK 

GET  NEXT  SLT  ON  STACK 

POINT  AT  FLAGS  WORD 

IS  THIS  LINE  STILL  READY? 

IF  EQ,  NO  -  SKIP  TO  NEXT  LINE 

GET  SLT  ADDRESS  ON  STACK 

ADD  IN  INDEX  POINTER 

DOES  THIS  LINE  REFERENCE  OUR  PROCESS? 

IF  NE,  NO 

LINE  STILL  READY  (SETS  RO  NON-ZERO) 

LOOP  <SYSTEM  LINE  COUNT>  TIMES 

NEXT  PDV 

ANY  MORE  PDV  ENTRIES 

IF  LE,  NO 

GET  NEXT  ENTRY 

SET  C-BIT  IF  ERROR  OCCURRED 


NTLRQB  -  PARSE  REQUEST  BLOCK 
SCIR  -  SET  CIRCUIT 
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CREF        04.00 


NTLSl 


SYMBOL 

VALUE 

REFERENCES 

CCEX 
CEXLD 

002156  R 
000164  R 

6-102 
6-92 

#21-884 
6-96 

6-101 

6-103 

6-106 

6-109 

6-111 

#10-302 

CHKLP 

000730  R 

6-98 

#15-516 

CHKPP 

000262  R 

6-94 

#12-369 

CLIN 

002054  R 

6-108 

#19-795 

CLRPP 

001244  R 

6-90 

6-99 

#16-607 

CPRO 

001306  R 

6-105 

#18-653 

DEVHD 

=   *♦♦*«»     GX 

18-728 

21-952 

t)EV7 

003532  R 

7-169 

7-172 

#29-1309 

DV.MNT 

=   ».***»     GX 

18-735 

21-959 

D.DSP 

=   **»*»»     GX 

•18-749 

D.NAM 

=    ».«**»     GX 

18-739 

18-743 

21-963 

21-967 

D.PCB 

=   »♦*»*♦     GX 

18-731 

*18-750 

21-955 

D.UCB 

-   *«»»»*     GX 

18-733 

21-957 

D.UCBL 

=   *•*•*•     GX 

18-745 

21-969 

D.UNIT 

=   **»•♦»     GX 

18-734 

18-747 

21-958 

21-971 

ERRBUF 

000170  R 

#7-137 

26-1207 

ERRMSG 

000160  R 

#7-135 

26-1219 

FE.CEX 

=   »««♦«»     GX 

9-262 

10-303 

FL.CEX 

=   «*»«**     GX 

9-260 

FL.DDM 

=   «***»«     GX 

11-337 

22-1037 

FL.DLC 

=   »♦♦*♦*     GX 

11-337 

18-761 

21-985 

22-1037 

FL.ECH 

=   «»«**»     GX 

6-126 

FL.FDX 

=   *♦*♦♦*     GX 

6-124 

FL.HDX 

=   ♦♦».»»     GX 

6-125 

FL.KMX 

=   ♦«»•♦»     GX 

14-459 

FL.LLC 

=    *»♦»**     GX 

11-337 

12-377 

13-407 

13-414 

18-674 

21-914 

22-1037 

FL.LMC 

=   *•«**♦     GX 

14-451 

FL.MUX 

=   ******     GX 

14-455 

25-1172 

FL.NTI 

=   ««*»«♦     GX 

9-280 

FL.TOP 

=    »».»*♦     GX 

6-127 

FMASK 

=   ******     GX 

9-262 

10-303 

FMAX 

=  000010 

#6-85 

8-224 

FMT7 

001444   R 

7-145 

7-146 

7-147 

7-148 

7-149 

7-150 

7-151 

7-  ■    ' 

7-154 

7-158 

7-159 

7-160 

7-161 

7-167 

7-169 

7-172 

7-,.  :) 

7-177 

7-178 

#7-187 

FMT7A 

00-'      J   R 

7-168 

#7-188 

FMT7B 

001:>11    R 

7-176 

#7-189 

FM.7 

=  000000 

#7-145 

#7-146 

#7-147 

#7-148 

#7-149 

#7-150 

#7-151 

#7-152 

#7-154 

#7-158 

#7-159 

#7-160 

#7-161 

#7-167 

#7-169 

#7-172 

#7-175 

#7-177 

#7-178 

FM.7A 

=  000000 

#7-168 

FM.7S 

=  000000 

#7-176 

FTAB 

000000  R 

#6-77 

6-85 

8-228 

I$$AS 

=      **♦**♦ 

15-543 

21-887 

KMCPF 

002120  R 

6-110 

#20-825 

LBITS 

000136  R 

#6-124 

17-625 

LF.ACT 

=  100000 

#5-62 

18-716 

19-801 

21-940 

LF.BRO 

=  000400 

#5-62 

18-699 

LF.BWT 

=  000007 

#5-62 

LF.ENA 

=  002000 

#5-62 

LF.LPB 

=  001000 

#5-62 

NTLRQB 


CREATED  BY     MACRO     ON  29-JUN-85  AT   00:33  PAGE   2 


I  12 


NTLSl 


H  13 


NTlSUB  -  COMMON  SUBROUTINES     MACRO  V05.03b  Saturday  29-Jun-85  00:33  Page  8 


NTLSI 


252 
235 
25^ 
255 
256 
257 
258 
259 
2A0 
241 
242 
245 
244 
245 
246 
247 
248 
249 
250 
251 
252 
255 
254 
255 
256 
257 
258 
259 
260 
261 
262 
265 
264 
265 
266 


SREP.C   -  REPLACE 
SREP.P  -  REPLACE 


WITH  CURRENT  LEVEL  FILE  NAME 
WITH  PREVIOUS  LEVEL  FILE  NAME 


THESE  ROUTINES  ARE  STANDARD  ERROR  MESSAGE  REPLACERS.  SREP.C  SHOULD  BE  USED 
WHEN  THE  FILE  IN  QUESTION  IS  STILL  OPEN,  AND  SREP.P  SHOULD  BE  USED  WHEN 
THE  FILE  HAS  ALREADY  BEEN  CLOSED. 

INPUTS: 

R5=F0RMAr  STRING  ADDRESS 
R4=ERR0R  MESSAGE  STRING  ADDRESS 

OUTPUTS: 

R0=DESTROYED 
R5,R4=UPDArED 


.ENABL  LS8 


000160 

000160  005000 

000162  000402 

000164 

000164  012700  000001 

000170  112514 

000172  122724  000052 

000176  001574 

000200  005504 

000202 

000206  112024 

000210  001376 

000212  005504 

000214 


SREP.C: 


SREP.P: 
10$: 


20S: 


CLR 
BR 

'mov 

MOVB 

CMPB 

BNE 

DEC 

CALL 

MOVB 

BNE 

DEC 

RETURN 


.DSABL   LS8 


RO 
10S 

#1,R0 

(R3)+,(R4) 

#'*,(R4)t 

10S 

R4 

SLFNP 

(R0)+,(R4)i 

20$ 

R4 


USE  CURRENT  GCL  LEVEL 


USE  PREVIOUS  GCL  LEVEL 
LOOK  FOR  THE  ASTERISK 


SKIP  THE  ASTERISK 

SETUP  LOCAL  FILE  NAME  POINTER 

COPY  ASCIZ  FILE  NAME 

INTO  THE  ERROR  MESSAGE 

SKIP  THE  ZERO  BYTE 
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ii; 


000050 
,  _  000051 

119  000052 

120  000053 

121  000054 

122  000055 

123  000056 
•'24  000057 

125  000060 

126  000061 

127  000062 

128  000063 

129  000064 

130  000065 

131  000000 
132 

133 

134 

135 

136 

137 

138  000066 

139 

140  000000 

141  000002 

142  000004 

143  000006 

144  000010 

145  000016 
1',6  000024 

147  000026 

148  000030 

149  000044 


000000 


X3r03 

:.BLK8   1 

)(<ro4 

:.8LK8 

x^ros 

:.8LK8   • 

x';r()6 

:.BLKB 

X3C07 

:.BLKB 

X3C08 

:.BLKB 

X3r()9 

:.BLK8 

x3rio 

:.BLK8 

X3C11 

:.BLK8   • 

X2CH1 

:.BLKB 

X2CH2 

:.BLKB 

X2CH3 

:.BLKB 

X2CH4 

:.BLKB   ■" 

X2CH5 

:.8LK8 

.PSECl 

DATA  BLOCK  OFFSETS  (POINTED  TO  BY  SNTLPT  -  NTPOOL  SPACE) 

WARNING  -  DON'T  CHANGE  THESE  OFFSETS  WITHOUT  RE-BUILDING  VNP  AND  NTINIT. 


150 

000060 

151 

000062 

152 

000064 

153 

000066 

154 

000000 

155 

156 

157 

158 

159 

000000 

160 

161 

162 

163 

164 

000004 

165 

166 

167 

168 

169 

170 

171 

000070 

172 

000000 

173 

000000 

.CXCSR 
.CXPC8 
.CXSYM 
.CXVSM 
.CXUNL 
.CXVEC 
. CXL81 
.CXLB2 
.CXL8R 
.CXALL 
.CXLEN 


.ASECT 

.=0 

.BLKW 

.BLKU 

:.8LKW 

:.8LKW 

r.BLKW 

.'.BLKW 

:.BLKW 

r.BLKW 

:.8LKW 

r.BLKW 

r.BLKW 

r.BLKW 

r.BLKW 

.BLKW 

.PSECT 


COMM  EXEC  ADDRESSING  BIAS 

AB==0 

.IF  DF  R$$MPL 

SKRBLN  ==  26 


SKRBLN  ==  4 


.IFF  ;  DF  R$$MPL 
.ENDC  ;  OF  R$$MPL 


NTPOOL  PCB  ADDRESS  (SETUP  BY  NTINIT) 
NTPOOL  UMR  BLOCK  (SETUP  BY  NTINIT) 
VNP  CSR->SYSTEM  LINE  LIST 
COMM  EXEC  PCB  ADDRESS 
PROCESS  VERIFICATION  SYMBOLS 
VECTORED  PROCESS  VERIFICATION  SYMBOLS 
FIRST  UNLOAD  BLOCK  ADDRESS 
FIRST  KMC  CSR  BLOCK  ADDRESS 
TWO  LIBRARY  REFERENCES 

FIRST  EXTRA  LIBRARY  BLOCK  ADDRESS 
CETAB  ALLOCATION  ADDRESS 
CETA8  ALLOCATION  LENGTH 
AVAILABLE 


RSX-11M+  ICB  LENGTH  DEFINED  AT  TASK  BUILD 
RSX-11M+  KRB  LENGTH 


RSX-11M/S  KRB  LENGTH 


LIBRARY  BLOCK  OFFSETS 

.ASECT 
.=0 
.BLKW   3 


;  LIBRARY  NAME  IN  RAD50 


NTLSYM  -  OFFSET  SYMBOL  DEFlNITi  MACRO  V05.03b  Saturday  29-Jun-85  00:34  Page  5-3 


00:34 
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265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 
275 
276 
2^7 

278  000210 

279  000230 

280  000234 

281  000240 

282  000244 

283  000250 

284  000252 

285  000254 
286 

287 
288 
289 

290  000256 

291  000262 

292  000264 

293  000270 

294  000272 

295  000276 

296  000302 


TM.RD  -  READ  ONE  RECORD  FROM  TEMPLATE  FILE 

INPUTS: 

NONE 

OUTPUTS: 

C-eiT=SUCCESS/FAILURE 
R0,Rl,R2=DESTROYED 
R3=REC0RD  LENGTH 
R4=REC0RD  ADDRESS 


NTLTMI 
MACRO 
MACRO 
CALL 


CALLR 
EMSGt 
EMSGSI 
GCL$ 

NTLER' 
RETUR! 


016700  OOOOOOG 

016003  000002 

010367  000352' 

012704  000146' 
105710 
100401 


122710  OOOOOOG 

001405 

122710  OOOOOOG 

001404 


TM.RD: 


GCL$ 

MOV 

MOV 

MOV 

MOV 

TST8 

BMl 

RETURN 


,#TMPBF,*152. 

ICLIOS.RO 

2(R0),R3 

R3,TMPSZ 

#TMP8F,R4 

(RO) 

101$ 


READ  NEXT  RECORD 

GET  GCL  lOSB  ADDRESS 

GET  RECORD  LENGTH 

SAVE  IT 

GET  RECORD  ADDRESS 

SUCCESS?  (CLEARS  C-BIT) 

IF  MI,  NO 


ERROR  CONDITIONS 


101$: 

CMPB 

#IE.EOF 

(RO) 

END  OF  FILE? 

BEQ 

111$ 

IF  EQ,  YES 

CMPB 

#]E.RBG 

(RO) 

BUFFER  OVERFLOW? 

BEQ 

121$ 

IF  EQ,  YES 

CALLR 

ERR$10 

READ  FAILURE 

111$: 

CALLR 

ERR$11 

NO  END  STATEMENT  (WARNING) 

121$: 

CALLR 

ERR$12 

READ  OVERFLOW 

NILTMP 


TEMPLATE    PROCESSING 
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00:34 


'•FIL 


H  16 

NTLTMP     CREATED  Qv  MACRO  ON  29-JUN-85  AT  00:3'>     PAGE  4 

MACRO  CROSS  REFERENCE  CREF   0^.00 

MACRO  NAME      REFERENCES 

t¥s'^    tM    tw?    t-iii    n]\    till    tm    tW7    r,i\h    r^l%. 

12-415  13-A30  15-489  15-496    15-509    15-512 

CALLR  7-294  7-295  7-296  8-307     8-514     9-331 

EMSGS         #5-58  10-371  12-415  13-430 

EMSGSR         *5-58  14-459  14-460 

NtIeRS         #5-58      5-^89     5-190     5-191      5-192     5-193 

RETURN         6-:36     6-263     7-285      10-380     11-401     12-416     13-431     14-454     15-514 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
'2 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
11 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
5', 
51 
52 
53 


.TITLE  NTLGET  -  GET  SEND/RECEIVE  DATA  PACKET 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  SEND'RECEIVE  DATA  PACKET  I/O  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY. 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF  ITS 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
m7 
48 
49 
50 
51 
52 
53 
54 
55 


.TITLE  NTLKMC  -  LOAD  KMC  MICRO-CODE 
.IDENT  /V05.00/ 

.NLIST  TTM,8EX 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USEI  '(ND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIC'^AL. 

MODULE  DESCRIPTION: 

NTL  -  KMC  MICRO-CODE  LOADING  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTC^'^Y: 

1.00  27-FFB-'8 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.l 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-PLus  V3.0 
DECnet-Micro/RSX  VI. 0 


OF      ITS 


NTLKMC   -  LOAD  K.MC   MICRO-CODE         MACRO  VO5.03b   Saturday  29-Jun-85  00:31      Page   5 
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NTLKMC   -   LOAD  KMC   MICRO-CODE         MACRO   V05.03b  Saturday  29-Jun-85   00:31      Page   13 
KMC  MICRO-tODE    LOADER 


525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 

+ 
KMCLD 

.SBTTL 
-  LOAD 

KMC  MICRO-CODE  LOAD 
MICRO-CODE  FROM  TASK 

:R 
FILE 

INPUTS: 

RO  =  PDV/DEVICE  NAME  IN  RAD50  FORMAT 
R4  =  KMC  CSR  ADDRESS 
$URM  =  UNI8US  RUN  MASK  (RSX-11M+) 
RO  AND  R4  DO  NOT  HAVE  TO  BE  SAVED 

000542 

uuiruij^^  ^^^  LOADED  FROM  FILE  [131 ,54JXXXMC. TSK  (XXX=PDV/DEVICE  NAME) 
C-8IT=SUCCESS/FAILURE 

KMCLD: 

SAVE 

THE  DEVICE  NAME  AS  AN  ASCIZ 

STRING,  IN  CASE  OF  RAM  ERROR 

545 
546 

.IF  DF 

R$$MPL 

54^ 

548 
549 
550 
551 
552 
553 

5$: 

TSTB 
BEQ 
MOV 
DIR$ 

.ENDC 

$NCPU 

5$ 

$URM,SETAF+S.AFAF 

#SETAF 

M+  IS  THIS  A  MULTI-PROCESSOR  SYSTEM 

M+  IF  EQ,  NO 

M+  RUN  ON  THE  RIGHT  PROCESSOR 

M+  ...SET  THE  AFFINITY 

M+ 

554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 

000542 
000544 
000546 
000552 
000556 
000560 

010046 
010001 
012700 

105010 
012600 

000006' 

MOV 

MOV 

MOV 

CALL 

CLRB 

MOV 

RO,-(SP) 

RO.fil 

#KMCDEV,RO 

$C5TA 

(RO) 

(SP)+,RO 

8-SAVE  RAD50  FORM 
8-PLACE  IN  Rl 
B-PLACE  ASCIZ  FORM  HERE 
B-CONVERT  RAD50  TO  ASCIZ 
B-MARK  END  OF  STRING 
B-RECOVER  RAD50  FORM 

;  USE 

;  FILE 

EAZFS  TO  SET  UP  THE  PROPER  FILE  NAME  SIRING  FOR  BOTH 
OPENNING  AND  FOR  ERROR  MESSAGES 

000562 
000566 
000574 
000576 
000600 
000604 
000610 
000612 
000616 
000622 

016702 
032762 
001406 
010046 
012701 

012600 
012701 

OOOOOOG 
OOOOOOG  OOOOOOG 

015030 

050670 

10$: 

MOV 

BIT 

BEQ 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

RETURN 

$PDVA,R2 

#ZF.DIA,Z.FLG(R2) 

10$ 

RO,-(SP) 

**RDG,R1 

LOAD 

(SP)+,RO 

*»RMC,R1 

LOAD 

B-GET  PDV  ADDRESS 

B-DO  WE  NEED  TO  LOAD  DIAGNOSTICS? 

B-BR  IF  NO 

B-SAVE  RAD50  NAME 

B-R1  =  LAST  TWO  CHARACTERS 

B-LOAD  DIAGNOSTICS 

B-RESTORE  RAD50  NAME 

B-R0=FIRST  2  OR  3  CHARS,  R1=LAST  2 

B-LOAD  MICROCODE 

NTLKMf   -   LOAD  KMC   MICRO-CODE         MACRO  V05,03b  Saturday  29-Jun-85  00:31      Page   14 
LOAD  -   LOAD  MICROCODE 


NTLKMC 

CREATED  BY 

MAC.'O     ON  29 

-JUN-85   AT 

00:31 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SCLIOS 

=       ****** 

GX 

14-599 

17-689 

17-699 

SCLOPE 

-       ****** 

GX 

14-598 

$C5TA 

~       ****** 

GX 

12-490 

13-558 

$DFN2 

~       ****** 

GX 

14-590 

$ERR3A 

000H2 

R 

#8-176 

17-683 

$ERR3C 

000174 

R 

#8-177 

17-686 

$ERR3D 

000230 

R 

#8-178 

17-690 

$ERR3E 

000276 

R 

#8-179 

17-693 

$ERR3F 

000342 

R 

#8-180 

17-696 

$ERR3H 

000A04 

R 

#8-181 

17-700 

$ERR31 

000436 

R 

#8-182 

17-708 

$ERR3J 

000500 

R 

#8-183 

12-493 

$IOSB 

-      ****** 

GX 

17-689 

1  7-699 

SKMC 

000000 

RG 

#9-236 

SKMCPF 

000036 

RG 

#10-271 

$LBN 

=      ****** 

GX 

•16-662 

•16-663 

SMAPX 

-      ****** 

GX 

10-281 

10-286 

12-423 

SNAME 

=      ****** 

GX 

9-243 

12-412 

12-488 

SNTLPT 

r     ****** 

GX 

10-285 

12-422 

SPDVA 

3     ****** 

GX 

13-565 

SREAD 

~     ****** 

GX 

16-643 

SREP.C 

~     ****** 

GX 

19-799 

SREP.P 

-     ****** 

GX 

19-796 

SRLBL 

-     ****** 

GX 

15-610 

SSLTA 

r     ****** 

GX 

9-237 

12-413 

$TIDUT 

-     ****** 

GX 

18-766 

$$CSR 

-     ****** 

GX 

9-244 

12-416 

.CXKMC 

~     ****** 

GX 

10-288 

10-290 

12-429 

I     A 

PAGE   3 

CREF        04.00 
19-811 


12-503 


NTLKMC 
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NTlPRO  -  "SET  PROCESS"  ROUTINES  MACRO  V05.03b 

Saturday  29-Jun-85  00 

5 

31  F 

SCTSYM  -  FIND  SYMBOLS  FROM  CETAB 

432 

RETURN 

433 

434 

BCS     40$ 

435                          30$: 

TST     RO 

436 

BEQ     101$ 

437 

CALL    $HRCIN 

438 

BCC     40$ 

439 

EMSG$   92 

440 

.ENDC   ;  DF  R$$MPL 

441 

442  000456  000241               40$: 

CLC 

443  000460 

RETURN 

445                            ;  ERROR  CONDITIONS 

446                          ; 

447 

.IF  DF  R$$MPL 

448                            101$: 

EMSG$R  9A 

449                          STERR 

MOV    ETAB1-2(R0) 

,R0 

450 

CALLR   a)(R0)t 

451 

.ENDC 

Page  9-1 


*  RETURN  TO  USER  MODE 

IF  CS,  CTB  ALREADY  IN  LIST 
FAILURE  ? 
IF  EQ,  YES 

RE-INITIALIZE  HRC... 
IF  CC,  SUCCESS 
ELSE,  WARN  SOMEBODY 


ERROR  -  COULD  NOT  FIND  RE-CONFIGURATION  DEVICE 
GET  ERROR  MESSAGE  CONTROL  BLOCK  ADRESS 
PRINT  ERROR  MESSAGE 


NTLPRO 
PRSYM  - 


-  "SET  PROCESS"  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00: 
LOOK  FOR  PROCESS  SYMBOLS 


Page  10 


NTLPRO  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:32 

SYMBOL    CROSS  REFERENCE 


I     6 

PAGE  4 

CREF       04.00 


SYMBOL      VALUE 


Z.DSP 

Z.PCB 

$ADJ 

SALECL 

SALMHC 

$ALN18 

SAZFS 

SBIAS 

$CAT5 

$CKT 

SCTSYM 

$DFN 

$DFNAM 

SERRQX 

$ERR44 

$ERR45 

$ERR46 

$ERR47 

$ERR49 

$ERR50 

$ERR51 

$ERR53 

$ERR54 

$ERR55 

$ERR56 

$ERR57 

$ERR58 

$ERR59 

$ERR60 

$ERR61 

$ERR62 

$ERR63 

$ERR64 

$ERR65 

$ERR66 

$ERR67 

$ERR69 

$ERR70 

SINICO 

SLDSIZ 

SMAPX 

$MUL 

$NAME 

SNICAH 

$PC8 

SPDVA 

SPRCLN 

$PREXT 

$PP!NC 

SPRIO 

fPRLLN 

WOl 


REFERENCES 


=   ****** 

=   ****** 

r   ****** 

001220 

001022 

=  ****** 

r:  ****** 

-  ****** 
=  ****** 

r  ****** 

000^56 

=   ****** 

-  ****** 
~   ****** 

-  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 

-  ****** 

-  ****** 
=  ****** 
=  ****** 

-  ****** 

-  ****** 
=   ****** 

-  ****** 

-  ****** 

-  ****** 

-  ****** 

-  ****** 
=  ****** 
r  ****** 
=   ****** 

-  ****** 

-  ****** 
=  ****** 
=   ****** 

000764 

=  ****** 
=   ****** 

-  ****** 

r  ****** 

r  ****** 

-  ****** 
=  ****** 

000054 
000044 
000032 

-  ****** 

000042 


GX 

♦7-289 

GX 

7-272 

GX 

11-600 

RG 

#13-683 

RG 

#12-629 

GX 

12-642 

GX 

7-283 

GX 

♦7-290 

GX 

10-480 

GX 

11-604 

RG 

#9-388 

GX 

7-276 

GX 

10-464 

GX 

7-321 

GX 

6-228 

GX 

6-229 

GX 

6-230 

GX 

6-231 

GX 

10-581 

GX 

10-582 

GX 

6-236 

GX 

6-238 

GX 

6-239 

GX 

6-240 

GX 

6-241 

GX 

6-242 

GX 

6-243 

GX 

6-244 

GX 

6-245 

GX 

6-246 

GX 

6-247 

GX 

6-248 

GX 

6-249 

GX 

6-250 

GX 

6-251 

GX 

6-252 

GX 

12-664 

GX 

13-727 

RG 

#11-597 

GX 

7-292 

GX 

7-306 

GX 

13-689 

GX 

7-275 

GX 

11-599 

GX 

♦7-288 

GX 

7-271 

RG 

#6-188 

RG 

6-180 

RG 

6-155 

GX 

7-284 

RG 

#6-182 

GX 

n-602 

♦7-291 


13-695 
10-529 
7-305 
10-483 


8-346 
10-523 


8-349 


8-352 


10-548 
8-340 


7-286 

#6-186 
#6-180 


13-703 


11-597 


NTLROO 
VECTOR! 

38' 
39( 

39' 

39; 

■?'" 
39' 
39' 
39( 
39 
39i 
39' 
401 
40 
40, 
40 
40. 
40 
40i 
40 
40. 
40 
41 
41 
41 
41 
41 
41 
41 
41 
41 
41 
42 
42 
42 
42 
42 
42 
42 
42 
42 
42 
43 
43 
43 
43 
43 
43 


12-644 


13-697 


NTLPRO 
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NTLROO 
$NTL  - 


NTLROO  -  NTL  ROOT  SEGMENT 
VECTORED  EXEC  TABLE 


MACRO  V05.03b  Saturday  29-Jun-85  00:32  Page  6-4 


00:32 


389 

000100 

390 

000200 

391 

000400 

392 

001000 

3' 3 

002000 

394 

004000 

395 

010000 

396 

020000 

397 

040000 

398 

100000 

399 

400 

401 

402 

403 

404  001236 

000552" 

405  001240 

000070' 

406  001242 

000314' 

407  001244 

OOOOOOG 

408  001246 

OOOOOOG 

409  001250 

OOOOOOG 

410  001252 

000000 

411  001254 

000636' 

412 

413 

414 

415 

416  001256 

417  001260 

418 

419 

420 

421  001262 

422  001264 

423 

424 

425 

426 

427 

428 

429 

430  001266 

A31  001426 

432  001566 

433 

434 

435  000000 

FL.FDX= 

FL.HDX= 

FL.KHX= 

FL.LMC 

FL.MUX= 

FL.NTI= 

FL.PXI 

FL.PX2 

FL.TOP= 

FL.URN 


100 
=200 

400 
=  1000 
=2000 
=4000 
=10000 
=20000 
=40000 
=100000 


FULL-DUPLEX 

HALF-DUPLEX 

COMIOP  MULTIPLEXED  LINE 

MICRO-CODE  LOAD  NEEDED 

MULTIPLEXED  LINE 

PERFORM  NTINIT  AS  PART  OF  SET  CEX 

SUCCESSFUL  PROCESS  I/O  TRANSFER  (11M) 

LOAD  PROCESS  AT  TOP  OF  PARTITION 

WARNING  MESSAGE  OUTPUT  CONTROL 

♦*«  FL.WRN  MUST  BE  THE  SIGN  BIT  **♦ 


TRANSFER  TABLE  US:NG  FUNCTION  CODE  AS  INDEX 


FTAB: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


$SCEX 
$SPRO 
$SLIN 
SCCEX 
$CPHO 
SCLIN 
0 


.WORD   $SCIR 


END  OF  TASK  BUFFER  POINTERS 


$XBUF2::.BLKW 
$XLEN2::.BLKW 


$$NODC::.BLKW 
$$PDIN: :.8LKW 


1 


MAXIMUM  VECTOR  IN  SYSTEM 


$$HTIM 
$$LTIM 
STRIB: 


.IIF  DF  V$$CTR,  .ERROR 


:.BLKW  48. 

r.BLKW  48. 

.6LKB  1 

.EVEN 


.PSECT 


SET  CEX 
SET  PROCESS 
SET  LINE 
CLEAR  CEX 
CLEAR  PROCESS 
CLEAR  LINE 
NOT  IN  USE 


NTLROO 
Symbol 

ABS. 

$$$VEC 

DATA 

Errors 

»**  AS! 


Work  ' 
Work  • 
Size  0* 
Size  0 
Operat 

ELapse< 
SY:NTLf 


10  -  SET  CIRCUIT 


ADDRESS  OF  BINARY  BUFFER 
LENGTH  OF  BINARY  BUFFER 


;  MAXIMUM  NUMBER  OF  NODE  COUNTERS 

;  FUNCTION  CODE  FOR  PROCESS  INITIALIZATION 


THE  HIGHEST  VECTOR  ADDRESS  MUST  NOT  BE 
DEFINED  AT  ASSEMBLY  TIME 


HELLO  TIMER 
LISTEN  TIMER 
STATION  NUMBER 


NTLROO  -  NTL  ROOT  SEGMENT 
$NTL  -  NETLDR  ENTRY  POINT 
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NTLROO 


NTLROO   -  NTL   ROOT    SEGMENT 
Symbol    table 
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ABS. 

$$$VEC 

DATA 

Errors 


177776 
000745 
000274 
001570 
detected: 


000 
001 
002 
003 
0 


(RW,1,GBL,ABS,0VR) 
(RU,!,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RiJ,D,LCL,REL,CON) 


"»  Assembler  statistics 


Work   file  reads:  0 

Work  f i  le  writes:  C 

Size  of  work  file:  15165  Words 

Size  of  core  pool:  16552  Words 

Operating  system:  RSX-11M/PLUS 

Elapsed  time:  00:00:20.17 

SV: NTLROO. V2,[l 32, 134]NTLROO/CR/-SP= 


(  60  Pages) 
(  63  Pages) 


SY:[l,lJRSXMCM.SML/ML,[130,110]NETLIB/ML,ri32,103NTLROO 


NTLROO 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:32 
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NTLRQB  -  PARSE  REQUEST  BLOCK    MACRO  V05.03b  Saturday  29-Jun-85 


Jo:32 


Page  'I 


I 
2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  NTLRQB  -  PARSE  REQUEST  BLOCK 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  SEND  DATA  PACKET  PARSING  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
0ECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-HM-PLUS   Vl  .1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


NTLRQB 
SLTA  - 

47 
47 
48 
48 
48 
48 
48 
48 
48 
48 
48 
48 
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NTLRQB  -  PARSE  REQUEST  BLOCK 
MAfRn  DFMMITIONS 
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NTLRQE 
CHKLP 


NTLRQB  -   PARSE    REQUEST   BLOCK 
SLTA  -   GET    SLT    ADDRESS 


I   10 
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478  000670 

479  000674 

480  000676 

481  000700 

482  000704 
483 

026702 
001001 
005002 
010267 

OOOOOOG 
OOOOOOG 

30$: 

CMP     $DDMPV,R2 

BNE     30$ 

CLR     R2 

MOV     R2,$DLCPV 

RETURN 

COMBINATION  DDM/DLC? 
If  NE,  NO 

INDICATE  NO  DLC  PDV 
SAVE  DLC  PDV  ADDRESS 

484 
485 

•  ERROR 

CONDITIONS 

486 

487  000706 

488  000714 

489  000722 

101$: 
111$: 
121$: 

EMSGSR  95 
EMSG$R  90 
EMSGSR  88 

LINE  NOT  IN  SYSTEM 
ILLEGAL  UNIT  NUMBER 
GARBAGE  IN  DLC  PDV 

NTLRQB  -  PARSE  REQUEST  BLOCK 
CHKLP  -  CHECK  LINE  PARAMETERS 
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012700  000U6' 

004000  00000« 


NlLRQB  -  PARSE  REQUEST  BLOCK 
SCIR  -  SET  CIRCUIT 


1010 

1011 

1012 

1013 

lOU 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 
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.SBTTL  SCIR  -  SET  CIRCUIT 

h 

SCIR  -  SET  CIRCUIT 
INPUTS: 


002656 
002662 
002666 
002674 
002676 
002700 
002702 
002706 
002712 
002714 
002720 
002724 
002730 
002734 
002740 
002742 
002744 
002750 
002752 
002756 
002762 
002766 
002772 
002774 
003000 
003006 


003010 


R3  -  REQUEST  BLOCK  POINTER 


.BLKB 
.BLK8 
.BLKB 


OUTPUTS: 

SSLTA 


SCIR: 


032767 
001444 
011300 
001443 
010067 

103436 
010067 
016001 
042701 
050167 
062703 
112301 
005002 

103417 
010067 
010167 
005067 
126013 
103406 
111367 
012767 


OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000012 


0000006 
OOOOOOG 
OOOOOOG 
000014 

OOOOOOG 
OOOOOOG  OOOOOOG 


10$: 


MOV 

CALL 

BIT 

BEQ 

MOV 

BEQ 

MOV 

CALL 

BCS 

MOV 

MOV 

BIC 

BIS 

ADD 

MOVB 

CLR 

CALL 

BCS 

MOV 

MOV 

CLR 

CMP8 

BLO 

MOVB 

MOV 

RETURN 


ERRORS 
101$:   EMSG$R 


10. 

1 

1 


LR.CIR 
LO.CTL 
LO.STA 


CIRCUIT  ID 

CONTROLLER  NUMBER  (DLM  ONLY) 

STATION  NUMBER  (DLM  ONLY) 


SLT  ADDRESS 


#PBITS,RO 

$BITS 

*LS.DLM,$$LRB+4 

10$ 

(R3),R0 

101$ 

R0,$NAME 

$FPDV 

101$ 

RO,$PDVA 

Z.FLG(R0),R1 

#»C<FL.DDM!FL.DL 

R1,$FLAGS 

#<L0.CTL-LR.CIR> 

(R3)t,R1 

R2 

$FSLT 

101$ 

RO, SSLTA 

R1,$SLN 

$$MUX 

L.NSTA(R0),(R3) 

101$ 

(R3),$TRIB 

#MS.MTP,$MISS 


86 


DO  BIT  TWIDDLING 

DATA  LINK  MAPPING  CIRCUIT? 

BR  IF  NO 

GET  PROCESS  NAME 

BR  IF  ERROR 

SAVE  IT 

find  pdv  address 

br  if  not  found 

save  pdv  address 

get  process  flags 
c;fl.llc>,ri 

set  process  type  flags 
r3  ;  point  to  contoller  number 

get  controller  number 

no  unit  number 

find  slt  address 

br  if  error 

save  slt  address 

save  system  line  number 

save  unit  count 

legal  station  number? 

BR  IF  NO 

SAVE  STATION  NUMBER 

INDICATE  MULTIPOINT  PARAMTERS  MISSING 


CIRCUIT  NOT  IN  SYSTEM 


NTlRQB  -  PARSE  REQUEST  BLOCK    MACRO  V05.03b  Saturday  29-Jun-85  00:32 
SRITS  -  rnPV  BITS  FROM  REQUEST  BLOCK  TO  SFLAGS 


NTLROB  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:33 

SYMBOL    CROSS   REFERENCE 


18-770 
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PAGE   2 

CREF       04.00 


NTLSI 


SYMBOL 

VALUE 

REFERENCES 

LF.MDC 

=  000100 

#5-62 

LF.MFL 

=  OOAOOO 

#5-62 

LF.MTP 

=  000020 

#5-62 

LF.PAC 

=  000200 

#5-62 

LF.RDY 

=  OAOOOO 

#5-62 

17-628 

LF.REA 

=  010000 

#5-62 

LF.SER 

=  OOOOAO 

#5-62 

LF.TIM 

=  000010 

#5-62 

LF.UNL 

=  020000 

#5-62 

19-803 

LF.X2P 

=  000000 

#5-62 

LN.CLO 

=  000000 

#5-62 

LN.DUM 

=  000005 

#5-62 

LN.LOA 

=  000004 

#5-62 

LN.LOO 

=  000003 

#5-62 

LN.OA'J 

=  000003 

#5-62 

LN.OFF 

=  000001 

#5-62 

LN.ON 

=  000000 

#5-62 

LN.OOP 

=  000004 

#5-62 

LN.OPE 

=  000001 

#5-62 

LN.REF 

=  000002 

#5-62 

LN.SER 

=  000002 

#5-62 

LN.STA 

=  000017 

#5-62 

LN.SUB 

=  000360 

#5-62 

LN.TRl 

=  000006 

#5-62 

LO.CON 

000006 

#5-61 

LO.CSR 

000006 

#5-61 

LO.CTL 

000014 

#5-61 

22-1039 

LO.LIN 

000004 

#5-61 

LO.PAR 

000010 

#5-61 

LO.PRI 

000010 

#5-61 

LO.SCR 

000014 

#5-61 

LO.STA 

000015 

#5-61 

LO.VCT 

000012 

#5-61 

LR.AST 

000026 

#5-61 

LR.CIR 

000002 

#5-61 

22-1039 

LR.CTL 

000004 

#5-61 

LR.EFN 

000004 

#5-61 

LR.LIN 

000002 

#5-61 

LR.PRM 

000030 

#5-61 

LR.PRO 

000002 

#5-61 

LR.STS 

000000 

#5-61 

LR.TCB 

000002 

#5-61 

LR.UNT 

000005 

#5-61 

LS.AST 

=  100000 

#5-61 

LS.CEX 

=  000001 

#5-61 

LS.CIR 

=  000010 

#5-61 

LS.CXO 

=  010000 

#5-61 

LS.CX5 

=  000400 

#5-61 

LS.DLM 

=  004000 

#5-61 

22-1028 

LS.ECH 

=  001000 

#5-61 

6-126 

LS.FDX 

=  004000 

#5-61 

6-124 

LS.HDX 

=  010000 

#5-61 

6-125 

19-797 


21-994 


NTLROB 
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NTLS 


NTLSUB  -  COMMON  SUBROUTINES 


268 
269 
270 
271 
272 
273 
27U 
27"^ 
276 
277 
278 
279 
280 

281  000216 

282  000216 

283  000222 

284  OO022A 

285  00022A 

286  000230 

287  000230 

288  000232 

289  000234 

290  000240 

291  000242 

292  000246 

293  000250 

294  000254 

295  000260 

296  000264 

297  000266 


1  13 

00:33 
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SREP.N  -  REPLACE  "♦"  WITH  aSCLIOS  (ERROR  CODE)  CONVERTED  TO  DECIMAL 
SCUR.N  -  REPLACE  CURRENT  LEVEL  FILE  NAME  AND  ERROR  CODE 
SPRV.N  -  REPLACE  PREVIOUS  LEVEL  FILE  NAME  AND  ERROR  CODE 

INPUTS: 

R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  STRING  ADDRESS 

OUTPUTS: 

RC,Rl,R2=DESTR0yED 
R3,R4=UPDATED 


NlLSV 


000402 


010500 
005720 
122720 
001375 
117701 
005002 


000050 
OOOOOOG 


kuR.N: 


SPRV.N: 
SREP.N:: 


10$: 


112720  000056 
112720  000051 
105010 


CALL 
BR 

'call 
'mov 

TST 

CMP8 

BNE 

M0V8 

CLR 

CALL 

MOVB 

Move 

CLRB 
RETURN 


SREP.C 
SREP.N 

SREP.P 

R5,R0 

(R0)  + 

#'(,(R0><- 

10$ 

a$CLIOS,Rl 

R2 

SCBDSG 

#'.,(R0)*- 

#'),(R0)+ 

(RO) 


REPLACE  CURRENT  LEVEL  FILE  NAME 


REPLACE  PREVIOUS  LEVEL  FILE  NAME 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 
NOW  POINTS  AT  TEXT  STRING 
LOOK  FOR  LEFT  PAREN 

GET  ERROR  CODE 

SUPPRESS  LEADING  ZEROES 

CONVERT  TO  SIGNED  DECIMAL 

DEPOSI.  DECIMAL  POINT 

RIGHT  PAREN 

AND  ZERO  BYTE  (END  OF  TEXT  INDICATOR) 


NTLSUB  -  COMMON  SUBROUTINES 


J  13, 
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NILS' 

*^vmhf 
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1  1* 

00:34 


174  000006 

175  000010 

176  000012 
177 

178  000000 

179 

180 

181 


000013 


000001 


LB.ADft: 
LB.SIZ: 

LB. USE: 


.BLKW  1 
.BLKW  1 
.BLKW   1 


LB.APR==LB.USEt1 
.PSECT 


.END 


ADDRESS/BIAS 

SIZE 

USE  COUNT 

STARTING  APR  (MAPPED  ONLY) 


NILTM 
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^vmKn  I   t- Ah  !  p 


NTLT^ 


I  15 

Mltmp  -  TEMPLATE  PROCESSING   MACRO  VOS.O^b  Saturday  29-Jun-85  00:34  Page  8 

I  »*•  BOTH  OF  THE  FOLLOWING  ARE  OVERLAY  HACKS  •♦* 


298 
299 
300 

301 
302 
503 
304 

305  000306 

306  000506 
507  000312 
508 

309 

510 

311 

512  000516 

315  000516 

51 A  000322 


•  PROCESS  TEMPI  ATE  FILE  FROM  "TMPAC2"  OVERLAY 
iTMFIX:: 


CALL    STMFIL 
CALLR   IFILEX 


;  PROCESS  SECONDARY  TEMPLATE 
;  RETURN  TO  "SFILE"  SUBROUTINE 


ACCESS  BINARY  FiLE  AND  RELOAD  TPARS  TABLES 

:abfi 


CALL    $A8FI 
CALLR   STPARS 


PROCESS  FILE  NAME  OPERAND 
RELOAD  TPARS  TABLES 


NTLTMP  -  TEMPLATE  PROCESSING 
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,f  1lE«MD'«NTLUNL 


1  16 


NN     NN 

TTTTl 

TTTTT 

UU 

UU 

NN 

NN 

NN     NN 

TTTT 

TTTTT 

UU 

UU 

NN 

NN 

NN     NN 

UU 

UU 

NN 

NN 

NN      NN 

UU 

UU 

NN 

NN 

NNNN    NN 

UU 

UU 

NNNN 

NN 

NNNN    NN 

UU 

UU 

NNNN 

NN 

NN  NN   NN 

UU 

UU 

NN 

NN  NN 

NN  NN   NN 

UU 

UU 

NN 

NN  NN 

NN    NNNN 

UU 

UU 

NN 

NNNN 

NN    NNNN 

UU 

UU 

NN 

NNNN 

NN      NN 

UU 

UU 

NN 

NN 

NN     NN 

UU 

UU 

NN 

NN 

NN     NN 

LLLLLLLLLL 

UUUUUUUUUU 

NN 

NN 

LLLLLLLLLL 

NN     NN 

LLLLLLLLLL 

UUUUUUUUUU 

NN 

NN 

LLLLLLLLLL 

ss 
ss 
ss 

ss 


ssssssss 
ssssssss 


TTTTI 
TTTTT 


■TTTT 

'TTTT 


SS5S5S 
SSSSSS 


LLLLLLLLL 
LLLLLLLLL 


SSSSSSSS 
SSSSSSSS 


SS 
SS 
SS 
SS 


NTLUNL  -  NIL  UNLOAD  ROUTINES 
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NTLKMC 


55 

56 

57 

58 

59 

60  000000 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76  000000 

77 

78 

79 

80 

81  000000 

82 

83 

84 

85 

86  000010 

87 

88 

89 

90 

91  000022 

92  000026 
93 

94 
95 
96 

■;7 

98 

99  000064 
100 
101 
102 
103 
104 
105 
106 
107 
108 

109  000136 
110 
111 


000 


LIBRARY  MACROS 

.MCALL  D]R$,EMSG$,NTLER$,RCVX$,SDAT$,EX]T$S,QIOW$,RETC,NTLDF$ 


NTLDFS 
.IF  DF 


DEFINE  NETLDR  BLOCK  OFFSETS 


R$$11D!I$$AS 


.MCALL  CRAWSS 

.IFF 

.MCALL  RSXOKS 

.ENDC 

*** 

LOCAL  DATA 
*** 

.PSECT  DATA.D 

RECEIVE  DATA  FROM  REQUESTING  TASK  OR  EXIT  (DPB) 
RCVDAT:  RCVX$   ,$$LRB 

SEND  DA'"  BACK  TO  REQUESTING  TASK  (DPB) 
ANSWER:  SDAT$   XXXXXX,$$LRB+4 


57 
58 
59 
60 
61 
62 
63 
64 
65 


LOAD  REQUEST  BLOCK 

ELRB::  .BLKW   2 
.BLKW   15. 

ERROR  MESSAGES 


REQUESTING  TASK'S  NAME 


.ENABL 

.IF  DF 

NTLERS 

.IFF 

NTLERS 

NTLERS 

.ENDC 

.DSASL 


R$$11M 

,40,,$RERR,RTSPC,,<Incompatible  With  RSX-11M  Sy5tem> 

,40,,$RERR,RTSPC,,<FaUed  to  create  Address  Window> 
,4A,,$RERR,RTSPC.,<PLAS  support  required  for  DECnet> 

LC 


ERROR  MESSAGE  FORMAT  STRING 

FMTO:    .ASCIZ  "" 
.EVEN 


K     1 
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NTLKMC 
KMC   DAI 


NTLKMC  -  LOAD  <MC  MICRO-CODE    MACRO  V05.03b  Saturday  29-Jun-85  00:31  Page  5 


57 

58 

59 

60  000000 

61 

62 

63 

64 

65 


.MCALL  EI*ISG$,NTLER$,SLTDF$ 

SLTDFS  ;  DEFINE  SLT  SVMBOLS  AND  OFFSETS 

.IF  DF  R$$MPL 

.MCALL  STAF$,RMAF$S,DIR$ 

.ENDC 


NTLKMC    -   LOAD   KMC   MICRO-CODE 
KMC   DATA  BASE    DESCRIPTION 
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NTLKMr  -  LOAD  KMC  MICRO-CODE 
LOAD  -  LOAD  MICROCODE 


576 
577 
578 
579 
580 
581 
582 
583 
58A 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 


MACRO  V05.03b  Saturday  29-Jun-85  00 


:ll 


Page  14 


000624 

000630  005000 
000632  005001 
000634  005002 
000636 


000642 

000646  105777  OOOOOOG 

000652  100511 


.SBTTL  LOAD  -  LOAD  MICROCODE 


LOAD  -  LOAD  MICRCOCODE 

INPUTS: 

RO  -  FIRST  THREE  RAD50  CHARACTERS  FOR  FILE  NAME  TO  OPEN 
R1  -  LAST  TWO  RAD50  CHARACTERS  FOR  FILE  NAME  TO  OPEN 

OUTPUTS: 

KMC  RAM  LOADED  FROM  SPECIFIED  FILE  NAME 


LOAD:    CALL  $DFN2 

CLR  RO 

CLR  R1 

CLR  R2 

CALL  $A7FS 

OPEN  FILE  FOR  PROCESSING 

CALL  SCLOPE 

TST8  aSCLIOS 

BMI  30$ 


B-PLACE  "XXXMC"  IN  SDFNAM  FOR  $AZFS 

B-USE  DEFAULT  UIC  STRING 

B-NAME  ALEADY  IN  SDFNAM  (DEFAULT) 

B-USE  DEFAULT  EXTENSION 

8-LEAVE  R1->STRING,  R2=LENGTH 


B-OPEN  FILE  WITH  R1->NAME,  R2=LENGTH 
e-DID  THE  OPEN  SUCEED? 
8-BR  ON  OPEN  ERROR 


NTLKMC 
MACRO 
MACRO 
CALL 


EMSG$ 
N'uERI 
RETURf 

SLT0F1 
SWSTKJ 


MLKMC    -   LOAD  KMC   MICRO-CODE 
LOAD  -   LOAD  MICROCODE 
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NTLtCMC  CREATED  BY      MACRO     ON  29-JUN-85   AT   00:31 

MACRO  CROSS  REFERENCE 
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MACRO  NAME 

REFERENCES 

CALL 

9-245 

9-247 

10-276 

12-493 

12-501 

12-503 

16-643 

16-674 

17-683 

18-752 

18-755 

18-762 

20-856 

21-885 

21-887 

EMSG$ 

#5-58 

12-493 

17-683 

N".ER$ 

#5-58 

8-176 

8-177 

RETURN 

9-249 

11-316 

11-377 

21-896 

21-905 

SLTDFS 

#5-58 

5-60 

SWSTKt 

10-276 

12-420 

12-501 

10-281 

13-558 

17-686 

18-766 

21    "" 

17-686 

8-178 

12-474 


PAGE 

4 

CREF 

04.00 

10-286 

11-349 

12-420 

12-423 

12-486 

12-490 

•3-570 

13-573 

14-590 

14-594 

14-598 

15-610 

•  7-690 

17-693 

17-696 

17-700 

1^-J2§ 

17-710 

19-796 

19-799 

19-813 

20-848 

20-853 

20-855 

21-891 

17-690 

17-693 

17-696 

17-700 

17-708 

8-179 

8-180 

8-181 

8-182 

8-183 

12-523 

13-574 

17-724 

18-758 

18-767 

19-816 

K     « 
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PRSYM  -  LOOK  FOR  PROCESS  SYMBOLS 


A53 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 

464  000462 

465  000466 

466  000472 

467  000476 

468  000500 

469  000502 
470 

471  000504 

472  000512 

473  000516 

474  000520 

475  000522 

476  000526 

477  000532 

478  000536 
479 

480  000540 

481  000544 

482  000550 

483  000552 

484  000556 
485 

486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 


012700  OOOOOOG 

012701  000013' 

012702  000004 
005302 
112021 
001375 


.SSTTL  PRSYM  -  LOOK  FOR  PROCESS  SYMBOLS 

VrSYM  -  LOOK  FOR  SPECIAL  PROCESS  SYMBOLS 

INPUTS: 

$DFNAM=ASCIZ  PROCESS  NAME 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
PVAL=DISPATCH   TABLE   ADDRESS 


000124     177777 
000102 


000040 


112761 
112721 
005702 
001404 
112721 


012700  000012' 
010701 


010167  000024' 
010701 

010167  000026' 


PRSYM; 


10$: 


20$: 
30$: 


MOV 

MOV 

MOV 

DEC 

MOVB 

BNE 

MOVB 

MOVB 

TST 

BEQ 

MOVB 

SOB 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 


35$: 


37$: 


MOV 

MOV 

MOVB 

BNE 

MOVB 

MOVB 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

MOVB 

BNE 

MOVB 

MOVB 


#$DFNAM,RO 

*DSPTABt1,R1 

#4,R2 

R2 

(R0)+,(R1)+ 

10$ 

#'T,-1(R1) 

#'B,(Rl)t 

R2 

30$ 

#'  ,(R1)t 

R2,20$ 

#DSPTAB,RO 

PC.Rl 

$CAT5 

Rl.PSYM 

PC.Rl 

$CAT5 

R1,PSYM+2 


.IF  DF  R$$MPL 


#$DFNAM,RO 

#VECTAB+1,R1 

(RO)+,(Rl)t 

35$ 

#'V,-1(R1) 

#'T,{R1) 

#VECTAB,RO 

PC,R1 

$CAT5 

RI.VTSYM 

PC,R1 

$CAT5 

R1,VTSYMt2 


#$DFNAM,RO 

#VECLENtl,' 

(RO)t,(Rl. 

37$ 

#'V,-1(R1 

#'L,(R1) 


R1 


FORM  DISPATCH  TABLE  ADDRESS  NAME 

BY  STARTING  WITH  "$", 

APPENDING  THE  PROCESS  NAME, 

APPENDING  "TB", 

AND  BLANK  FILLING  OUT  TO  6  CHARACTERS 


BLANK  FILL  IF  NEEDED 


NOW  TAKE  THE  ASCII  NAME 
AND  CONVERT  TO  RAD50 

STORING  THE  RAD50  NAME  IN  THE  GLOBAL 
SYMBOL  LOOKUP  CONTROL  BLOCK 


form  dispatch  table  address  name 
by  starting  with  "$", 
copy  name 

create'$xxxvt 


NOW  TAKE  THE  ASCII  NAME 

AND  CONVERT  TO  RA050 

STORING  THE  RAD50  NAME  IN  THE  GLOBAL 

SYMBOL  LOOKUP  CONTROL  BLOCK 


FORM  DISPATCH  TABLE  ADDRESS  NAME 
BY  STARTING  WITH  "$", 


CREATE  $XXXVL 


NlLPRI 

SYMBOi 

SYMBOI 

$SAVAI 
$SQSR' 
$SYMBl 
$XFER 
$$DEV 
$$NOD 
$$TBL 
.CXSYI 
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PRSYM  -  LOOK  FOR  PROCESS  SYMBOLS    


Page  10-1 


NTLPR 


NTLPRO     CREATED  BY 
SYMBOL  CROSS  REFERENCE 


MACRO     ON  29-JUN-85   AT   00:32 


8-359 


J     6 

PAGE   5 

CREF        OA.OO 


NTLROO 
$NTL  - 


SYMBOL 

VALUE 

REFERENCES 

SSAVAL 

-     irtt  *** 

r,x 

12-629 

13-683 

SSQSRV 

000100 

R 

#6-202 

8-357 

$SYMBL 

-    ****** 

GX 

10-531 

$XFER 

000000 

RG 

#7-270 

$$DEV 

r    ****** 

GX 

10-519 

10-520 

$$NODC 

-    ****** 

GX 

*1 5-687 

13-700 

$$TBL 

-    ****** 

GX 

♦10-5A2 

.CXSYM 

—     ****** 

GX 

10-551 

NTLPRO 


CREATED  BY     MACRO     ON  29-JUN-85   AI   00:32 
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NTLROO 
SSPRO 


NTLROO  -  NTL  ROOT  SEGMENT 
$NTL  -  NETLDR  ENTRY  POINT 

437 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455  000000 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 
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.SBTTL  $NTL  -  NETLDR  ENTRY  POINT 


$NTL  -  NETLDR  ENTRY  POINT 

THIS  PROGRAM  IS  CALLED  TO  TRANSFER  MCB  PROCESSES  FROM  DISK  TO  CORE  AND 
TO  ALLOCATE  AND  INITIALIZE  PROCESS  LINE  TABLES.  NETLDR  RECEIVES  ITS  INPUT 
BY  A  SEND  DATA  BLOCK. 

INPUTS: 

DATA  BLOCK  CONTAINS  LOADER  DATA. 

OUTPUTS: 

DATA  BLOCK  (1  WORD  OF  STATUS)  IS  RETURNED  TO  CALLING  PROGRAM. 
CALLING  PROGRAM  IS  RESUMED. 


iNTL: 


000000 

472  000004 

473  000010 

474  000014 

475  000016 

476  000022 

477  000024 

478  000030 

479  000032 

480  000036 

481  000040 

482  000044 

483  000046 

484  000052 

485  000054 

486  000062 

487  000066 


004767 
004767 
004767 
103417 
005767 
001417 
005767 
001403 
004767 
103406 
016700 
006300 
004770 
103003 
012767 
004767 
000746 


OOOOOOG 
OOOOOOG 
OOOOOOG 

000012' 

000014- 

OOOOOOG 

000012' 

001234' 

M7777 
OOOOOOG 


000012' 


.IF  DF 

R$$MPL 

.IF  NDF 

R$$PRO 

DIR$ 

#TRNVEC 

BCC 

10$ 

lOT 

10$: 

MOV 

FMASK.RG 

TST 

(R0)  + 

BIT 

#F2.DAS,(R0) 

BEQ 

15$ 

MOV 

#$IC8D,$ICBLN 

.ENDC 

.ENDC 

15$: 

CALL 

$NLINI 

LOOP: 

CALL 

$NLGET 

CALL 

$NLRQB 

BCS 

20$ 

TST 

$FUNC 

BEQ 

30$ 

TST 

$MISS 

BEQ 

10$ 

CALL 

$NLCFG 

BCS 

20$ 

10$: 

MOV 

$FUNC,RO 

ASL 

RO 

CALL 

aFTA8-2{R0) 

BCC 

30$ 

20$: 

MOV 

#-1,$FUNC 

30$: 

CALL 

$NLPUT 

BR 

LOOP 

SETUP  VECTORED  EXEC  TABLE 
IF  SUCCESS  -  BRANCH 


GET  $FMASK  ADDRESS 

GET  $FMASK+2  ADDRESS 

D-SPACE  SUPPORTED  ? 

IF  NO  -  BRANCH 

IF  YES  -  SETUP  KB  LENGTH 


INITIALIZE  NETLDR 

GET  REQUEST  BLOCK  (OR  EXIT) 

PROCESS  REQUEST  BLOCK 

IF  CS,  BAD  INPUT  PARAMETER 

IS  THIS  FUNCTION  A  NOP? 

IF  EQ,  YES 

ARE  ANY  REQUIRED  PARAMETERS  MISSING? 

IF  EQ,  NO 

SCAN  CONFIGURATION  FILE 

IF  CS,  CONFIG  ERROR 

GET  FUNCTION  CODE 

MAKE  A  UORD  INDEX 

TRANSFER  TO  FUNCTION  SPECIFIC  ROUTINE 

IF  CC,  NO  PROBLEM 

INDICATE  ERROR 

SEND  BACK  1  WORD  SUCCESS/FAILURE  CODE 

TRY  FOR  ANOTHER  REQUEST 
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NTLROO   -   NTL   ROOT   SEGMENT 
SSPRO  -   SET   PROCESS 
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NTLROO  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:32 

SYMBOL    CROSS   REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

AlC 

000^7^  R 

11-672 

11-689    #12-734 

ALOCB 

000266  RG 

#6-211 

AL0C1 

000264  RG 

#6-210 

CCBAF 

000122  RG 

#5-151 

CCBAL 

000132  RG 

#5-155 

CCBCT 

0001 H  RG 

#5-148 

CCBLH 

000220  RG 

#6-188 

CCBNM 

000116  RG 

#5-149 

CCBSZ 

000222  RG 

#6-189 

CEAVL 

0002A0  RG 

#6-198 

CEPWR 

000106  RG 

#5-145 

CLKHD 

000022  RG 

#5-109 

CMFR< 

000066  RG 

#5-127 

CRAVL 

000026  RG 

#5-111 

CXOPT 

000230  RG 

#6-192 

DEACB 

OOOOAO  RG 

#5-116 

DEACl 

000050  RG 

#5-120 

DECPT 

000150  RG 

#6-168 

DEUMR 

OOOOU  RG 

#5-90 

DEVHD 

000036  RG 

#5-115 

EXRQN 

000016  RG 

#5-91 

EXSIZ 

00002A  RG 

#5-110 

FC.PCT 

=  000030 

8-550 

FILHD 

000152  RG 

#6-169 

FL.CEX 

=  000010  G 

#6-386 

FL.CHA 

=  000020  G 

#6-387 

FL.ODM 

=  000001  G 

#6-383 

12-736    12-737 

FL.DLC 

=  000002  G 

#6-384 

12-736    12-737 

FL.ECH 

=  000040  G 

#6-388 

FL.FDX 

=  000100  G 

#6-389 

FL.HDX 

=  000200  G 

#6-390 

FL.KMX 

=  000400  G 

#6-391 

FL.LLC 

=  000004  G 

#6-385 

8-521 

FL.LMC 

=  001000  G 

#6-392 

FL.MUX 

=  002000  G 

#6-393 

FL.NTI 

=  004000  G 

#6-394 

FL.PXl 

=  010000  G 

#6-395 

8-516     11-679 

FL.PX2 

=  020000  G 

#6-396 

11-696    14-823 

FL.TOP 

=  040000  G 

#6-397 

FL.WRN 

=  100000  G 

#6-398 

FMASK 

000020  RG 

#5-108 

FS.INI 

:=  000000 

8-550 

FTAB 

001236  R 

#6-404 

7-483 

HEADR 

000270  RG 

#6-212 

;s$As 

r  ****** 

12-741 

13-781 

KISARO 

=  ******   GX 

5-125 

K1SAR5 

-   ******  Gx 

5-87 

KISAR6 

;  ******  GX 

5-88 

<ISAR7 

=  ******  Gx 

5-89 

KSARO 

000062  RG 

#5-125 

KSAR5 

000006  RG 

#5-87 

lt:SAR6 

000010  RG 

#5-88 
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14-816 


NTLRQB 
MACRO  [ 

5' 
5' 
5( 
5; 
5f 
5< 
6( 
6' 

6; 


NTLROO 
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NTLRQB 
LOCAL 


NTLRQB  -   PARSE   REQUEST   BLOCK 
MACRO  DEFINITIONS 

55 
56 
57 
58 
59 
60 

61  000000 

62  000000 
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.SBTTL     MACRO  DEFINITIONS 

;   LIBRARY   MACROS 

.MCALL      ASL$,EMSG$,EMSG$R,NTLDF$,NTLER$,SLrDF$ 


NTLDF$ 
SLTDF$ 


NETLDR  REQUEST  BLOCK   OFFSETS 
DEFINE   SLT   OFFSETS  AND   SYMBOLS 


NTLRQB   -   PARSE   REQUEST   BLOCK 
LOCAL    DATA 
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NTLRQB  -  PARSE  REQUEST  BLOCK 
CHKLP  -  CHECK  LINE  PARAMETERS 


A91 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 

516  000730  012767 

517  000736  032767 

518  000744  001002 

519  000746  012703 

520  000752  012300 

521  000754  001414 

522  000756  022700 

523  000762  101111 

524  000764  032700 

525  000770  001106 
526 

527 
528 
529 
530 
531 
532 
533 

534  000772 

535  000776  103514 

536  001000  042767 

537  001006  010067 

538  001012  012300 

539  001014  001406 

540  001016  022700 

541  001022  103474 

542  001024  042767 

543  001032 

5Z.A   001044     010067 

545  001050  012300 

546  001052  001411 

547  001054  032700 
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.SBTTL  CHKLP  -  CHECK  LINE  PARAMETERS 


CHKLP  -  CHECK  LINE  PARAMETERS 

INPUTS: 

LS.OPT  SET  IF  ANY  OPTIONAL  PARAMETERS 

R3iREQUEST  BLOCK  POINTER 

.8LKW  1      ;  LO.CSR 

.BLKU  1      ;  LO.PRI 

.BLKW  1       ;  LO.VCT 

.8LKW  1      ;  LO.SCR 


CSR  ADDRESS 
INTERRUPT  PRIORITY 
INTERRUPT  VECTOR 
SECONDARY  CSR 


OUTPUTS: 

C-8n=SUCCESS/FAILURE 

R3=DESTR0YED 

$$CSR=CSfi  ADDRESS 

$$PRI=INTERRUPT  PRIORITY 

$$VECT=INTERRUPT  VECTOR 

..SCSR=SECONDARY  CSR 

SMISS  MAY  BE  SET  NON-ZERO  IF  ANY  FIELDS  ARE  MISSING 


OOOOOOG  OOOOOOG  CHKLP: 
000400  000004G 

000116' 


20$: 


160000 
000003 


OOOOOOG  OOOOOOG  25$: 
OOOOOOG        30$: 


000007 

OOOOOOG  OOOOOOG 

OOOOOOG 

000003 


40$: 


MOV 

#MS.LIN,$HISS 

ALL  PARAMETERS  MISSING 

BIT 

#LS.0PT,$$LRB+4 

ANY  OPTIONAL  PARAMETERS  INCLUDED 

BNE 

20$ 

..  YES 

MOV 

#NULL,R3 

NO  ..  USE  NULL  INPUT  PARAMETERS 

MOV 

(fi3)+,R0 

GET  CSR  VALUE 

BEQ 

30$ 

IF  ZERO,  FIELD  MISSING 

CMP 

#160000, RO 

IS  IT  AN  I/O  PAGE  ADDRESS? 

BHI 

101$ 

IF  HI,  NO 

BIT 

#3,fi0 

IS  IT  A  MULTIPLE  OF  4? 

BNE 

101$ 

IF  NE,  NO 

.IF  DF 

R$$MPL 

TST8 

aNCPU 

IS  THIS  A  MULTI-PROCESSOR  SYSTEM 

BNE 

25$ 

IF  NE,  YES 

.ENDC 

CALL 

$NLCSR 

IS  THE  DEVICE  ONLINE  ? 

BCS 

131$ 

..  NO 

BIC 

*MS.CSR,$MISS 

INDICATE  CSR  INCLUDED 

MOV 

RO,$$CSR 

SET  CSR  ADDRESS 

MOV 

(r!)+,RO 

GET  PRIORITY  VALUE 

BEQ 

40$ 

IF  ZERO,  FIELD  MISSING 

CMP 

#7,R0 

IS  IT  RANGE  1-7? 

BLO 

1lU 

IF  LO,  NO 

BIC 

#MS.PRI, SMISS 

INDICATE  PRIORITY  INCLUDED 

ASL$ 

5.fi0 

CONVERT  TO  PSW  PRIORITY  VALUES 

MOV 

r6,$$pri 

SET  INTERRUPT  PRIORITY 

MOV 

(R3)t,R0 

GET  VECTOR  VALUE 

BEQ 

50$ 

IF  ZERO,  FIELD  MISSING 

BIT 

#3,R0 

•  IS  IT  A  MULTIPLE  OF  4? 

NTLRQB  -  PARSE  REQUEST  BLOCK 
CHKLP  -  CHECK  LINE  PARAMETERS 
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Page  23 


1057 

1058 

1059 

1060 

1061 

1062 

1063 

106^ 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072  003016 

1073  003016 

012701   000004G 

1074  003022 

012702  OOOOOOG 

1075  003026 

000401 

1076  003030 

005720 

1077  003032 

005710 

1078  003034 

001404 

1079  003036 

032011 

1080  003040 

001773 

1081  003042 

052012 

1082  003044 

000772 

1083  003046 

.SBTTL  $8ITS  -  COPY  BITS  FROM  REQUEST  BLOCK  TO  SFLAGS 

h 

$BITS  -  COPY  BITS  FROM  REQUEST  BLOCK  TO  SFLAGS 

INPUTS: 

RO  =  POINTER  INTO  MAPPING  TABLE 

OUTPUTS: 

R1  =  ADDRESS  OF  REQUEST  BLOCK  STATUS  WORD 
R2  =  ADDRESS  OF  SFLAGS 


SBITS: 


MOV 

#S$LRSt4,R1 

MOV 

#$FLAGS,R2 

BR 

20$ 

10$: 

TST 

(fiO)  + 

2ns : 

TST 

(RO) 

BEQ 

30$ 

BIT 

(R0)+,(R1) 

BEQ 

10$ 

BIS 

(R0)+,(R2) 

BR 

20$ 

SETUP  ADDRESSES 

GO  test'first  item 

SKIP  SECOND  WORD  IN  TABLE  ENTRY 

END  OF  lABLE  ? 

IF  EQ,  YES 

IS  THE  BIT  SET  IN  REQUEST  BLOCK 

IF  EQ,  NO 

SET  THE  BIT  IN  SFLAGS 


30$: 


RETURN 
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NTLRQB  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:33 

SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


LS.LIN 

LS.LMC 

lS.NTI 

LS.ON 

LS.OPT 

LS.PRO 

LS.PWF 

LS.TOP 

LS.UNF 

LS.X25 

LS.I1D 

LX.CEX 

LX.LIN 

LX.PRO 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

MS.CSR 

MS. EXT 

MS. INC 

MS. LIN 

MS. LLC 

MS.MTP 

MS. PR  I 

MS. SEC 

MS.VCT 

M$$MGE 

NTLPT 

NULL 

PBITS 

PDVA 

PDVNM 

PDVNUM 

PDVTA 

PDVX 

P.REL 

REP7 


=  000003 

=  000007 

=  004000 

=  000011 

=  000400 

=  000002 

=  040000 

=  002000 

=  020000 

=  000012 

=  004000 

=  000004 

=  000006 

=  OOOOOS 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

=  000022 

000022 

000020 

000014 

000021 

000013 

r  ****** 

r  ****** 


000000 

****** 

000116  R 

000146 

000204 


GX 
GX 
GX 
GX 
GX 
6X 
GX 
GX 
GX 

GX 


000134  R 

******   Q 

000126  R 

******   Q 

003420  R 


GX 

R 
GX 


GX 


REFERENCES 

#5-61 
05-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 

15-536 

12-369 

12-369 

15-516 

13-409 

22-1050 

15-542 

15-569 

15-551 

20-826 

20-828 
#6-115 
#6-126 

6-93 

21-905 
#6-119 

14-473 
#6-116 

24-1120 

7-145 

7-158 

28-1265 


9-278 

12-370 


6-127 


25-1160 

18-763 

14-472 


17-628 


18-701 

22-1047 

25-1162 

12-381 
12-375 


12-372 
13-405 
6-104 
24-1105 
*21-905 
21-903 
18-774 

7-146 
7-159 
29-1310 
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CREF        04.00 


NTLSI 


15-517 


30-1358 

21-987 

18-760 


18-696 


25-1168 


15-519 
22-1026 
#11-330 

*21-1004 
24-1103 
♦21-902 

7-147 
7-160 
30-1339 


25-1158 
18-763 


18-701 


30-1364 


30-1346 
21-984 


18-769 


19-796 


21-937 


21-993 


24-1117 
21-999 

7-148 
7-161 


30-1347 
»21-1003 

7-149 
7-167 


•24-1121 


25-1158 


■150 
■175 


151 
177 


7-152 
7-178 


7-154 
#27-1244 
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CREATED  BY     MACRO     ON  29-JUN-85  AT   00:33  PAGE   4 


K  12 


NTLS 


NTLSUB  -  COMMON  SUBROUTINES 


299 
500 
301 
302 
303 
30^ 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
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ITIOUT 
SFNOUT 

INPUTS: 


PRINT  MESSAGE  ON  TI: 

PRINT  NAME  OF  LAST  FILE  OPENED  ON  TI: 


RO=MESSAGE  ADDRESS 
RI^MESSAGE  LENGTH 


OUTPUTS: 

NONE 


000270 

000270  012700  000255' 

000274  016701  000050' 

000500  160001 

000502 

000502  010067  OOOOU' 

000506  010167  000016' 

000512 

000520 


tFNOUT:: 


STIOUT:: 


MOV 
MOV 
SUB 

'mov 

MOV 

DIRS 

RETURN 


#fNERR,RO      ;  GET  MESSAGE  ADDRESS 
FNPTR,R1        ;  CALCULATE  LENGTH 
R0,R1 

RO.TIOUT+Q.IOPL  ;  SET  DPS  BUFFER  ADDRESS 
R1,TI0UTtQ.10PL+2  ;  AND  BUFFER  LENGTH 


#TI0UT 


ISSUE  TI:  OUTPUT  QIO 


NTLSUB  -  COMMON  SUBROUTINES 
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NTLSYM  -  OFFSET  SYMBOL  DEFINITI  MACRO  V05.03b  Saturday  29-Jun-85  00:3A 
Symbol  table 


Page  5-4 


AB 

At$CHK= 

A$$CPS= 

A$$PRI= 

At$TRP= 

C$$CKP= 

C$$ORE= 

Ct$RSH= 

Dt$BUG= 

D$SISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

F$$LVL= 

GS$TPP= 

Gt$TSS= 

G$$TTK= 

G$$WRD= 

I$SRAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LB. ADR 

LB.APR= 

LB.SIZ 

LB. USE 

LDSLP  = 

L$$ASG= 


000000  G 

000000 

000000 

000000 

000000 

000000 

000400 

177564 

17751A 

000000 

000001 

000000 

000000 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000006  G 

000013  G 

000010  G 

000012  G 

000000 

000000 


L$$DRV= 
L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
MS$MGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
PS$P45= 
P$$gRD= 
Q$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
S$$WRG= 
S$$YSZ= 
T$$KMG= 
T$$M1N= 
V$$CTR= 
X$$CiBT= 
ZF.COU= 


000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000000 
007600 
000000 
000000 
001000 
000000 
001000  G 


.  ABS.  000070 
000000 
Errors  detected: 


000 
001 
0 


(RW,I,G8L,ABS,0VR) 
(RW,I,LCL,REL,CON) 


■•*   Assembler    statistics 


Work      file      reads:  0 

Work      file   writes:  0 

Size  of  work    file:  10085  Words      (   40  Pages) 

Size  of  core  pool:  14440  Words      (   55  Pages) 

Operating     system:  RSX-11M/PLUS 


ZF.DDM= 

000001 

G 

.APR 

000040 

G 

.MXTAB 

000023  6 

ZF.DIA= 

004000 

G 

.BLK8 

000003 

G 

.NODE 

000024  G 

ZF.[)LC  = 

000002 

G 

.BLKU 

000004 

G 

.PECHA 

000045  G 

ZF.DVP= 

100000 

G 

.BYTE 

000005 

G 

.PRI 

000025  G 

ZF.INI= 

040000 

G 

.CORE 

000006 

G 

.PRTOV 

000026  G 

ZF.KMX= 

000020 

G 

.CSR 

000007 

G 

.SCOM 

000027  G 

ZF.LLC= 

000004 

G 

.CTIM 

000010 

G 

.SECSR 

000030  G 

ZF.LMC= 

000100 

G 

.CXALL 

000062 

G 

.SLNB 

000031  G 

ZF.MAN= 

020000 

G 

.CXCSR 

000004 

G 

.SLNW 

000032  G 

ZF.MFL= 

000010 

G 

.CXL8R 

000060 

G 

.STNB 

000033  G 

ZF.MTM= 

000400 

G 

.CXLB1 

000030 

G 

.STNW 

000034  G 

ZF.MUX- 

000040 

G 

.CXLB2 

000044 

G 

.TIME 

000043  G 

ZF.PSE= 

002000 

G 

.CXLEN 

000064 

G 

.UNB 

000035  G 

ZF.SL]= 

010000 

G 

.CXPCB 

000006 

G 

.UNW 

000036  G 

ZF.T]M= 

000200 

G 

.CXSYM 

000010 

G 

.WORD 

000037  G 

ZF.X3P= 

000000 

G 

.CXUNL 

000024 

G 

.X2CH1 

000061  G 

ZS.ASN= 

100000 

G 

.CXVEC 

000026 

G 

.X2CH2 

000062  G 

ZS.8SV= 

140000 

G 

.CXVSM 

000016 

G 

.X2CH3 

000063  G 

Z.AVL 

000014 

G 

.DPRB 

000041 

G 

.X2CH4 

000064  G 

Z.DAT 

000016 

G 

.DPRW 

000042 

G 

.X2CH5 

000065  G 

Z.DSP 

000000 

G 

.DVCHA 

000011 

G 

.X3C01 

000046  G 

Z.FLG 

000010 

G 

.EOF 

000012 

G 

.X3C02 

000047  G 

Z.LEN  = 

000016 

G 

.FILE 

000013 

G 

.X3C03 

000050  G 

Z.LLN 

000006 

G 

.INT 

000014 

G 

.X3C04 

000051  G 

Z.MAP 

000020 

G 

.LFILE 

000017 

G 

.X3C05 

000052  G 

Z.NAM 

000004 

G 

.LIBR 

000015 

G 

.X3C06 

000053  G 

Z.PCB 

000012 

G 

.LINKS 

000016 

G 

.X3C07 

000054  G 

Z.SCH 

00O0J7 

G 

.LSTHD 

000020 

G 

.X3C08 

000055  G 

$KfiBLN= 

000004 

G 

.LTAB 

000021 

G 

.X3C09 

000056  G 

.ADDRB 

000001 

G 

.MPTAB 

000022 

G 

.X3C10 

000057  G 

.ADDRW 

000002 

G 

.MXPT8 

000044 

G 

.X3C11 

000060  G 

Elapsed   time:   00:00:07.27 
5Y:NTLSYM.V2,[132,134]NTLSYM/CR/-SP=Sy:[l 


1]RSXMCM.SML/ML,[130,110]NETLI8/ML,[130,10]RSXMCM/PA:1,[132,10]NTLSYM 


NTLSYM 
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NTLUN 
Table 


516 

+ 

317 

■ELINE  -  ECHO  LAST  RECORD 
lEFNLL  -  ECHO  OPEN  FAILURE 

FROM  TEMPLATE  FILE 

318 

FILE  NAME  AND  LAST  RECO 

319 

320 

INPUTS: 

321 

NONE 

322 

323 

OUTPUTS: 

32A 

R0,R1=DESrR0yED 

325 

.EFNLL:: 

326  000326 

327  000326 

CALL    SFNOUT 

;  ECHO  FILE  NAME 

328  000332 

lELINE:: 

329  000332 

012700 

000K6' 

MOV     #TMP8F,R0 

;  GET  BUFFER  ADDRESS 

330  000336 

016701 

000352' 

MOV     TMPSZ.RI 

;  AND  LENGTH 

331  000342 

CALLR   $TIOUT 

;  PRINT  IT  ON  TI: 
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NTLU^ 


J  16 

NTLUNL  -  NIL  UNLOAD  ROUTINES    MACRO  V05.05b  Saturday  ?9-Jun-85  00:5'; 
Table  of  contents 

5-  5?  MACRO  DEFINITIONS 

6-  IDS  lOCAL  SYMBOL  DEFINITIONS 

7-  127  LOCAL  DATA 

8-  ?06  $XPRO  -  CLEAN  UP  PROCESS 

9-  524  SDSINl   INIT/TERM  PROCESS  VIA  DIRECT  CALL 
10-  365  DEAECL  -  DEALLOCATE  ECL  NODE  COUNTERS 
n-  390  $XL1N  -  CLEAN  UP  LINE 
12-  468  SCPRO  -  CLEAR  PROCESS 
15-  503  DQCLi^  -  DEQUEUE  CLOCK  BLOCK 

14-  548  SC-IN  -  CLEAR  LINE 

15-  666  VECT  -  RESET  INTERRUPT  VECTOR(S) 

16-  891  ICBSC  -  DETERMINE  IF  VECTOR  POINTS  AT  IC8 

17-  935  ICBLEN  -  CHECK  KB  FOR  LENGTH 

18-  1013  ZDDS  -  CLEAR  DDM  LINE  TABLE  ADDRES  WORD(S)  AND  KRB  ADDRESS 

19-  1054  $CCEX  -  CLEAR  CEX 

20-  1550  XDCB  -  UNLOAD  DEVICES 

21-  1381  XUMR  -  RELEASE  UMR'S 

23-  1442  XOBJTB  -  DE-ALLLOCATE  OBJECT  TABLE 

24-  1459  XALITB  -  DE-ALLOCATE  ALIAS  TABLE 

25-  1498  XREMT8  -  DE-ALLOCATE  REMOTE  TABLE 

26-  1525  XFLTTB  -  DE-ALLOCATE  FILTER  CONTROL  BLOCKS 

27-  1556  FLT16  -  FIND  A  16  BIT  ALLOCATION  LINE  TABLE 

28-  1651  XLT16  -  DE-ALLOCATE  A  16  BIT  ALLOCATION  LINE  TABLE 

29-  1783  .DEA16  -  END  OF  PARTITION  DE-ALLOCATION  ROUTINE 

30-  1894  $DEAC2  -  DEALLOCATE  POOL  SPACE  TO  AREA  OUTSIDE  TASK  SPACE 

31-  1952  DEALST  -  DEALLOCATE  LIST  OF  DATA  BLOCKS 

32-  1988  XSERTB  DEALLOCATE  SERVICE  BLOCKS 
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112  000000  .PSECT 


NTLKMC 
KMC   DAT 

67 
68 
69 
70 
71 
72 
73 
7U 
75 
76 
77 
"? 

7C 

8C 


8^: 
8? 
8( 
8; 
8i 
8< 
9( 
91 
9; 
9: 
9' 
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NTLKMC 
LOCAL    t 


NTLKMC  -  LOAD  KMC  MICRO-CODE 
KMC  DlTA  BASE  DESCRIPTION 

67 

68 

69 

70 

71 

72 

73 

7U 

75 

76 

77 

"8 

79 

80 

81 

82 

83 

8^ 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9<i 
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.S8TTL  KMC  DATA  BASE  DESCRIPTION 


THE  KMC  DATA  BASE  (KMC  LOADED  LIST)  IS  A  LIST  OF  ALL  KMC'S  WHICH 
HAVE  HAD  THEIR  MKRO-COOE  LOADED,  OR  WHICH  ARE  TO  HAVE  THEIR 
MICRO-CODE  LOADED  ON  POWER-FAIL  OR  SYSTEM  STARTUP. 

THIS  LIST  CONSISTS  OF  A  SERIES  OF  LIST  ENTRIES,  COLLECTED  INTO 
32.  WORD  BLOCKS.   THE  FIRST  BLOCK  IS  POINTED  TO  BY  THE  WORD  AT 
THE  OFFSET  ".CXKMC"  INTO  THE  NTL  CONTROL  DATA  BLOCK  (POINTED 
TO  BY  ''SNTLPT").   THE  FIRST  WORD  OF  EACH  BLOCK  IS  A  POINTER 
TO  THE  NEXT  BLOCK  (IF  ANY).   THERE  ARE  7  ENTRIES  PER  BLOCK, 
AND  4  WORDS  PER  ENTRY.   THIS  LEAVES  3  UNUSED  WORDS  AT  THE 
END  OF  EACH  BLOCK. 

THE  FORMAT  FOR  EACH  ENTRY  IS  AS  FOLLOWS: 

THE  PDV/DEVICE  NAME  FOR  THE  PARTICULAR  KMC 

THE  CSR  ADDRESS  FOR  THE  PARTICULAR  KMC 

THE  CONTROLLER  NUMBER  FOR  THE  KMC 

LENGTH  OF  LOCAL  MICRO-CODE  COPY  IN  32.  WORD  BLOCKS 

ADDRESS  (BIAS)  OF  LOCAL  MJCRO-CODE  COPY 

THE  LAST  TWO  PIECES  OF  DATA  IN  THE  ENTRY  (LEN  AND  PNT)  ARE  APPLICABLE 
ONLY  ON  AN  RSXII-S  SYSTEM  WHEN  FIRST  INITIALIZING  THE  SYSTEM.  AT  ALL 
OTHER  TIMFS,  THEY  SHOULD  BE  ZERO. 


.RAD50 

/NAM/ 

.WORD 

CSR 

.BYTE 

NUM 

.BYTE 

LEN 

.WORD 

PNT 

NTLKMC  -  LOAD  KMC  MICRO-CODE 
LOCAL  DATA  AND  DEFINITIONS 
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NTLKMC    -   LOAD  KMC   MICRO-CODE 
LOAD  -   LOAD  MICROCODE 
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•FILE 


602 

603 

CHECK  FILE 

STRUCTURE  FOR  ERRORS,  SCLOPE 

604 

SET  "$LBN" 

FOR  SRLBL.  $RLBL  SETS  RO,  ' 

605 

FIRST  SREAD 

OF  THE  TEXT  BLOCKS. 

606 

607  000654 

052010 

BIS 

(R0)+,(RO) 

608  000656 

001513 

BEQ 

34$ 

609  000660 

012700 

000000' 

M-^V 

#KMC8UF,R0 

610  000664 

611 

612  000670 

613 

614 

CALL 

SRLBL 

103512 

BCS 

36$                     ; 

.IF 

DF,R$$11M 

615  000672 

032760 

OOOOOOG  OOOOOOG 

BIT 

#TS$NHD,L$BFLG(R0) 

616 

.IFF 

617 

BIT 

#LF$NHD,L$LFLG(R0) 

618 

.ENDC 

619 

620  000700 

001515 

BEQ 

38$ 

621  000702 

01600? 

OOOOOOG 

MOV 

L$8LDZ(R0),R3 

622  000706 

026003 

OOOOOOG 

CMP 

L$8MXZ(R0),R3 

623  000712 

001114 

BNE 

40$  , 

624  000714 

062703 

000007 

ADD 

#7,R3 

625  000720 

006203 

ASR 

R3 

626  000722 

006203 

ASR 

R3 

627  000724 

628 

629 

006203 

ASR 

R3 

;  INITIALIZE 

KMC  FOR  LOAD 

630 

631  000726 

010401 

MOV 

R4,fi1 

632  000730 

005021 

CLR 

Cfi1)  + 

633  000732 

005021 

CLR 

(R1)  + 

634  000734 

005021 

CLR 

(R1)  + 

635  000736 

005011 

CLR 

(R1) 

636  000740 

005001 

CLR 

Rl 

$CLOPE  HAS  READ  THE  ATTRIBUTES  AND 
'  ■'$LLEN",  AND  "$LBN"  FOR  THE 


B-RO  ->  INFO,  IS  FILE  CONTIGUOUS? 
8-BR  IF  NO,  ERROR 

B-SET  BUFFER  ADDR  TO  1000  BYTE  BUFFER 
B-READ  LABEL  BLOCK,  SET  RO->BUFFER, 
B-  $LLEN=1000,  $LBN->FIRST  TEXT  BLOCK 
B-BR  IF  CAN'T  READ  LABEL  BLOCK 


B-DOES  FILE  HAVE  A  HEADER? 
B-DOES  FILE  HAVE  A  HEADER? 


B-BR  IF  YES,  ERROR 

B-NUMBER  OF  32.  WORD  ROOT  BLOCKS 

B-IS  FILE  OVERLAID? 

8-BR  IF  YES,  ERROR 

B-MUST  ROUND  UP  TO  NEXT  BLOCK 

8-CONVERT  32.  WORD  BLOCKS 

B-  TO  NUMBER  OF  256. 

B-  WORD  BLOCKS 


B-COPY  KMC  CSR  ADDRESS 
B-CLEAR  ALL  KMC  REGISTERS 


B-INITIAL  KMC  RAM  ADDRESS 


NN 

NN 

NN 

NN 

NNNN 

NNNN 

NN  Nl 

NN  M 

NN 

NN 

NN 

NN 

NN 

NN 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLL 

LLLLL 
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LOAD  - 


-  LOAD  KMC  MICRO-CODE 
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NTLPRi 
Table 


'*F1LE*«ID*«NTLPR0 


K    « 


NN     NN 

TTTTTTTTTT 

PPPPPPPP 

RRRRRRRR 

000000 

NN     NN 

TTTTTTT 

TTT 

PPPPPPPP 

RRRRRRRR 

000000 

NN      NN 

PP      PP 

RR      RR 

00      00 

NN      NN 

PP      PP 

RR      RR 

00      00 

NNNN    NN 

PP      PP 

RR      RR 

00      00 

NNNN    NN 

PP      PP 

RR      RR 

00      00 

NN  NN   NN 

PPPPPPPP 

RRRRRRRR 

00     00 

NN  NN   NN 

PPPPPPPP 

RRRRRRRR 

00      00 

NN    NNNN 

PP 

RR  RR 

00     00 

NN    NNNN 

PP 

RR  RR 

00      00 

NN      NN 

PP 

RR    RR 

00      00 

NN      NN 

PP 

RR    RR 

00      00 

NN     NN 

LLLLLLLLLL 

PP 

RR      RR 

000000 

NN     NN 

LLLLLLLLLL 

PP 

RR      RR 

000000 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSS5 

TTTTTTTTTT 

SS 

ss 

SS 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

SSSSSSSS 

NTLPRI 
PRSYM 
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TT 


^0:31 


NTLPRC  -  "SET  PROCESS"  ROUTINES  MACRO  V05.03t  Saturday  29-Jun-85  00:31 
Table  ot  contents 
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PRSYM 
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PRSYM  -   LOOK   FOR   PROCESS   SYMBOLS 


510 

MOV 

*VECLEN,RO 

511 

MOV 

PC,R1 

512 

CALL 

$CAT5 

513 

MOV 

R1,VLSYM 

5U 

MOV 

PCRI 

515 

CALL 

$CAT5 

516 

MOV 

R1,VLSYMt2 

517 
518 
519  000562 

.ENDC 

116767 

OOOOOOG  000013' 

MOVS 

$$DEV,DSPTAB+1 

520  000570 

116767 

000001 G  000014' 

Move 

$$DEV+1,DSPTAB+2 

521  000576 

012700 

000012' 

MOV 

#DSPTAB,RO 

522  000602 

010701 

MOV 

PCRI 

523  000604 

CALL 

$CAT5 

524  000610 

010167 

000062' 

MOV 

Rl.DTSYM 

525  000614 

005000 

CLR 

RO 

526  000616 

527 

528  000620 

005001 

CLR 

R1 

012702 

000006' 

MOV 

#STBEXT,R2 

529  000624 

CALL 

$AZFS 

530  000630 

012700 

000020' 

MOV 

#P8LK,R0 

531  000634 

CALL 

SSYMBL 

532  000640 

103446 

BCS 

STBERR 

533 

534 
535 
536 

.IF  DF 

R$$MPL 

MOV 

VECVAL,$VCTB 

537 

MOV 

VLNVAL,$VCLN 

538 

BIC 

#160000, $VCTB 

539 

BIS 

#140000, $VCT8 

540 

.ENDC 

541 

542  000642 

016767 

000066'  OOOOOOG 

MOV 

DTVAL,$$TBL 
P8LK*-2 

543  000650 

005767 

000022' 

TST 

544  000654 

545 

546  000656 

001432 

BEQ 

101$ 

SWSTK$ 

70$ 

547  000662 

017700 

OOOOOOG 

MOV 

aNTLPT,RO 

548  000666 

CALL 

$MAPX 

549  000672 

550 

551  000674 

005000 

CLR 

RO 

062702 

OOOOOOG 

ADD 

#.CXSYM,R2 

552 

553 

.IF  DF 

R$$MPL 

554 

555 

TST 

VECVAL 

556 

BEQ 

38$ 

557 

ADD 

#<.CXVSM-.CXSyM> 

558 
559 

560  000700 

.ENDC 

012701 

000126'        38$: 

MOV 

#X8LK1,R1 

561  000704 

026122 

000010        40$: 

CMP 

10(R1),(R2)+ 

562  000710 

001406 

BEQ 

50$ 

563  000712 

005761 

000002 

TST 

2(R1) 

564 

565  000716 

001403 

BEQ 

50$ 

566  000720 

005266 

000004 

INC 

4(SP) 
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NOW  TAKE  THE  ASCII  NAME 

AND  CONVERT  TO  RAD50 

STORING  THE  RAD50  NAME  IN  THE  GLOBAL 

SYMBOL  LOOKUP  CONTROL  BLOCK 


FORM  DCe  DISPATCH  TABLE  ADDRESS  NAME 
convert' to  RAD50 


DEFAULT  SECOND  HALF  OF  NAME  TO  "TBL' 
SETUP  ASCIZ  FILE  SPEC 
FOR  i:i31,5X]XXX.STB 


GET  LOOKUP  CONTROL  BLOCK  ADDRESS 
LOOK  FOR  GLOBAL  SYMBOL 
IF  CS,  FILE  ERROR 
NOTE  -  RO  IS  NOW  0 


COPY  VECTOR  TABLE  ADDRESS 
COPY  VECTOR  TABLE  LENGTH 
BIAS  VECTOR  TABLE  THRU  APR6 


COPY  DCS  DISPATCH  TABLE  ADDRESS 
IS  PROCESS  DISPATCH  TABLE  DEFINED? 
IF  EQ,  NO 

t  ENTER  KERNEL  MODE 

>  GET  DATA  BLOCK  BIAS 
t  MAP  TO  DATA  BLOCK 

>  CLEAR  ERROR  INDICATOR 

;»  OFFSET  TO  SYMBOL  AREA 


PROCESS  VECTORED  ? 
IF  NO  -  BRANCH 
2  ;♦  IF  YES  -  USE  VECTORED  VALIDATION  SYMBOLS 


GET  FIRST  SYMBOL  BLOCK  ADDRESS 
DOES  SYMBOL  MATCH  COMM  EXEC  VALUE? 
IF  EQ,  YES 
IS  SYMBOL  DEFINED? 

IF  EO,  NO 

INDICATE  SYMBOL  MISMATCH 


MLPRO 
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LOOK  FOR  PROCESS  SYMBOLS 
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CREF       04.00 


MACRO   NAME 

REFERENCES 

ADJDFS 

#5-59 

5-61 

ASLS 

#5-58 

7-297 

7-301 

ASR$ 

#5-58 

12-641 

13-693 

BIAS 

#5-58 

12-653 

13-707 

13-713 

13-723 

BIAS5 

#5-87 

CACDFS 
CALL 

#5-59 
7-276 

5-67 
7-277 

7-283 

7-284 

7-304 

7-306 

7-312 

10-480 

10-483 

10-523 

10-529 

10-531 

10-546 

10-548 

11-599 

11-600 

11-602 

11-604 

12-629 

12-642 

13-683 

13-689 

13-695 

13-702 

13-703 

CALLR 

7-323 

10-584 

CRASH 

7-320 

CTRDFS 

#5-58 

5-62 

DHBDFS 

#5-59 

5-66 

ECDDBS 

#5-58 

5-63 

EMSGS 

#5-58 

EHSGSR 

#5-58 

7-321 

10-581 

10-582 

12-664 

13-727 

MAP 

#5-92 

RESMAP 

#5-83 

RESRG 

#5-59 

RETC 
RETURN 

#5-58 

7-310 

7-3U 

8-372 

9-443 

10-572 

10-576 

11-606 

12-662 

13-725 

SAVMAP 

#5-79 

SAVRG 

#5-59 

SLTDFS 

#5-58 

5-65 

SOB 

10-A76 

13-717 

SWSTKS 

7-3CA 

10-546 

15-702 

XPODBS 

#5-58 

5-64 

♦*FILE»«!D«''NTLROO 
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NTLROO 
SSPRO  - 


-  NTL  ROOT  SEGMENT 
SET  PROCESS 


^89 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 

505  000070 

506  000070 

507  000074 

508  000102 

509  000104 

510  000110 
511 

512 

513 

514 

515 

516  000112 

517 

518  000120 

519  000124 

520  000132 

521  000134 

522  000142 

523  000144 

524  000150 
525 

526  000152 
527 

528  000156 

529  000164 

530  000166 

531  000172 
532 
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.SBTTL  SSPRO  -  SET  PROCESS 


SSPRO  -  "SET  PROCESS" 

INPUTS: 

$PDVA=PDV  ADDRESS 
SNAME=RAD50  PDV  NAME 
S$INC=INCREMENT  VALUE  (OPTIONAL) 
$SPAR=PARTJTIDN  NAME  (OPTIONAL) 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 


016700 
016067 
001006 
004767 
103476 


000062- 
OOOOOOG  000070' 

OOOOOOG 


isPRO: 


052767  010000  001232' 


016701 
032761 
001023 
032767 
001403 
004767 
103457 

016701 

026127 
001006 
004767 
103446 


000062'  lOS: 
OOOOOOG  OOOOOOG 

000004  001232' 

OOOOOOG 

000062'  30S: 
OOOOOOG  114224  35$: 
OOOOOOG 


MOV 

MOV 

BNE 

CALL 

BCS 

.IF  DF 

CALL 

.ENDC 

BIS 

MOV 

BIT 

BNE 

BIT 

BEQ 

CALL 

BCS 

MOV 

CMP 
BNE 
CALL 
BCS 


SPDVA.RO 

Z.PCB(R0),$PC8 

10$ 

SXFER 

70$ 

R$$MPL 
VECSET 


#FL.PX1,$FLAGS      ; 

$PDVA,R1       ; 

*ZF. PSE,Z.FLG(R1) 

40$ 

#FL.LLC,$FLAGS  ; 

30$ 

$TMP 

101$ 

SPDVA,R1 

Z.NAM(R1),#''RXPT 

40$ 

$INICO 

101$ 


533  000174 

004767 

OOOOOOG 

CALL 

$ALMHC 

534  000200 

535 

536  000202 

103443 

BCS 

101$ 

026127 

OOOOOOG  017704 

40$: 

CMP 

Z.NAM(R1),**RECL  ; 

53?  000210 

001003 

BNE 

50$ 

538  000212 

004767 

OOOOOOG 

CALL 

$ALECL         ; 

539  000216 

540 

541  000220 

103434 

BCS 

101$          ; 

005767 

000100' 

50$: 

TST 

$$DEV 

542  000224 

001403 

BEQ 

60$ 

543  000226 

004767 

OOOOOOG 

CALL 

$NLDEV 

544  000232 

103426 

BCS 

101$ 

545 

GET  PDV  ADDRESS 

IS  PROCESS  CORE-RESIDENT? 

IF  NE,  YES 

TRANSFER  PROCESS  FROM  DISK  TO  CORE 

IF  CS,  ERROR  (NOTHING  TO  CLEAN  UP) 


INIT  PROCESS  VECTOR  TABLE 


INDICATE  I/O  TRANSFER  OCCURRED 

GET  PDV  ADDRESS  OF  PROCESS 

;  IS  THIS  DLM? 

BR  IF  YES  -  DON'T  EXPAND  LINE  TABLE 

ARE  WE  LOADING  AN  LLC? 

IF  EO,  NO 

SETUP  LLC  LINE  TABLE 

IF  CS,  FAILURE 

GET  PDV  ADDRESS 

;  ARE  WE  LOADING  XPT? 
BR  IF  NO 

ALLOC  XPT  COUNTERS, ROL  AND  NI  CACHE 
IF  ERROR  -  BRANCH 

ALLOCATE  MIN  HOPS/MIN  COST 
BR  IF  FAILURE 

ARE  WE  LOADING  ECL? 
BR  IF  NO 

ALLOCATE  ECL  NODE  COUNTERS 
BR  IF  FAILURE 

DEVICE  NAME  INCLUDED? 

IF  EQ,  NO 

SETUP  DEVICE  DATA  STRUCTURES 

IF  CS,  FAILURE 


NTLROO   -   NTL   ROOT    SEGMENT 
SSPRO  -   SET   PROCESS 
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NILROO 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:32 


SYMBOL    CROSS  REFERENCE 
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CREF        04.00 


SYMBOL      VALUE 


KSAR7 

LDBAF 

lDPWF 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LGDDB 

LGPDV 

LGSTT 

LLCAL 

LLCTA 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.DFF 

LN.ON 

LN.OOP 


000012  RG 

000126  RG 

000052  RG 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000206  RG 

000204  RG 

000154  RG 

000200  RG 

000136  RG 

000000 

000005 

000004 

000003 

000005 

000001 

000000 

000004 


REFERENCES 

#5-89 

#5-153 

#5-121 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#6-183 

#6-182 

#6-170 

#6-180 

#5-157 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 

#4-61 


14-826 


NTLRQB 
LOCAL   I 

6' 
6 
6( 
6' 
6i 
6' 
71 
7 
7, 
7 
7' 
7 
7 
7 
7 
7 


LN.OPE 

=  000001 

#4-61 

LN.REF 

=  000002 

#4-61 

LN.SER 

=  000002 

#4-61 

LN.STA 

=  000017 

#4-61 

LN.SUB 

=  000360 

#4-61 

LN.TRI 

=  000006 

#4-61 

LOOP 

000004  R 

#7-472 

7-487 

LTMFC 

000120  RG 

#5-150 

L.COST 

000015 

#4-61 

L.CTL 

00P012 

#4-61 

L.CVA 

177776 

#4-61 

L.DDM 

000002 

#4-61 

L.ODS 

000004 

#4-61 

L.DLC 

000003 

#4-61 

L.DLM 

000006 

#4-61 

L.DLS 

000010 

#4-61 

L.FLG 

000000 

#4-61 

14-826 

L.KRBA 

000016 

#4-61 

L.LEN 

=  000022 

#4-61 

L.MPF 

000022 

#4-61 

L.NMST 

000020 

#4-61 

9 
9 
9 

9 
9 
9 
9 
9 
9 
9 

1C 
IC 
IC 
IC 
IC 
IC 

IC 
IC 
IC 

11 
11 
11 
11 
11 
11 
11 
11 
11 
11 

i; 
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NTLRQB 
LOCAL 


MLRQB  -  PARSE  REQUEST  BLOCK 
LOCAL  DATA 


6A 
65 
66 
67 
68 
69 

70  000000 
71 

72 
75 
7^ 
75 
76 

71  000000 
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.SBTTL   LOCAL  DATA 

LOCAL  DATA 

.PSECT  DATA.D 
.NLIST  BEX 

LOOKUP  TABLE  USING  FUNCTION  CODE  AS  INDEX 


78 
79 
80 
81 
82 
83 


000002 
OOOOOA 
000006 
000010 
000012 
OOOOU 

8^  000016 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
•I  06 
107 
108 
109 
110 
111 
112 
113 
1U 
115 
116 
117 
118 
119 
120 


000020 
000022 
000026 
000030 
000032 
000034 
000040 
000042 
000044 
000046 
000050 
000054 
000056 
000062 
000064 
000066 
000072 
000074 
000076 
000102 
000104 
000110 
000112 


000116 
000126 
000130 

000132 
000134 


000020' 
000026' 
000040' 
000054' 
000062' 
000072' 
000102' 
000110' 
000010 


001244' 
000070' 
000164' 
000204' 
000262' 
000404' 
000164' 
000464' 
000730' 
001244' 
001256' 
000164' 
002156' 
000164' 
000204' 
001306' 
000164' 
000464' 
002054' 
000164' 
002120' 
000164' 
002656' 


FTAB: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


.SCEX 
.SPRO 
.SLJN 
.CCEX 
.CPfiO 
.CLIN 
.KMCPF 


FMAX=.-FTAB/2 


.WORD   .SCIR 


000000 
000000 

000000 
000000 

000000 

000000 
000000 
000000 


;  SUBROUTINE  TABLES 

'.SCEX: 

.WORD 

CLRPP 

.WORD 

SCEX.O 

.SPRO: 

.WORD 

CEXLD 

.WORD 

PDVA 

.WORD 

CHKPP 

.WORD 

SPRO.O 

.SLIN: 

.WORD 

CEXLD 

.WORD 

SLTA 

.WORD 

CHKLP 

.WORD 

CLRPP 

.WORD 

SLIN,0 

.CCEX: 

.WORD 

CEXLD 

.WORD 

CCEX.O 

.CPRO: 

.WORD 

CEXLD 

.WORD 

PDVA 

.WORD 

CPRO.O 

.CLIN: 

.WORD 

CEXLD 

.WORD 

SLTA 

.WORD 

CLIN,0 

.KMCPF: 

.WORD 

CEXLD 

.WORD 

KMCPF, 0 

.SCIR: 

.WORD 

CEXLD 

.WORD 

SCIR.O 

000000  000000 


000000  NULL: 
PDVX: 
UNITS: 
SPSAV: 
PDVNUM: 


.WORD 
.BLKW 
.BLKW 
.BLKW 
.BLKW 


0,0,0,0 
1 

1 
1 
1 


1  -  SET  CEX  (NTINIT) 

2  -  SET  PROCESS 

3  -  SET  LINE 

4  -  CLEAR  CEX 

5  -  CLEAR  PROCESS 

6  -  CLEAR  LINE 

7  -  RELOAD  KMC  MICROCODE  AFTER  POWERFAIL 
10  -  SEl  CIRCUIT 


CLEAR  PROCESS  PARAMETERS 

MAKE  SURE  COMM  EXEC  IS  LOADED 

FIND  PDV  ADDRESS 

CHECK  PROCESS  PARAMETERS 

MAKE  SURE  COMM  EXEC  IS  LOADED 
FIND  SLT  ADDRESS 
CHECK  LINE  PARAMETERS 
CLEAR  PROCESS  PARAMETERS 

MAKE  SURE  COMM  EXEC  IS  LOADED 

MAKE  SURE  COMM  EXEC  IS  LOADED 
FIND  PDV  ADDRESS 

MAKE  SURE  COMM  EXEC  IS  LOADED 
FIND  SLT  ADDRESS 

MAKE  SURE  COMM  EXEC  IS  LOADED 

MAKE  SURE  COMM  EXEC  IS  LOADED 


NULL  PARAMETER  BLOCK 
DDM  PDV  INDEX  (SET  LINE) 
NUMBER  OF  UNITS  ON  CONTROLLER 
STACK  POINTER  SAVE 
NUMBER  OF  PDV  ENTRIES 


NTLRQB  -  PARSE  REQUEST  BLOCK    MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL  DAU  


\A 
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NTLRQB  -  PARSE  REQUEST  BLOCK 
CHKLP  -  CHECK  LINE  PARAMETERS 
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548  001060 

001060 

BNE 

121$ 

549  001062 

026700 

OOOOOOG 

CMP 

$MXVCT,RO 

550  001066 

101463 

BLOS 

141$ 

551  001070 

042767 

OOOOOOG  OOOOOOG 

BIC 

#MS.VCT,$M1SS 

552  001076 

010067 

OOOOOOG 

50$: 

MOV 

RO,$$VECT 
(R!)t,RO 

553  001102 

012300 

MOV 

554  001104 

001414 

BEQ 

70$ 

555  001106 

022700 

160000 

CMP 

#160000, RO 

556  001112 

101035 

BHI 

101$ 

557  001114 

032700 

000003 

BIT 

#3,R0 
10l$ 

558  001120 

001C32 

BNE 

559 

560 
561 
562 

.IF  Df 

R$$MPL 

TST8 

SNCPU 

563 

BNE 

60$ 

564 

565 
566 
567  001122 

.ENDC 

CALL 

$NLCSR 

568  001126 

103440 

BCS 

131$ 

569  001130 

042767 

OOOOOOG  OOOOOOG 

60$: 

BIC 

#MS.SEC,$M1SS 

570  001136 

010067 

OOOOOOG 

70$: 

MOV 

RO,..SCSR 

571  001142 

012767 

000001  OOOOOOG 

MOV 

#1,$$MTP 

572  001150 

112767 

000001  OOOOOOG 

M0V8 

#1,$$SNUM 
#4§.,R0 

573  001156 

012700 

000060 

MOV 

574  001162 

012701 

OOOOOOG 

MOV 

#$$HTIM,R1 

575  001166 

012702 

OOOOOOG 

MOV 

#$$LTIM,R2 

576  001172 

005021 

80$: 

CLR 

(R1;  + 

577  001174 

005022 

CLR 

(fi2)  + 

578  001176 

005300 

DEC 

RO 

579  001200 

003374 

BGT 

80$ 

580  001202 

000241 

CLC 

581  001204 

RETURN 

582 
583 
584 
585 

586  001206 

;  ERROR  CONDITIONS 

101$ 

EMSG$R 

94 

587  001214 

111$ 

EMSGSR 

93 

588  001222 

121$ 

EMSG$R 

92 

589  001230 

131$ 

EMSG$R 

Z1 

590  001236 

141$ 

EMSG$R 

IP 

IF  NE,  NO 

IS  IT  WITHIN  THE  SYSTEM  VECTOR  SPACE 

..  NO 

INDICATE  VECTOR  INCLUDED 

SET  INTERRUPT  VECTOR 

GET  SECONDARY  CSR  VALUE 

IF  ZERO,  FIELD  MISSING 

IS  IT  AN  I/O  PAGE  ADDRESS? 

IF  HI,  NO 

IS  IT  A  MULTIPLE  OF  4? 

IF  NE,  NO 


IS  THIS  A  MULTI-PROCESSOR  SYSTEM  ? 
IF  NE,  YES 


IS  THE  DEVICE  ONLINE  ? 

IF  CS,  NO 

NO  LONGER  MISSING 

SAVE  SECONDARY  CSR 

DEFAULT  TO  ONE  STATION 

AND  STATION  NUMBER  1  (POINT-TO-POINT) 

MAXIMUM  NUMBER  OF  STATIONS 

POINT  TO  HELLO  TIMER 

POINT  TO  LISTEN  TIMER 

INITIALIZE  HELLO  TIMER 

INITIALIZE  LISTEN  TIMER 

MORE  TO  INITIALIZE? 

BR  IF  YES 

INDICATE  SUCCESS 


ILLEGAL  CSR  VALUE 
ILLEGAL  PRIORITY  VALUE 
ILLEGAL  VECTOR  VALUE 
DEVICE  OFFLINE 
VECTOR  NOT  IN  SYSTEM 


NTLRQB  -  PARSE  REQUEST  BLOCK    MACRO  V05.03b  Saturday  29-Jun-85 
CLRPP  -  CLEAR  PROCESS  PARAMETERS  
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$FPDV  -  FIND  PDV 
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1085 

.S8TTL 

$FPDV   -   FI 

ND   PD\ 

1086 

1087 
1088 
1089 

+ 

$FPDV 

-   TRY 

TO   FIND   PDV 

1090 

1091 

INPUTS: 

1092 

R0=RAD50  PDV  NAME 

1093 

1094 

OUTPUTS: 

1095 

C-8IT= 

SUCCESS/FAILURE 

1096 

R0=PDV 

ADDRESS 

1097 

R1,R2= 

DESTROYED 

1098 

1099 

- 

1100 

1101   003050 

BFPDV:: 

1102  003050 

010046 

MOV 

RO,-{SP) 

1103  003052 

017701 

OOOOOOG 

MOV 

aPDVTA.RI 

1104 

1105  003056 

017702 

OOOOOOG 

MOV 

aPDVNM,R2 

1106  003062 

001407 

BEQ 

30$ 

1107  003064 

012100 

10$: 

MOV 

(R1)t,R0 

1108  003066 

001403 

BEQ 

20$ 

1109 

1110  003070 

026016 

OOOOOOG 

CMP 

Z.NAM(RO) 

(SP) 

1111    003074 

001403 

BEQ 

40$ 

1112  003076 

20$: 

SOB 

R2,10$ 

1113  003102 

000261 

30$: 

SEC 

1114  003104 

005226 

40$: 

INC 

(SP)  + 

1115   003106 

006016 

ROR 

(SP) 

1116  003110 

005741 

TST 

-(R1) 

1117  003112 

167701 

OOOOOOG 

SUB 

aPDVTA.RI 

1118 

1119  003116 

016002 

OOOOOOG 

MOV 

Z.PCB(RO) 

R2 

1120  003122 

016267 

OOOOOOG  OOOOOOG 

MOV 

P.REL(R2) 

$BIAS 

1121   003130 

010167 

000126' 

MOV 

RI.PDVX 

1122  003134 

0063^6 

ASL 

(SP) 

1123  003136 

RETURN 

SAVE  NAME  TO  BE  MATCHED 
GET  PDV  TABLE  ADDRESS 

AND  NUMBER  OF  PDV'S 
IF  ZERO,  NO  PDV'SI 
GET  PDV  ADDRESS 
IF  ZERO,  SKIP  THIS  ONE 

DOES  THE  NAME  MATCH? 

IF  EQ,  YES  (C-BIT  CLEAR) 

LOOP  $PDVNM  TIMES 

INDICATE  FAILURE 

PURGE  STACK 

SAVE  C-BIT 

CALCULATE  PDV  INDEX 


GET  PCS  ADDRESS  FOR  THIS  PROCESS 
SAVE  BIAS  FOR  LATER 
SAVE  PDV  INDEX  VALUE 
RESTORE  C-BIT 
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SYMBOL   CROSS  REFERENCE 


SYMBOL      VALUE 


REP7A 

REP7B 

R$$EIS 

R$$MPL 

R$S11D 

R$$11M 

SCEX 

SCIR 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLIN 

SLTA 

SLTMA 

SLTNM 

SPRO 

SPSAV 

S$$BAS 


S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OUNR 

UNITS 

US.BSY 

US.MNT 

U.CW1 

U.STS 

ZF.DDM 

ZF.DLC 

2F.KMX 

ZF.LMC 

7F.MUX 

7. DAT 

Z.FLG 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

SBIAS 

$81  TS 

SCBOMG 


005422  R 
00556A  R 

-   ****** 

r  ****■»* 
~    ****** 

=  000000 

000070  R 

002656  R 

=  000200 

=  000100 

=  000004 

=  000040 

=  000020 

=  000010 

=  000001 

=  000002 

=  OOOOAO 

001256 

000464 

=      ****** 
=   ****** 


000404 
000152 

-   ******* 


GX 
GX 


000001 
000000 
OOOOOA 
000002 
000003 
000130  R 
=   ****** 

r  ****** 

-  ****** 

::  ****** 

=  ****** 

=  ****** 


=  **♦♦*♦ 

-  ****** 

-  ****** 
n  ****** 
r  ****** 

-  ****** 
r  ****** 
r  «♦♦*** 
r  ****** 

005016  R 

-  ......     GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

7-168 

7-176 

15-545 

7-165 

15-545 

7-155 

6-91 

6-112 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 

6-100 

6-97 

18-687 

18-766 

6-95 
#6-118 

7-145 

7-149 

7-158 

7-167 

7-176 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#6-117 

18-757 

18-741 

18-755 

18-757 

14-446 

14-476 

14-457 

14-449 

14-455 

15-416 

11-556 

18-677 

18-680 

24-1110 

15-412 
♦24-1120 

13-406 

28-1278 


#28-1264 
#50-1558 

9-264 

7-171 
#9-260 
#22-1026 

18-711 


#17-625 
6-107 
18-764 
21-990 
#15-405 
•8-219 
7-145 
7-150 
7-158 
7-168 
7-176 


*25-1152 
21-961 
21-965 
21-959 
18-741 
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15-527 
20-850 


#14-440 
21-928 
25-1156 

25-1186 

7-146 

7-150 

7-159 

7-168 

7-177 


25-1162 


21-961 


15-560 
21-948 


18-665 


21-988 


7-146 
7-151 
7-159 
7-169 
7-177 


25-1149 


7-147 
7-151 
7-160 
7-169 
7-178 


7-147 
7-152 
7-160 
7-172 
7-178 


7-148 
7-152 
7-161 
7-172 


7-148 
7-154 
7-161 
7-175 


7-149 
7-154 
7-167 
7-175 


25-1164       *25-1167        25-1178 


21-965 


NILS 


14-446 

14-449 

14-453 

14-457 

14-476 

21-914 

21-985 

22-1056 

21-917 

21-921 

28-1272 

28-1286 

50-1550 

18-656 

18-731 

21-911 

21-955 

24-1119 

17-626 

22-1027 

#25-1072 

50-1362 

50-1568 

NTLRQB 
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MLSUB  -  COMMON  SUBROUTINES 


320 
321 
322 
323 
324 
325 
326 
527 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
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SLFNP  -   SETUP   LOCAL    FILE    NAME   POINTER 

INPUTS ' 

R0=NUM8ER    TO  ADD    TO  GCL   LEVEL    INDICATOR    (0=CURRENT,    1=PREVI0US) 

OUTPUTS: 

R0=LOCAL  FILE  NAME  AREA  ADDRESS 


000322  010046 

000324  116700  OOOOOOG 

000330  062600 

000332  006300 

000334  010046 

000336  006300 

000340  006300 

000342  062600 

000344  062700  000113' 
000350 


SLFNP: 


MOV 

Move 

ADD 
ASL 
MOV 
ASL 
ASL 
ADD 
ADD 
RETURN 


RO,-(SP) 

SCLEVL.RO 

(SP)+,RO 

RO 

RO,-(SP) 

RO 

RO 

(SP)+,RO 

#NAMES-10. 


,R0 


SAVE  CURRENT/PREVIOUS  INDICATOR 

GET  CURRENT  GCL  LEVEL 

ADJUST  LEVEL  BY  ORIGINAL  RO  VALUE 

2X 

SAVE   2X   VALUE 

4X 

8X 

10X 

OFFSET  INTO  LOCAL  STORAGE  AREA 


NTLSUB  -  COMMON  SUBROUTINES 
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MTLSYM 


CREATED  BV  MACRO  ON  P9-JUN-85  AT  00:54 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


PAGE  1 

CREF   04.00 


NTLT^ 


AS 

I$$AS 

lB.ADR 

LB. APR 

LB.SIZ 

LB. USE 

R$$MPL 

R$$nD 

RSSIIM 

Rtsns 

XtSMCB 
ZF.COU 
ZF.DDM 
2F.DIA 
ZF.DLC 
ZF.DVP 
ZF.INI 
ZF.KMX 
ZF.LLC 
ZF.LMC 
ZF.MAN 
ZF.MFL 
ZF.MTM 
ZF.MUX 
ZF.PSE 
ZF.SLI 


TIM 
X3P 
ZS.ASN 
ZS.BSY 
Z.AVL 
Z.DAT 
Z.DSP 
Z.FLG 
Z.LEN 
Z.LLN 
Z.MAP 
Z.NAM 
Z.PCB 
Z.SCH 
SKRBLN 
.ADDRB 
.ADDRW 
.APR 
.BLKB 
.BLKiJ 
.BYTE 
.CORE 
.CSR 

.criM 

.CXALL 
.CXC5R 


=  000000 

=  »***»♦ 

000006 

=  000013 

000010 

000012 

=   *«***♦ 
=   ****** 

=  000000 

~    ****** 


001000 

000001 

OOAOOO 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 

000006 

000020 

000004 

000012 

000007 

000004 

000001 

000002 

000040 

000003 

000004 

000005 

000006 

000007 

000010 

000062 

000004 


REFERENCES 

ff5-159 

5-64 
#5-174 
*5-177 
#5-175 
#5-176 

5-160 

5-64 

5-64 

5-64 

5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-164 
#5-78 
#5-79 
#5-109 
#5-80 
#5-81 
#5-82 
#5-83 
#5-84 
#5-85 
#5-151 
#5-142 


5-177 


5-64 


5-64 


NTLSYM 
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K  15 


NTLUM 


33? 
35A 
335 
336 
337 
338 
339 
3^0 

342 
3A3 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 

356  000346 

357  000352 

358  000354 

359  000360 

360  000362 

361  000366 

362  000370 

363  000374 

364  000376 

365  000402 

366  000404 

367  000410 

368  000416 

369  000420 

370  000424 

371  000426 

372  000434 

373  000442 

374  000444 

375  000446 

376  000452 

377  000454 

378  000460 

379  000464 

380  000466 
381 

382 


$RQ(N)  -  REQUEST  ACCESS  TO  BINARY  BUFFER 

THESE  ROUTINES  ARE  CALLED  TO  REQUEST  ACCESS  TO  THE  BINARY  BUFFER, 
WHICH  IS  LOCATED  AT  THE  END  OF  THE  TASK'S  SPACE.  THE  CALLER  SPECIFIES 
THE  NUMBER  OF  BYTES  HE  WISHES  TO  ADD  TO  THE  BUFFER  BY  USING  THE 
APPROPRIATE  ENTRY  POINT. 

INPUTS: 

$PTR=CURRENT  POINTER  INTO  BINARY  BUFFER 
$LEFT=SPACE  REMAINING  IN  BINARY  BUFFER 
F1.BB0  SET  IF  BUFFER  ALREADY  OVERFLOWED 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

R2=P0INTER  INTO  BINARY  BUF^Crt 

$PTR  INCREMENTED  BY  CALLER'S  REOUESTED  SIZE 

SLEFT  DECREMENTED  BY  CALLER'S  REQUESTED  SIZE 

F1.B80,  F1.ERR  SET  IF  THIS  REQUEST  OVERFLOWS  BUFFER 


.ENABL   LS8 


012746 

000007 

$RQ7: 

:   MOV 

000416 

BR 

012746 

000005 

$RQ5: 

:   MOV 

000413 

BR 

012746 

000004 

$RQ4: 

:   MOV 

000410 

BR 

012746 

000003 

$RQ3: 

:   MOV 

000405 

BR 

012746 

000002 

$RQ2: 

:   MOV 

000402 

BR 

012746 

000001 

$RQ1: 

:   MOV 

032767 

000001 

000000'  10$: 

BIT 

001011 

BNE 

161667 

000010' 

SUB 

002010 

BGE 
EMSG$ 

052767 

000001 

000000' 

BIS 

005426 

20$: 

NEG 

000410 

BR 

005767 

000000' 

30$: 

TST 

100773 

BMI 

016702 

000006' 

MOV 

062667 

000006' 

ADD 

105012 

CLRB 

40$: 

RETURN 

#7,-(SP) 

10$ 

#5,-(SP) 

loi 

#4,-(SP) 

10$ 

#3,-(SP) 

10§ 

#2,-(SP) 

lOi 

#1,-(SP) 

#F1.BB0,$FLAG1 

20$ 

(SP),$LEFT 

30$ 

13 

#F1.BB0,$FLA61 

(SP)  + 

40$ 

$FLAG1 

20$ 

$PTR,R2 

(SP)  +  ,$Pn 

(R2) 


HAS  BUFFER  ALREADY  OVERFLOWED? 

IF  NE,  YES 

ENOUGH  ROOM  FOR  THIS  REQUEST? 

IF  GE,  YES 

BINARY  BUFFER  OVERFLOW 

INDICATE  OVERFLOW 

PURGE  STACK  (SETS  C-BIT) 

HAVE  ANY  OTHER  ERRORS  OCCURRED? 

IF  Ml,  YES 

RETURN  CURRENT  POINTER  VALUE 

ADJUST  $PTR  UP 

STORE  EOF  INDICATOR  (CLEARS  C-BIT) 


.DSA8L   LS8 
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t  15 

00:34 


NTLUI 
M4rRf 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 
:2 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2U 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 


.TITLE  NTLUNL  -  NTL  UNLOAD  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WIT.n  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  UNLOAD  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-73 

VERSION  2.0  RELEASE 

2.00     14-DEC-79 

DECNET-HM/S   V3.0 
DECNET-HM-PLUS   Vl.O 

3.00  16-APR-82 

DECNET-llfl  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


OF   ITS 


L  16 
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lU 
115 
116 

117 

118 

^19 

120 

1?i 

122 

125 

^24  000000 

125 

126  000000 

127  000030 
128 

129 

130  000032 

in  000036 

152  0000-^2 

133  000046 

134 

•■35  000052 

156  000054 

137  000056 

138  000060 
139 

■40  000062 

141  000066 

142  000074 
U3  000102 

144  ooono 

145  000116 
146 

I-"' 
148 
149 

150  000^20 

151  000126 

152  000134 
'55  00C'40 
'54  000144 
'5'' 


SNLINI  -  INITIALIZE  NETLDR 

INPUTS: 

NO  REGISTER  SAVING  IS  NECESSARY 

OUTPUTS: 

$X8UF2=ADDRESS  OF  END  OF  TASK  BUFFER 
$XLEN2=LENGTH  OF  END  OF  TASK  BUFFER 


§NLINI: 


105433 


012701 
012702 
012703 

111021 
111022 
112023 
001374 


016767 
016767 
042767 
016767 


012767 
000773 


.IF  NDF  R$$MPL 

RSXOKS 

BCS     101$ 

.ENDC 


OOOOOOG 
OOOOOOG 
OOOOOOG 


10$: 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOC  OOOOOOG 
OOOOOOG  000002G 


20$: 


CALL 
MOV 
MOV 
MOV 

Move 

MOVB 
MOVB 
BNE 

CALL 

MOV 

MOV 

BIC 

MOV 

RETURN 


$LDUIC 
#$CXUIC,R1 
#$DFUIC,R2 
#$CFUIC,R3 

(R0),(R1)t 
(R0),(R2)+ 
(R0)+,(R5)+ 
10$ 

$XXINI 

$XXBUF,$xaUF2 

$XXLEN,$XLEN2 


**C<FL.ECH!FL.TOP!FL.WRN>,$FLAGS 
$FLAGS,$FLAGS+2 


CHECK  FOR  RSX  COMPATIBILITY 
IF  CS,  INCOMPATIBLE 


DETERMINE  DISK  AND  UK  ASSIGNMENTS 
POINT  AT  COMM  EXEC  UIC  LOCATION 
POINT  AT  DEFAULT  UIC  LOCATION 
POINT  AT  CONFIG  FILE  UIC  LOC 

COPY  THE  NEW  UK  INTO  THE 
THREE  GLOBAL  ''   LOCATIONS 
UNTIL  A  ZERO  .1 TE  IS  FOUND 


INITIALIZE  THE  END  OF  TASK  BUFFER 
COPY  BUFFER  START  ADDRESS 
AND  BUFFER  LENGTH 

SAVE  GLOBAL  NETLDR  STATUS 


ERROR  CONDITION 


177777  OOOOOOG 


101$: 
103$: 


EMSG$ 

MOV 

CALL 

CALL 

BR 


40 

#-1  .$FUNC 

$NLGET 

$NLPUT 

105$ 


PRINT  ERROR  MESSAGE 

INDICATE  FAILURE 

GET  ALL  REQUEST  BLOCKS 

AND  RETURN  WITH  FAILURE  CODE 


N'lGEI  -  GEI  SEND/RECE!vf  DATA  MACRO  V05.03b  Saturday  29-. 
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NTLKMC   -   LOW  KMC   IICRO-CODE 
LOCAL   DATA  AND   DEFINITIONS 

96 
97 

98  000000 

99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
111 
112 
113 
IK 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 

131  000000 

132  000002 

133  OOOOO'i 
Ml,  000006 
135 

136  000012 
137 

138  OOOOU 

139  000016 
UO  000020 
U1   000022 
142 
U3 

U4       000001 
145 


L  2 
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.SBTTL  LOCAL  DATA  AND  DEFINITIONS 
.PSECT  DATA,D 


SET  AFFINITY  DPB 
SETAF 


.IF  DF  R$$MPL 
STAFS   0 
.ENDC 


DATA  NEEDED  BV  IHE  POWER-FAIL  RELOAD  ROUTINE 

KMCNAM  -  HOLDS  RAD50  NAME  OF  DEVICE  TO  LOAD  (MAPPED  ONLY) 

KMCCSfi  -  HOLDS  CSR  ADDRESS  OF  DEVICE  TO  LOAD  (MAPPED  ONLY) 

KMCMPl.KMCPNl  -  HOLDS  MAPPING/POINTER  TO  CURRENT  ENTRY  (MAPPED  ONLY) 

KMCNUM  -  HOLDS  NUMBER  OF  ENTRIES  LEFT  IN  CURRENT  BLOCK  (MAPPED  ONLY) 

DATA  NEEDED  BY  THE  KMC  "LOAD  LIST"  HOUSEKEEPING  ROUTINE 

KMCMPl.KMCPNl  -  RETURNS;  MAPPING/POINTER  TO  LINK  TO  NEW  BLOCK 

KMCNAM  -  HOLDS  RAD50  NAME  OF  DEVICE  BEING  SEARCHED  FOR 

KMCNUM  -  HOLDS  CONTROLLER  NUMBER  FOR  DEVICE 

KMCCSR  -  HOLDS  CSR  ADDRESS  FOR  DEVICE 

DATA  NEEDED  BY  RAM  ERROR  REPORTING  ROUTINES 

ASCIZ  PDV/DEVICE  NAME  (KMCRLl  ONLY) 

CSR  ADDRESS  FOR  BAD  DEVICE  (KMCRLl  ONLY) 

OCTAL  ARGUMENT  1  (KMCRLl  ONLV) 

OCTAL  ARGUMENT  2  (KMCRL2  ONLY) 

OCTAL  ARGUMENT  3  (KMCRL2  ONLY) 


;   KMCDEV 

■■  INPUT 

;   KMCCSR 

-  INPUT 

;   KMCER1 

-  INPUT 

;   KMCER2 

-  INPUT 

;   KMCER3 

-  INPUT 

KMCNAM:  .BLKW 

1 

CMCCSR 

.BLKW 

1 

CMCNUM 

.BLKW 

1 

(MCDEV 

.BLKW 

2 

.IF  DF 

M$$MGE 

KMCMPl:  .BLKW 

1 

.ENDC 

(MC"N1 

.BLKW 

1 

(MCER1 

.BLKW 

1 

KMCER2 

.BLKW 

1 

KMCER3 

.BLKW 

1 

.IIF    DF,M$j.MGE, 
.IIF    NDF,M$$MGE, 


KM.ALL=  1 
KM.ALL=  100 


;M-ALLOCATE  ONE  32.  WORD  BLOCK 
;U-ALLOCATE  32.  WORDS 


NTLKMr  -  LOAD  KMC  MICRO-CODE    MACRO  V05.03b  Saturday  29-Jun-85  00:31 
ERROR  PROCESSING  DATA  AND  FILE  BUFFER 
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NTLKMC    -   LOAD  KMC   MICRO-CODE 
LOAD   -    LOAD  MICROCODE 


658 
639 
b^O 
641 
6A2 
biil  000742 

644  000746 

645  000750 

646  000752 

647  000756 

648  000762 

649  000766 

650  000772 

651  000776 

652  001000 

653  001004 

654  001010 

655  001014 

656  001020 

657  001024 

658  001026 

659  001030 

660  001032 

661  001034 

662  001036 

663  001044 

664  001050 

665  001052 
666 

6b7 
668 

669  001054 

670  001056 

671  001060 

672  001062 

673  001064 

674  001066 

675  001072 

676  001074 
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READ  ALL  TEXT  BLOCKS  FROM  FILE,  MOVE  DATA  INTO  KMC  RAM 


103502 
010046 
012702 
012714 
010164 
011064 
052714 
005014 
005064 
005064 
012714 
010164 
022064 
001062 
005201 
005302 
003351 
012600 
062767 
005567 
005303 
003333 


010401 
005021 
005021 
005021 
005011 

000241 
000456 


000400 
002000 
000004 
000006 
020000 

000004 
000006 
002000 
000004 
000006 


000001  000002G 
OOOOOOG 


10$: 


20$: 


CALL 

BCS 

MOV 

MOV 

MOV 

MOV 

MOV 

BIS 

CLR 

CLR 

CLR 

MOV 

MOV 

CMP 

BNE 

INC 

DEC 

BGT 

MOV 

ADD 

ADC 

DEC 

BGT 


$READ 

44$ 

RO,-(SP) 

#400, R2 

#2006,(R4) 

R1,4(R4) 

(R0),6(R4) 

#20000, (R4) 

(R4) 

4(R4) 

6(R4) 

#2000, (R4) 

R1,4(R4) 

(R0)+,6(R4) 

46$ 

R1 

R2 

20$ 

(SP)+,R0 

#1,$LBN*2 

$L8N 

R3 

10$ 


8-READ  A  BLOCK  FROM  FILE 

B-BR  ON  READ  ERROR 

B-SAVE  BUFFER  ADDRESS 

B-SET  WORD  COUNT 

B-SELECT  CRAM 

B-LOAD  ADDRESS  ON  KMC  RAM 

B-LOAD  WORD  OF  MICRO-CODE 

B-PLACE  DATA  IN  KMC  RAM 

B-CLEAR  KMC  CSR 

B-CLEAR  RAM  ADDRESS 

B-CLEAR  DATA 

B-READ  CONTENTS  OF  ADDRESS 

S-LOAD  RAM  ADDRESS  AGAIN 

B-EQUAL  TO  WHAT  WAS  JUST  WRITTEN? 

B-BR  IF  NOT,  BAD  ERROR 

B-SET  TO  NEXT  RAM  ADDRESS 

B-ONE  LESS  WORD  IN  BUFFER 

8-BR  IF  MORE  IN  BUFFER 

B-RESTORE  BUFFER  ADDRESS 

B-NEXT  TEXT  BLOCK  IN  FILE 

B-SET  HIGH  ORDER  WORD 

B-ANY  MORE  BLOCKS  TO  READ? 

B-BR  IF  YES,  KEEP  GOING 


NTLPR! 
Table 


FINISHED  FILE,  CLEAN  KMC,  CLOSE  FILE,  EXIT  WITH  CARRY  CLEAR 


MOV 

CLR 

CLR 

CLR 

CLR 

CALL 

CLC 

BR 


R4,R1 
(R1)  + 
(R1)  + 
{R1)  + 
(R1) 
$CLDEQ 

KMCEX 


;B-CCPY  KMC  CSR  ADDRESS 
;B-CLEAR  ALL  KMC  REGISTERS  AGAIN 


B-CLOSE  FILE 
B-NO  ERRORS 
B-EXIT 


NILKMC    -   LOAD   KMC    MICRO-CODE 
LOAD   -   LOAD  MICROCODE 


M  3 
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NTLPR 


NTLPRO  -  "SET  PROCESS"  ROUTINES  MACRO  V05.05f  Saturday  29-Jun-85 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  DATA 

$XFER  -  TRANSFER  PROCESS  TO  CORE 

AXSYM  -  AUX  SPECIAL  SYMBOLS 

SCTSYM  -  FIND  SYMBOLS  FROM  CETAB 

PRSYM  -  LOOK  FOR  PROCESS  SYMBOLS 

SINICO  -  INITIALISE  XPT  COUNTERS 

SALMHC  -  ALLOCATE  MINHOPS/MINCOST  MATRIX 

SALElL  -  ALLOCATE  ECL  NODE  COUNTERS 


ho:\^ 


s- 

S4 

6- 

46 

7- 

2Sft 

8- 

VS 

4- 

VS 

10- 

iSS 

11- 

SHft 

V- 

6()V 

15- 

666 

NTLPR 
PRSYM 

5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
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NTLPR 
SINK 


NTLPRO  -  "SET  PROCESS"  ROUTINES  MACRO  V05.O3b  Saturday  29-Jun-85 
PRSVM  -  LOOK  FOR  PROCESS  SYMBOLS 


00:31 


567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 


000724  000402 

000726  011101 
000730  001365 
000732 
000732 

000734  005700 
000736  001004 
000740 


000742 

000750 

000756  016000  000162' 

000762 


BR 


60$ 


50$: 
60$: 

MOV 
BNE 

RETURN 

(R1),R1 
40$ 

70$: 
80$: 

TST 
BNE 
RETURN 

RO 

111$ 

;  ERROR 

CONDITIONS 

101$: 
111$: 
STBERR: 

EMSG$R 
EMSG$R 
MOV 
CALLR 

49 

50 

ETAB1-2(R0),R0 

a(RO)t 

Page  10-2 

;♦  (REMEMBER  -  MAPX  ADDS  1  WORD  TO  STACK) 

;»  GET  NEXT  SYMBOL  BLOCK 
;•  IF  NE,  NOT  AT  END  YET 

;*  BACK  TO  USER  MODE 

;  ANY  PROBLEM? 
;  IF  NE,  YES 


DISPATCH  TABLE  SYMBOL  UNDEFINED 
PROCESS/CEX  INCOMPATIBLE 
GET  ERROR  MESSAGE  CONTROL  BLOCK  ADDRESS 
PRINT  ERROR  MESSAGE 


•FIL 


NN 

m 
m 

NN 

NNNN 

NNNN 

NN  N 

NN  N 

NN 

NN 

NN 

NN 

NN 

NN 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLl 

LLLLI 
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SINICO  -  INITIALISE  XPT  COUNTERS    
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NTLRt 
TaKI  I 


L  6 


•*f ILE*«ID«»NTLR00 


NN      NN 

TTTTT 

TTTTT 

RRRRRRRR 

000000 

000000 

NN     NN 

TTTTT 

TTTTT 

RRRRRRRR 

000000 

000000 

NN      NN 

RR      RR 

00 

00 

00      00 

NN      NN 

RR      RR 

UU 

00 

00      00 

NNNN    NN 

RR      RR 

UU 

00 

00      00 

NNNN    NN 

RR      RR 

00 

00 

00      00 

NN  NN   NN 

RRRRRRRR 

00 

00 

00      00 

NN  NN   NN 

RRRRRRRR 

00 

00 

00      00 

NN    NNNN 

RR  RR 

00 

00 

00      00 

NN    NNNN 

RR  RR 

00 

00 

00      00 

NN      NN 

RR    RR 

UU 

00 

00      00 

NN      NN 

RR    RR 

00 

00 

00      00 

NN     NN 

LLLLLLLLLL 

RR      RR 

000000 

000000 

NN     NN 

LLLLLLLLLL 

RR      RR 

000000 

000000 

ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

NTLROO  -  NIL  ROOT  SEGMENT 


MACRO  V05.03b  Saturday  29-Jun-85  00:32 


NTLROO  ■ 
$SPRO  - 

546 
5A7 
5A8 
5« 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
S65 


■  NTL  ROOT  SEGMENT 
SET  PROCESS 


L  7 
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000234  016701 

000240  032761 

000246  001406 

000250  012767 

000256  004767 

000262  103412 


000264 
000270 
000276 
000304 


016701 
152761 
016761 
000241 


000062'        60$: 

OOOOOOG  COOOOOG 

000030  001264' 
OOOOOOG 


000062'        65$: 
OOOOOOG  OOOOOOG 
000070'  OOOOOOG 


000306  000207 


000310  000167  OOOOOOG 


70$: 


MOV 

BIT 

BEQ 

MOV 

CALL 

BCS 

MOV 
BISB 
MOV 
CLC 

RETURN 


$PDVA,R1 


GET  PDV  ADDRESS 


#Zf .1N1,Z.FLG(R1)  ;  PROCESS  NEED  INITIALIZATION  DISPATCH  ? 

65$  :  IF  NO  -  BRANCH 

#FS.INI!FC.PCT,$$PDIN  ;  SET  INIT  FUNCTION  CODE 

$DSiNI         ;  IF  YES  -  CALL  PROCESS 

101$  ;  IF  ERROR  -  BRANCH 

$PDVA,R1       ;  GET  PDV  ADDRESS 

#ZF.MFL,Z.FLG(Rl5  ;  FORCE  "CLEAR  PROCESS"  TO  REMOVE  FROM  CORE 

$PCS,Z.PCB(R1)   ;  INDICATE  PROCESS  IS  CORE-RESIDENT 


ERROR  CONDITION 
i01$:   JMP     $XPRO 


;  DO  A  PARTIAL  "CLEAR  PROCESS' 


M     7 


NTLROO   -  NTL   ROOT    SEGMENT 
$SPRn   -    SET    BROCFSS 
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NTLROO     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:32 
SYMBOL  CROSS  REFERENCE 


L  8 

PAGE  5 

CREF   04.00 


SYMBOL   VALUE 


L.NSTA 

L.OUNR 

L.UNT 

MAXOV 

MS.BUF 

MS.CIR 

MS.CSR 

MS. EXT 

MS. INC 

MS. LIN 

MS. LLC 

MS.MTP 

MS. MUX 

MS.NT1 

MS.NT2 

MS. PAR 

MS. PR  I 

MS. SEC 

MS.VCT 

NBIAS 

NETPF 

NGN  SI 

NSO 

NS1 

NS2 

NS3 

NSA 

NS5 

NS6 

NS7 

NTLPT 

NTUIC 

OBJHD 

PARHD 

PAVL 

PDVID 

POVNM 

PDVTA 

PLGTH 

PSIPT 

PUMR 

P.LGTH 

P.REL 

QASTT 

OBIAS 

OSTRT 

RDBAF 

RDBCT 

RDBLH 

RDBNM 

RDBSZ 

RDBTM 


00001A 
000021 
000013 
00C102  R6 


000100 
010000 
000001 
002000 
001000 
004037 
OOOOAO 
000010 
004020 
000300 
000400 
000200 
000002 
004000 
000004 
000100  RG 
000202  RG 
000046  RG 
D00156  RG 
000160  RG 
000162  RG 
000164  RG 
000166  RG 
000170  RG 
000172  RG 
000174  RG 
000232  RG 
000074  RG 
000234  RG 
000054  RG 
000244  RG 
000176  RG 
000142  RG 
000140  RG 
000056  RG 
000272  RG 
000236  RG 
■  »».♦»*  GX 
:  *.»»»»  GX 
000034  RG 
000252  RG 
000254  RG 
000124  RG 
000112  RG 
000224  RG 
000256  RG 
000216  RG 
000104  RG 


REFERENCES 

»4-61 

#4-61 

#4-61 

#5-143 

#6-256 

#6-263 

#6-249 

#6-261 

#6-260 

#6-254 

#6-255 

#6-252 

#6-253 

#6-258 

#6-259 

#6-257 

#6-250 

#6-262 

#6-251 

#5-142 

#6-181 

#5-119 

#6-171 

#6-172 

#6-173 

#6-174 

#6-175 

#6-176 

#6-177 

#6-178 

#6-193 

#5-137 

#6-194 

#5-122 

#6-202 

#6-179 

#6-165 

#5-158 

#5-123 

#6-213 

#6-195 

5-123 

12-752 
#5-114 
#6-205 
#6-206 
#5-152 
#5-147 
#6-190 
#6-207 
#6-187 
#5-144 


14-830 

11-674 
11-674 


NILRQB 
LOCAL 

12 
12 

12 
12 
12 
12 
12 
12 


11-691 
11-691 


14-81f 
14-81f 


NTLROO 
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NTLRQE 
FRRHR 


NTLRQB   -   PARSE    REQUEST   BLOCK 
LOCAL    DATA 

121 
122 
123 
12^  000136     OOAOOO     OOOOOOG 

125  0001A2     010000     OOOOOOG 

126  000H6  001000  OOOOOOG 
T27  000152  002000  OOOOOOG 
128  000156     000000 


MACRO  V05.03b   Saturday  29-Jun-85 


1)0:1 


2  Page  6-1 


REQUEST  BLOCK  TO  $FLAGS  BIT  MAPPING  TABLE 


L8ITS: 
PBITS: 


.WORD 

LS.FDX,FL.FDX 

;  SET  LINE  -  FDX 

.WORD 

LS.HDX.FL.HDX 

.WORD 

LS.ECH,FL.ECH 

;  SET  PROCESS  - 

.WORD 

LS.TOP,FL.TDP 

.WORD 

0 

HDX,  ECHO,  TOP 
CHO,  TOP 


NTLRQE 
CLRPP 

S"; 

5= 
5' 
51 

5'; 

5< 
5< 
5< 
6{ 
6( 
6{ 
6( 
6( 
6( 
6( 
6( 
6( 
6( 


NTLRQB   -   PARSE    REQUEST   BLOCK 
FRRnR    MF^SAGFS 


M        0 
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NTLRQI 


NTLRQB  ■ 
CLRPP  - 

592 
593 

59-; 
595 
596 
597 
598 
599 
600 
601 
602 
603 
60A 
605 
606 
607 
608 
609 


W^2 


■  PARSE  REQUEST  BLOCK    MACRO  V05.05b  Saturday  29-Jun-85  00:52  Page  16 
CLEAR  PROCESS  PARAMETERS 

.SBTTL   CLRPP  -  CLEAR  PROCESS  PARAMETERS 


CLRPP  -  CLEAR  PROCESS  PARAMETERS 

INPUTS: 

NONE 

OUTPUTS: 

$$INC=0 
$$PAR=0 


0012';A  005067  OOOOOOG 
001250  005067  OOOOOOG 
00125A 


CLRPP: 


CLR  $$INC 
CLR  $$PAR 
RETURN 


SET  NO  PROCESS  INCREMENT 
AND  NO  PARTITION  OVERRIDE 


J 


NTLRGB  -  PARSE   REQUEST   BLOCK         MACRO  V05.03b   Saturday 
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NTLRQB  -  PARSE  REQUEST  BLOCK 
tfSLT  -  FIND  SLT 


L  n 
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1125 

.SBTTL 

$FSLT   -   FIND   SLT 

1126 

1127 
1128 
1129 

+ 

$FSLI 

-   TRy    TO   FIND    SLT 

1130 

1131 

INPUTS; 

1132 

R1=C0NTROLLER   NUMBER    (BYTE) 

1133 

R2^UNIT 

NUMBER    (BYTE) 

113A 

PDVX=DDM  PDV    INDEX 

1135 

1136 

OUTPUTS: 

1137 

C-BIT=SUCCESS/FAILURE 

1138 

RO=SLT 

ADDRESS 

1139 

R1=SYSTEM  LINE   NUMBER 

1K0 

R2=NUM6ER   OF   UNITS  ON   THIS   CONTROLLER 

lUl 

1U2 

- 

11A3 

lU'.  003U0 

EFSLT:: 

1H5  003K0 

012746 

\nm 

MOV 

*-1,-(SP) 

LEAVE   ROOM  FOR   SLT  ADDRESS  AND   SLN 

1U6  003KA 

011646 

MOV 

(SP),-(SP) 

■   •   • 

1U7  003K6 

110146 

HOVB 

R1,-(SP) 

SAVE    CONTROLLER   NUMBER 

1U8  003150 

110266 

000001 

MOVB 

R2,1(SP) 

AND  UNIT  NUMBER 

1U9  003154 

1150 

1151    003160 

017700 

OOOOOOG 

MOV 

aSLTMA,RO 

GET   FIRST   SLT  ADDRESS 

012701 

Mim 

MOV 

#-1,R1 

GET   FIRST  LINE   NUMBER 

1152  003164 

005067 

000130' 

CLR 

UNITS 

NO  UNITS    THIS   CONTROLLER   YET 

1153  003170 

1154 

1155  003172 

012002 

10$: 

MOV 

(R0)+,R2 

GET  NEXT   SLT  ADDRESS 

005201 

INC 

R1 

AND  NEXT   LINE   NUMBER 

1156  003174 

027701 

OOOOOOG 

20$: 

CMP 

aSLTNM.RI 

IS   IT   END  OF    SLT? 

1157  003200 

001436 

SEQ 

30$ 

IF   EQ,    YES 

1158  003202 

'  ."'6267 

000002     000126' 

CMP8 

L.DDM(R2),PDVX 

DOES   DDM  PDV   INDEX  MATCH? 

1159  00321 'J 

,'u1367 

BNE 

10$ 

IF   NE,    NO 

1160  0032'!2 

26216 

000012 

CMPB 

L.CTL(R2),(SP) 

DOES   CONTROLLER  NUMBER  MATCH? 

1161   0032  6 

(1,1364 

BNE 

10$ 

IF   NE,    NO 

1162  003220 

126267 

000015     000150' 

CMPB 

L.UNT(R2), UNITS 

ARE   UNIT   NUMBERS    IN  ASCENDING  ORDER? 

1167  003226 

001034 

BNE 

101$ 

IF   NE,    NO 

1164  003230 

016746 

000130" 

MOV 

UNITS, -(SP) 

SAVE   UNIT   FOUND   ON  STACK 

1165  003234 

062716 

000002G 

ADD 

#$SLNt2,(SP) 

POINT   TO  SYSTEM  LINE  NUMBER 

1166  003240 

110136 

MOVB 

Rl,a(SP)*- 

SAVE   MUX   LINE   NUMBER 

1167  003242 

005267 

000130' 

INC 

UNITS 

TALLY   UNITS  ON   THIS   CONTROLLER 

1168  003246 

126266 

000015     000001 

CMPB 

L.UNT(R2),1(SP) 

DOES   UNIT  NUMBER  MATCH? 

1169  003254 

001345 

BNE 

10$ 

IF   NE,    NO 

1170  003256 

010266 

000002 

MOV 

R2,2(SP) 

SAVE   SLT  ADDRESS 

1171   003262 

010166 

000004 

MOV 

R1,4(SP) 

SAVE    SYSTEM  LINE   NUMBER 

1172  003266 

032767 

OOOOOOG  OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

MUX   DEVICE? 

1173  003274 

001535 

BNE 

10$ 

IF   NE,    YES  -   SEARCH  ENTIRE    SLT 

1174  003276 

005726 

30$: 

TST 

(SP)  + 

PURGE    STACK    (CLEARS   C-BIT) 

1175  003300 

012600 

MOV 

(SP)+,R0 

RETRIVE    SLT   ADDRESS 

1176  003302 

012601 

MOV 

(SP)+,R1 

SYSTEM  LINE  NUMBER 

1177  003304 

100403 

BMI 

35$ 

•    IF   MI,    LINE   NOT    FOUND 

1178  003306 

016702 

000150' 

MOV 

UNITS, R2 

•    RETURN  UNITS   FOUND    IN  R2 

1179  003312 

001001 

BNE 

40$ 

•    IF   NE,    SUCCESS 

1180  003314 

000261 

35$: 

SEC 

•    INDICATE   FAILURE 

1181   003316 

40$: 

RETURN 
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NTLRQB  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:33 

SYMBOL    CROSS  REFERENCE 


L  12 

PAGE   5 

CREF        0^.00 


NTLS 


SYMBOL      VALUE 


$C5TA 

tDDMPV 

SDLCPV 

SERRZP 

SERRZR 

SERRZl 

$ERRZ3 

SERRZR 

$ERRZ5 

$ERRZ6 

$ERRZ7 

$ERR86 

$ERR87 

tERR88 

$ERR90 

$ERR91 

$ERR92 

$ERR93 

$ERR94 

$ERR95 

$ERR96 

$ERR97 

$ERR98 

$ERR99 

SFLAGS 


SFPDV 
SFSLT 
SFUNC 
$MAPX 
$M!SS 

SMXVCT 

SNAME 

SNLCSR 

SNLRQB 

$PCB 

$PDVA 

$RERR 


SSAVAL 

SSAVRG 

SSAVVR 

$SLN 

$SLTA 

STIOUT 

STRIB 

$$CSR 

$$DEV 

$$EXT 

$$HTIH 


****** 

****** 

00UO6  R 

00126^  R 

001120  R 

001150  R 

001162  R 

001330 

00135'i 

001224 

001062 

OOIOU 

000752 

000716 

000660 

000616 

000552    , 

000516  R 

000462  R 

00042A 

000366 

000330 

000276 


GX 

003050  RG 
003K0  RG 
******     GX 
**♦»»*     GX 
»♦♦»»*     GX 

******  GX 
******  GX 
******  GX 
000000  RG 
*»*♦♦»  GX 
******  GX 
003332  RG 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


=   ****** 


=   ****** 
=   ****** 

r     ****** 


REFERENCES 

28-1287 
»U-448 
»U-481 
#7-178 
#7-175 
#7-167 
#7-168 
#7-169 
#7-176 
#7-177 
#7-172 
#7-161 
#7-160 
#7-159 
#7-158 
#7-154 
#7-152 
#7-151 
#7-150 
#7-U9 
#7-U8 
#7-147 
#7-146 
#7-145 
*9-260 
♦22-1038 

11-333 

14-467 
*8-235 

20-837 
*8-230 
♦15-569 

15-549 
♦11-332 

15-534 
#8-218 
♦13-412 
♦11-335 

7-145 

7-158 

7-176 

26-1205 

21-885 

18-690 
♦14-470 
♦14-469 

26-1222 
♦22-1049 
♦15-537 
♦12-385 
♦12-376 

15-574 


30-1351 
14-478 

15-590 
18-672 
15-589 
18-713 
18-757 
18-776 
19-809 
18-754 
22-1055 
25-1187 
14-489 
14-488 
9-284 
15-588 
15-587 
15-586 
14-487 
11-346 
11-345 
10-310 
8-241 
♦9-280 
23-1074 
14-443 
22-1042 


♦12-369 
♦22-1050 

♦14-442 
15-567 


13-410 
7-146 
7-159 
7-177 


21-931 

♦22-1045 

17-627 


♦12-379 


18-718 
21-980 
21-1001 

21-977 


♦11-339 
25-1172 
22-1033 

#25-1144 


♦12-375 


18-661 


♦14-445 
7-147 
7-160 
7-178 


25-1165 
19-795 


21-942 


12-377 
#24-1101 


♦12-381 


♦22-1032 


18-654 

7-148 

7-161 

#26-1204 


♦22-1044 


♦14-451 


♦  13-409 


18-727 

7-149 

7-167 


♦14-455 


♦15-516 


♦21-913 
7-150 
7-168 


♦14-459 


♦15-536 


♦22-1035 
7-151 
7-169 


18-674 


♦15-542 


28-1271 

7-152 

7-172 


18-761 


♦15-551 


28-1285 

7-154 

7-175 


NTlRQB 
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ntl; 


NTLSUB  -  COMMON  SUBROUTINES 


3A0 
3A1 
342 
343 
3A4 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 

359  000352 

360  000352 

361  000356  010446 

362  000360  132765 

363  000366  001413 

364  000370  010346 

365  000372  010546 

366  000374  016302 

367  000400  016504 

368  000404 
369 

370 

371  000410  005726 

372 

373 

374  000412  012605 

375  000414  012603 

376  000416  016765 

377  000424  066305 

378  000450  005316 

379  000432  001352 

380  000434  005726 

381  000436 
382 

383 
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SNLCDD  -  CALL  DEVICE  DRIVER  AT  POWERFAIL  ENTRY  (MAPPED  11M  ONLY) 

THIS  ROUTINE  IS  USED  TO  CALL  THE  LLC'S  DEVICE  DRIVER  AT  HIS  POWERFAIL 
ENTRY  POINT  FOR  ALL  UNITS  WHICH  HAVE  THE  UC.PWF  BIT  SET  IN  U.CTL. 


INPUTS: 


R3=DC8  ADDRESS 

R4=NUMBER  OF  UNITS  TO  SCAN 

R5=FIRST  UC6  ADDRESS 


OUTPUTS: 

NONE 


.IF  DF   R$$11M  S  M$$MGE 


SNLCDD: 


OOOOOOG  OOOOOOG  10$: 


OOOOOOG 
OOOOOOG 


OOOOOOG  OOOOOOG  20$: 
OOOOOOG 


30$: 


SWSTK$ 

MOV 

BITS 

BEQ 

MOV 

MOV 

MOV 

MOV 

CALL 

.IF  NDF 

TST 

.ENDC 

MOV 
MOV 
MOV 
ADD 
DEC 
BNE 
TST 
RETURN 

.ENDC 


30$ 

R4,-(SP)       ; 

#UC.PWF,U.CTL(R5) 

20$ 

R3,-(SP) 

R5,-(SP) 

D.DSP(R3),R2 

U.SC8(R5),R4 

aLDPUF 

RS$MPL 
(SP)  + 


ENTER  KERNEL  MODE 
SAVE  UNIT  COUNT 
;*  CALL  DRIVER  AT  POWERFAIL  ENTRY? 
IF  EQ,  NO 
SAVE  DCB  ADDRESS 
AND  UC8  ADDRESS 
GET  DISPATCH  TABLE  ADDRESS 
AND  SCB  ADDRESS 
CALL  DRIVER  AT  POWERFAIL  ENTRY 


;*  CLEAN  UP  AFTER  ANOTHER  RSXIIM  HACK! 


(SP)+,R5  ; 

(SP)+,R3  ; 
$FEATR,U.CW3(R5) 

D.UCBL(R3),R5  ; 

(SP)  ; 

10$  ; 

(.SP)*  : 


RESTORE  UCB  ADDRESS 
AND  DCB  ADDRESS 
•  SETUP  THE  FEATURES  WORD 
GIVING  NEXT  UCB  ADDRESS 
ALL  DONE? 
IF  NE,  NO 
PURGE  STACK 
BACK  TO  USER  MODE 


NTLSUB  -  COMMON  SUBROUTINES 
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NTLSYM 


CREATED  BY     Ma:RO     ON  29-JUN-85   AT   00:5A 


.YMBOL    CROSS   REFERENCE 
SYMBOL      VALUE 


REFERENCES 


CXLBR 

000060 

G 

#5-150 

CXLBl 

000050 

f. 

#5-148 

CXLB2 

000044 

r, 

#5-149 

CXLEN 

000064 

G 

#5-152 

CXPCB 

000006 

G 

#5-143 

CXSYM 

000010 

G 

#5-144 

CXUNL 

000024 

G 

#5-146 

CXVEC 

000026 

G 

#5-147 

CXVSM 

000016 

G 

#5-145 

DPRB 

000041 

G 

#5-110 

DPRW 

000042 

G 

#5-111 

DVCHA 

000011 

G 

#5-86 

EOF 

000012 

G 

#5-87 

FILE 

000013 

G 

#5-88 

INT 

000014 

G 

#5-89 

LFILE 

000017 

G 

#5-92 

LIBR 

000015 

G 

#5-90 

LINKS 

000016 

(i 

#5-91 

LSTHD 

000020 

G 

#5-95 

.LTAB 

000021 

G 

#5-94 

.MPTAB 

000022 

G 

#5-95 

.MXPTB 

000044 

G 

#5-115 

.MXTAB 

000023 

G 

#5-96 

.NODE 

000024 

G 

#5-97 

.PECHA 

000045 

G 

#5-114 

.PR  I 

000025 

G 

#5-98 

.PRTOy 

000026 

G 

#5-99 

.SCOM 

000027 

G 

#5-100 

.SECSR 

000030 

G 

#5-101 

.SLNB 

000031 

G 

#5-102 

.SLNW 

000032 

G 

#5-105 

.STNB 

000033 

G 

#5-104 

.STNW 

000034 

G 

#5-105 

.TIME 

000045 

G 

#5-112 

.JNB 

000035 

G 

#5-106 

.UNW 

000036 

G 

#5-107 

.WORD 

000037 

G 

#5-108 

.X2CH1 

000061 

G 

#5-126 

.X2CH2 

000062 

G 

#5-127 

.X2CH3 

000065 

G 

#5-128 

.X2CHA 

000064 

G 

#5-129 

.X2CH5 

000065 

G 

#5-130 

.X3C01 

000046 

G 

#5-115 

.X^C02 

000047 

G 

#5-116 

.XJC03 

000050 

G 

#5-117 

.X5C0A 

000051 

G 

#5-118 

.X3C05 

000052 

G 

#5-119 

.x3C0t 

000055 

G 

#5-120 

.X3f07 

000054 

G 

#5-121 

.X3C08 

000055 

G 

#5-122 

.X3C09 

000056 

G 

#5-123 

.X3C10 

000057 

G 

#5-124 

L  U 
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384 
385 
386 
387 
388 
389 
3V0 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
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ntlun 

MACRC 


SEVEN 
INPUTS 


.EVEN"  ACTION  ROUTINE 
NONE 


OUTPUTS: 

R2=DESrR0VED 


000470 

000470  032767 
000476  001410 
000500 


000001  000014' 


iEVEN:: 


000504 
000506 
000512 
000514 
000520 


103405 
112722 
105012 
005267 


OOOOOOG 
000014' 


10$: 


BIT 

BEO 

CALL 

BCS 

M0V8 

CLRB 

INC 

RETURN 


#1,$SI/E 

10$ 

$RQ2 

10$ 

#.8VTE,(R2)' 

(R2) 

$SIZE 


IS  SIZE  CURRENTLV  EVEN? 
IF  EC/,  YES  -  00  NOTHING 
REQUEST  BINARY  FILE 
IF  CS,  NO  ACCESS 
STORE  FUNCTION  CODE 
STORE  ZERO  VALUE 
ADJUST  DATA  BASE  SIZE 


M  15 
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NHOI 


NTLUNL  - 

NTL  UNLOAD  ROUTINES 

MACRO 

MACRO  DEFINITIONS 

53 

5^ 

55 

56 

57 

58 

59 

60 

61 

62 

000000 

63 

000000 

64 

000000 

65 

000000 

66 

000000 

67 

000000 

68 

000000 

69 

000000 

70 

000000 

71 

000000 

72 

000000 

73 

000000 

74 

000000 

75 

000000 

76 

000000 

n 

000000 

78 

79 

80 

81 

000000 

82 

83 

84 

85 

86 

87 

88 

89 

9C 

MACRO  V05.03b  Saturday  29-Jun-g5 
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.SBTTL      MACRO  DEFINITIONS 


•   LIBRARY  MACROS 


.MCALL      ASR$,OBJDF$,NKRDF$,RNBDf$,ANeDf$,FLTDF$,MRKT$S,wrSE$S,DHaDr$ 
.MCALL      EVLDF$,SLTDF$,ASL$,SAVRG,RESRG,DECL$S,XPDDB$,CTRDF$,ECDD8$ 
.MCALL      SERDf$,FNBDF$,CCBDf$,WSIG$S,ADJDF$,CALLR,STMDF$ 


SEIAF: 


91 

92 

93 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

103 


ADJDFS 
AN8DF$ 
CTRDF$ 
ECDDBS 
EVLDFS 
FLTDFS 
NKRDFS 
XPDDBS 
OBJDF» 
RN8DF$ 
SLTDFS 
DHBDFS 
SERDFS 
FNBDFS 
CCBDFS 
STMDFS 


.MCALL 
TCBDFS 

.IF  DF 

.MCALL 

KRBDFS 
CTBDFS 
STAF$ 

.ENDC 


DEFINE  ADJACENT  DATA  BASE  OFFSETS 
DEFINE  ALIAS  NAME  BLOCK  OFFSETS 
DEFINE  COUNTER  BLOCK  OFFSETS 
DEFINE  ECL  DDB  OFFSETS 
DEFINE  EVENT  LOGGING  OFFSETS 
DEFINE  FILTER  CONTROL  BLOCK  OFFSETS 
DEFINE  NETWORK  KRB  OFFSETS 
DEFINE  XPT  DDB  OFFSETS 
DEFINE  OBJECT  TABLE  OFFSETS 
DEFINE  REMOTE  NAME  BLOCK  OFFSETS 
DEFINE  SLT  SYMBOLS  AND  OFFSETS 
DEFINE  DECNET  HOME  BLOCK  OFFSETS 
DEFINE  SERVER  BLOCK  OFFSETS 
DEFINE  FILENAME  BLOCK  OFFSETS 
DEFINE  CCB  FUNCTION  CODE  SYMBOLS 
DEFINE  SHORT  TIMER  BLOCK  OFFSETS 


TC6DF1 


;  DEFINE  TCB  OFFSETS 
R$$MPL 
KRBDFS, CTBDFS, STAF$,RMAF$S, DIRS 


DEFINE  KRB  OFFSETS 
DEFINE  CTB  OFFSETS 
SET  AFFINITY 


LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV  SKSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV  (SP)*,aKSAR5 

.ENDM 


;  SAVE  APR  5 
;  RESTORE  APR5 


NTLUNL  -  NTL  UNLOAD  ROUTINE; 
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157 
158 
159 
160 
161 
162 
16? 
16'. 
165 
166 

167  000U6 

168  0OOH6 

169  00015-; 

170  000162 

171  000170 
172 

17?  0001^6 

174  000202 

175  000210 

176  000212 

177  000220 

178 

179  000226 

180  00C23i 


SNLGET  -  RECEIVE  DATA  FROM  CALLING  TASK 

INPUTS: 

NONE 

OUTPUTS: 

$$LRS=REQUEST   BLOrtc    (FIRST   2  W0RDS=CALLING   TASK'S   NAME) 


iNLGET: 

016767  000022'  OOOOOOG 
016767  00C02A'  000002G 
016767  000002G  OOOOOOG 

005067  OOOOOOG 

032767  100000  000026' 

00U06 

016767  00005-;'  OOOOOOG 

016767  000056'  OOOOOOG 

042767  OOOOOOC  OOOOOOG  10$: 

RTSPC: 


RECEIVE  DATA  OR  EXIT  FROM  TASK 
COPY  REQUESTING  TASK'S  NAME 


RESET  GLOBAL  NETLDR  STATUS 


DIRS  #RCVDAT 

MOV  $$LR8,$$TASK 

MOV  $$LRet2,$$TASKt2 

MOV  $FlAGSt2,$FLAGS  ; 

.IF  NDF  I$$AS 

CLR  $$AST  ;  ASSUME  CALLER  NOT  NOTICED  VIA  AST 

BIT  #LS.AST,$$LRB*4  ;  NOTIFV  CALLER  VIA  AST? 

BEQ  10$  ;  BR  IF  NO 

MOV  LR.AST+4t$$LR8,$lAST  ;  SAVE  NOTIFICATION  AST  ADDRESS 

MOV  LR.PRMt4*-$$LRB,$SPRM  ;  SAVE  NOTIFICATION  AST  PARAMETER  TO  RETURN 

.ENDC 

BIC  #''C<FL.ECHIFL.TOP.'FL.WRN>,$FLAGS  ; 

RETURN 
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U7 
148 
U9 
150 
151 
152 
153 
154 

155  00002'. 

156  000034 
157 

158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
1^0 
171 
172 
173 
174 
175 

176  000142 

177  000174 

178  000230 

179  000276 

180  000342 

181  000404 

182  000436 

183  000500 
184 

185 
186 
187 
188 
189 
190 
191 
192 
193 

194  000512 

195  000540 

196  C00615 
197 

198 
199 
200 
201 
2C2 
203 


015 


116 


124 


052 
052 

(14 


040 
040 

151 


.SBTTL  ERROR  PROCESSING  DATA  AND  FILE  BUFFER 

ERROR  MESSAGE  BUFFER 

ALL  ERRORS  ARE  PREFIXED  WITH  "NTL  —  " 


KMCEBF:  .ASCII 
KMCEMS:  .BLKB 
.EVEN 


<15>/NTL  —  / 
70. 


115 
104 
163 


ERROR  MESSAGE  CONTROL  MACROS 

ERROR  PREFIXS  (FORMAT  STRINGS)  ARE: 

10A  -  "*FILNAM*  MICRO-CODE  FILE  —  " 

108  -  "*KMCDEV*  DEVICE  i-0  ERROR,  CSR  =  *ADDR*,  RAM  ADDRESS  =  *ADDR* 

IOC  -  "LIST  ALLOC.  FAILURE,  DEV  =  *DEV*,  CSR  =  *ADDR«,  CNTRLR  =  *NUM» 

ERROR  CONTROL  ROUTINES  ARE: 

KMCEFT  -  ERROR  FORMATTING  MAIN  CONTROL 

KMCFEC  -  FILNAM  IN  PREFIX  /  ERRCOOE  (MAYBE)  IN  SUFFIX  /  FILE  CLOSED 
KMCFEO  -  FILNAM  IN  PREFIX  /  ERRCODE  (MAYBE)  IN  SUFFIX  /  FILE  OPEN 
KMCRL1  -  KMCDEV,  CSR  AND  RAM  ADDRESS  IN  PREFIX  /  SUFFIX  NOT  USED 
KMCRL2  -  VALUE  URITTEN  AND  VALUE  READ  IN  SUFFIX  /  PREFIX  NOT  USED 


NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 

NTLERS 


.ENABL  LC 

, 3A,10A, KMCEFT, KMCFEC, ,<Open  Failure  (*.)> 

,3C,10A, KMCEFT, KMCFEO,, <FUe  Not  Cont1guous> 

, 3D, 10A, KMCEFT, KMCFEO, ,<Label  Block  Read  Failure  (*.)> 

, 3F,10A, KMCEFT, KMCFEO, ,<File  Contains  a  Task  Header> 

,3F,10A, KMCEFT, KMCFEO., <File  Is  An  Overlaid  Task> 

, 3H,10A, KMCEFT, KMCFEO, ,<Read  Failure  (*.)> 

, 31, 10B, KMCEFT, KMCRL1,KMCRL2,<*  Was  Written,  *  Was  Read> 

,3J, IOC, KMCEFT, KMCRL1,, 

.IF  DF  RSSMPL 

, 3K,10D, KMCEFT, KMCFEC, ,<Unable  to  find  Unibus  Run  Mask> 

.ENDC 

.DSASL  LC 


ERROR  MESSAGE  FORMAT  STRINGS 


FMT10A: 
FMT10B: 
FMT10C: 

FMTIOD: 


.ENA8L 

.NLIST 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.IF  OF 

.ASCIZ 

.ENDC 

.EVEN 

.DSA8L 

.LIST 


LC 

BEX 

"*  Micro-Code  F  i  te  —  " 

"♦  Device  I/O  Error,  CSR  =  * 

"List  Alloc.  Failure,  Deu  = 

RSSMPL 

"*  Micro-Code  Load  —  " 


LC 
BEX 


RAM  Address  =  * 
,  CSR  =  •,  Cntrlr  = 


NTLKMC  -  LOAD  KMC  MICRO-CODE    MACRO  V05.03b  Saturday  29-Jun-85  00:51  Page  8-1 
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NTLKt'.C    -   LOAD   KMC   MICRO-CODE 
LOAD  -   LOAD  MICROCODE 
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NTLPRi 


678 

679 
680 
681 

•  ERROR 

PROCESSING 

682 

683  001076 

50$: 

EMSG$ 

3A 

684  001104 

000451 

BR 

55$ 

685 

686  001106 

34$: 

EMSG$ 

3C 

687  001  IK 

688 

689  001116 

000443 

BR 

50$ 

116777 

OOOOOOG 

OOOOOOG  36$: 

MOVE 

$I0SB,a$CLI0S 

690  001124 

EMSG$ 

3D 

691  001132 

000454 

BR 

50$ 

692 

693  001134 

38$: 

EMSG$ 

3E 

694  001142 

000430 

BR 

50$ 

695 

696  001144 

40$: 

EMSG$ 

3F 

697  001152 

698 

699  001154 

000424 

BR 

50$ 

116777 

OOOOOOG 

OOOOOOG  44$: 

MOVE 

$I0SB,a$CLI0S 

700  001162 

EMSG$ 

3H 

701  001170 

702 

703  001172 

000415 

BR 

50$ 

010467 

000002' 

46$: 

MOV 

R4,KMCCSR 

704  001176 

010167 

or  ," 

MOV 

Rl.KMCERl 

705  001202 

014067 

c  ;v'  ' 

MOV 

-;R0),KMCER2 

706  001206 

016467 

Oul  '. 

000022' 

MOV 

6(R4),KMCER3 

707  001214 

005726 

TST 

(SP)t 

708  001216 

709 

710  001224 

EMSG$ 

31 

50$: 

CALL 

$CLDEQ 

71'  001230 

712 

713 

000261 

55$: 

SEC 

;  EXIT 

KMC  LOADER  CODE 

714 

■ 

715  001232 

KMCEX: 

716 

.IF  DF 

R$$MPL 

717 

718 

TST8 

$NrPU 

719 

BEQ 

60$ 

720 

RMAF$S 

721 

60$: 

722 
723 

721^   001232 

.ENDC 

RETURN 

;B-OPEN  FAIL:  FILNAM+ERROR 

;a-NOT  CONTIG:  FILNAM 

;B-RD  LABEL  FL:  FILNAM+ERROR 

;B-HEADER:  FILNAM 

;B-FIL  OVRLAID:  FILNAM 

;B-READ  ERROR:  FILNAM+ERROR 


B-RAM  ERROR:   DEV,  CSR,  ADDR,  I/O 
B-SAVE  THE  CSR  AND  RAM  ADDRESSES 
B-ALSO  THE  VALUE  WRITTEN  TO  THE  RAM 
B-AND  THE  VALUE  READ  FROM  THE  RAM 
B-DUMP  THE  SAVED  BUFFER  ADDRESS 
B-AND  GIVE  THE  MESSAGE 

B-CLOSE  FILE 
B-INDICATE  ERROR 


H+  IS  THIS  A  MULTI-PROCESSOR  SYSTEM 

M+  IF  EG,  NO 

M+  REMOVE  THE  CPU  AFFINITY 

M+ 
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N^LPR 
MACRO 
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1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
J9 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 

51 

52 


.TITLE  NTLPRO  -  "SET  PROCESS"  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  Br 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  "SET  PROCESS"  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI .1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  VI. 0 
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NTLPRO  - 
SINICO  - 

586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
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NTLRC 
Table 


00076A  016705 

000770  016502 

00077A 

001000 

001004 

001006 

001012 

001014 

001020 


OOOOOOG 
OOOOOOG 


103405 
103402 


.SBTTL  SINJCO  -  INITIALISE  XPT  COUNTERS 

'siNICO  -  INITIALISE  XPT  COUNTERS  AND  SET  UP  ROL  TABLE  AND  NI  CACHE 
AND  ADJACENCY  DATA  BASE 

INPUTS: 

$PDVA  -  XPT'S  PDV  ADDRESS 


COPY  XPT  PDV  ADDRESS 
STORE  XPT  DDB  ADDRESS 
ALLOCATE  NI  CACHE 
ALLOCATE  ADJACENCY  DATA  BASE 
IF  FAILURE  -  BRANCH 
ALLOCATE  REACHIBILITY  MATRIX 
IF  FAILURE  -  BRANCH 
ALLOCATE  CIRCUIT  COUNTERS 


;  REGISTERS  MODIFIED: 

NONE 

$INICO::MOV 

$PDVA,R5 

MOV 

Z.DAT(R5),R2 

CALL 

SNICAH 

CALL 

$ADJ 

BCS 

10$ 

CALL 

$ROL 

BCS 

10$ 

CALL 

$CKT 

10$: 


RETURN 
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NTLROO  -  NTL  ROOT  SEGMENT 
Table  ot  contents 
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4- 

Sk 

S- 

f>y 

/- 

4V 

H- 

AHq 

q- 

SftK 

10- 

(S0« 

11- 

6S() 

12- 

/1H 

H- 

^SV 

H- 

801 

MACRO  DEFINITIONS 

VECTORED  EXEC  TABLE 

$NTL  -  NETLDR  ENTRY  POINT 

$SPRO  -  SET  PROCESS 

VECSET  -  SET  UP  PROCESS  VECTOR 

SVCTLB  -  SET  UP  LIBRARY  VECTOR 

SSLIN  -  SET  LINE 

AIC  -  TEST  FOR  ALREADY  IN  CORE 

SSCEX  -  SET  CEX 

$SCIR  -  SET  CIRCUIT 


TABLE 
TABLE 


NTLROC 
$SPRO 

56 
Si 
•Si 
57 
57 
57 
57 
57 
57 
57 
57 
57 
57 
5f 
5! 
5! 
5i 
5i 
5( 
5! 
5) 
5! 
51 
5' 
5' 
5' 
5' 
5' 
5' 
5' 
5' 
5' 
5' 
6 
6 
6 
6' 
6 
6' 
6 
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NTLRO( 
IVCTLl 


H  7 


NTLROO  -  NTL  ROOT  SEGMENT 
$SPRO  -  SET  PROCESS 

567 

568 

569 

570 

571 

572 

573 

57*; 

575 

576 

577 

578 

579 

580 

581 

582 

583 

58A 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

5^9 

600 

601 

602 

603 

60A 

605 

606 
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.SBTTL  VECSET  -  SET  UP  PROCESS  VECTOR  TABLE 


VECSET  -  SET  UP  PROCESS  VECTOR  TABLE 

INPUTS: 

$VCLN  -  NUMBER  OF  SYMBOLS 

$VCT6  -  ADDRESS  OF  TABLE 

SBIAS  -  BIAS  OF  PROCESS 

OUTPUTS: 

VECTOR   TABLE    TRANSLATED 


.IF   OF      R$$MPL 


VECSET:  MOV 
BEQ 
EMT 
.WORD 
MOV 
MOV 
MOV 
MOV 
MOV 

MOV 


MOV 

MOV 

MOV 

CALL 

MOV 

CLR 

RETURN 

.ENDC 


10$: 


$VCLN,R2 

10$ 

376 

10$ 

aKSAR6,-(SP) 

MPPRO.RO 

KSAR6,R5 

SBIAS, 51KSAR6 

$VCTB,R3 

a#112,R1 

tRD.RI 

(R1),-(SP) 

#120000, -(SP) 

(RO) 

(SP)+,(R5) 

$VCLN 


COPY  NUMBER  OF  SYMBOLS  VECTORED 
IF  PROCESS  NOT  VECTORED  -  BRANCH 
SUSTKS  10$  WITHOUT  RSXMC 

SAVE  OUR  APR6  MAPPING 

GET  ADDRESS  OF  PROCESS  MAPPING  ROUTINE 

GET  KISAR6  ADDRESS 

MAP  TO  PROCESS 

COPY  TABLE  ADDRESS  OF  PROCESS 

COPY  BIAS  OF  EXEC  ROUTINE  WHICH 

CALLS  THE  VECTOR  TRANSLATE  ROUTINE 

GETTING  TO  ACTUAL  BIAS 

PUT  BIAS  ON  STACK  FOR  SMPPRO 

MAP  THRU  APRS 

CALL  DIRECTIVE  COMMON  ROUTINE  THE  LONG  WAY 

RESTORE  OUR  APR6  MAPPING 

INIT  VECTOR  TABLE  FLAG 


N  7 
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NTLROO 

CREATED  BY 

MACRO     ON  29 

-JUN-85  AT 

00:32           PAGE  4 

SYMBOL 

CROSS   REFERENCE 

CREF       04.00 

SYMBOL 

VALUE 

REFERENCES 

RtSMPL 

-   ****** 

4-64 

5-92 

5-129            6-197            6-2 

10-622 

11-681 

11-698 

RSSIID 

r     ****** 

12-741 

SDBAF 

000130  RG 

#5-154 

SDBCT 

000110  Ru 

#5-146 

SDBLH 

000226  RG 

#6-191 

SD8NM 

000260  RG 

#6-208 

SDBSZ 

000262  RG 

#6-209 

SF.ACT 

=  000200 

#4-61 

SF.ENA 

=  000100 

#4-61 

SF.LPB 

=  000004 

#4-61 

SF.MFL 

=  000040 

#4-61 

SF.PAC 

=  000020 

#4-61 

SF.REA 

=  000010 

#4-61 

SF.SER 

=  000001 

#4-61 

SF.SVC 

=  000002 

#4-61 

SF.UNL 

=  000040 

#4-61 

SLHD 

000070  RG 

#5-135 

SLTMA 

000144  RG 

#6-166 

SLTNM 

000146  RG 

#6-167 

SRSTD 

000032  RG 

#5-113 

STMFC 

000242  RG 

#6-201 

SYSNM 

000002  RG 

#5-85 

S$CEX 

=  ******     GX 

13-776 

S.COST 

000001 

#4-61 

S.FLG 

000000 

#4-61 

S.LEN 

000004 

#4-61 

S.LHD 

=    **'***      GX 

5-135 

S.NMST 

000002 

#4-61 

S.OWNR 

000003 

#4-61 

TKPS 

000004  RG 

#5-86 

TKTCB 

000072  RG 

#5-136 

TK100 

000134  RG 

#5-156 

TTNS 

000030  RG 

#5-112 

TISCL 

000214   RG 

#6-186 

T100C 

000212  RG 

#6-185 

T100Q 

000210  RG 

#6-184 

UISARO 

=   ******     GX 

5-124 

U1SAR7 

=   .**.*♦     GX 

5-117 

UISDR7 

=   ******      GX 

5-118 

U5AR0 

000060  RG 

#5-124 

USAR7 

000042  RG 

#5-117 

USDR7 

000044  RG 

#5-118 

V$$CTR 

=  ******     GX 

5-138 

6-427 

XAVL 

000250  RG 

#6-204 

XBIAS 

000246  RG 

#6-203 

ZF.IM 

=   ******     GX 

8-548 

ZF.MFL 

=   ******     GX 

8-555 

ZF.PSE 

=   ******      GX 

8-519 

ZTIME 

000064   RG 

#5-126 

Z.FLG 

=   ******      GX 

8-519 

8-548 

•8-555             12-735 

Z.NAM 

r    .....*      GX 

8-528 

8-536 

12-739 

6-345 


7-456 


8-512 


9-582 


NTLROO 
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161 
162 
163 
16^ 
165 
166 
157  001120 

168  001150 

169  001162 
170 

171 

172  00122A 

173 

174 

175  001 26A 

176  001330 

177  001354 

178  00U06 
179 

180 
181 
182 
183 
18A 
185 
186 


015 
116 


124 


MLRQB   -   PARSE    REQUEST   BLOCK 
ERROR   MESSAGES 


130 
131 
132 
133 
134 

135  000160 

136  000161 

137  000170 
138 

139 
140 
141 
142 
143 
144 

145  000276 

146  000330 

147  000366 

148  000424 

149  000462 

150  000516 

151  000552 

152  000616 
153 

154  000660 

155 

156 

157 

158  000716 

159  000752 

160  001014 
001062 
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.SBTTL  ERROR  MESSAGES 


114 


ERROR  MESSAGE  BUFFER 
ERRMSG: 
ERRBUF  : 

.EVEN 

ERROR  MESSAGES 


BYTE   15 
ASCII   "NTL  — 
BLKB   70. 


.ENABL  LC 


NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

.IF  DF 

NTLERS 

.IFF 

NTLERS 

.ENDC 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

.IF  DF 
NTLERS 
.ENDC 

NTLERS 
NTLERS 
NTLERS 

.IF  DF 
NTLERS 
.ENDC 

NTLERS 
NTLERS 
NTLERS 
NTLERS 


,99,7,SRERR, 

,98,7,SRERR, 

,97,7,$RERR, 

,96,7,$RERR, 

,95,7,SRERR, 

,94,7,SRERR, 

,93,7,SRERR, 

,92,7,SRERR, 

RSSIIM 

,91,7,$RERR 


REP7,,<ULegal.  Function> 
REP7,,<Comm  Exec  Not  Loaded> 
REP7,,<Process  Not  In  System> 
REP7,,<Garbage   In  Flags    ■>yte> 
REP7,,<Line  Not   In  Syst. 
REP7,,<iaegaL   CSR  AddrL.s> 
REP7,  ,<I  Uegal    Interrupt  Priority> 
REP7,,<IUegal    Interrupt   Vector> 

REP7,,<No  Data  Block  Address> 


,91,7,SRERR,REP7,,<Data  Block  Allocation  Failure) 


,90,7,$RERR,REP7, 
,88,7,SRERR,REP7, 
,87,7,SRERR,REP7, 
,86,7,SRERR,REP7, 

RSSMPL 
,85,7,SRERR  REP7, 


, <Illegal  Unit  Number> 
.<Garbage  In  DLC  Flags  Byte> 
.<Units  Not  In  Ascending  Order> 
XCircuit  not  in  system) 


.<Comm  exec  has  been  deallocated) 


,21,7,SRERR,REP7,,<Device  Offline) 
,Z3,7A,SRERR,REP7A,,<  > 
,Z4,7,SRERR,DEV7,,<Deuice  •*:  Still  Mounted) 


RSSIIM 

, Z7, 7, SRERR,DEV7,,<De\/ice 


>»:  Still  Active) 


,ZR,7,SRERR,REP7,,<Process  May  Not  Be  Unloaded) 
,Z5,7B,SRERR,REP7B,,<Still  Ready) 
,Z6,7,SRERR,REP7,,<Line  Still  Active) 
,ZP,7,SRERR,REP7,,<Vector  Not  In  System) 


.DSABL  LC 


ERROR  MESSAGE  FORMAT  STRINGS 


.ENA8L  LC 
.NLIST  BEX 
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FRRHB  NIF<;';Ar,FS 


NTLRQB   - 
SLIN  -   C 

611 
612 
613 
6U 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
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HECK  SET  LINE  REQUEST  BLOCK 

.SBTTL  SLIN  -  CHECK  SET  LINE  REQUEST  BLOCK 


SLIN  -  CHECK  "SET  LINE"  REQUEST  BLOCK 

INPUTS: 

$SLTA=SLT  ADDRESS 

OUTPUTS: 

R4  CLEARED  IF  NO  WORK  TO  DO 


NTLR( 
$FSL 


001256 
001262 
001266 
001272 
001300 
001302 
001304 


012700     000136' 


016700 
032760 
OOU01 
005004 


OOOOOOG 
040000     000000 


SLIN: 


10$: 


MOV 

CALL 

MOV 

BIT 

BEQ 

CIR 

RETURN 


#L8ITS,R0 

$81 TS 

$SLTA,RO  , 

*LF.RDY,L.FLG(RO) 

10$ 

R4 


DO  BIT  TWIDDLING 

GET  SLT  ADDRESS 

;  IS  LINE  READY  ? 

NO  .. 

YES  ..  NO  WORK  TO  DO! 


N  10 
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CPRO  -  CHECK  CLEAR  PROFESS  REQUEST  BLOCK  


NTLT 
$RER 


NTLRQB  -  PARSE    REQUEST 
$FSlT    -   FIND    5LT 

118? 
1185 
1184 
1185 

1186  003320  016706 

1187  003324 
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ERROR  CONDITION 


000152' 


101$: 


MOV  SPSAV.SP 

EMSGSR     87 


RESTORE    SP   TO   INLRQB  ENTRY   VALUE 
UNITS   OUT   OF    ORDER 


NTLCQB   -  PARSE    REQUEST   BLOCK 
SRERR   -  PRINT   ERROR   MESSAGE 
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NTlRQB 

CREATED  BY 

MACRO     ON 

?9-JUN-85   AT 

00:33 

PAGE   6 

SYMBOL 

CROSS   REFERENCE 

CREF       04. ( 

SYMBOL 

VALUE 

REFERENCES 

$$INC 

GX 

•12-373 

•16-607 

ItLINX 

r     ****** 

GX 

•12-387 

$$LRB 

=     ****** 

GX 

8-220 

9-278 

12-370 

15-517 

$$LTIM 

~     ****** 

GX 

15-575 

SSMTP 

r     ****** 

GX 

•  15-571 

$$MUX 

=     ****** 

GX 

•  U-471 

•22-1046 

$$NODC 

=     ****** 

GX 

•12-388 

$$PAR 

z     ****** 

GX 

•12-383 

•12-584 

•16-608 

$$PR! 

-     ****** 

GX 

•15-544 

$$5NUM 

=;       ****** 

GX 

•15-572 

SSTBL 

r     ****** 

GX 

•12-386 

$$VECT 

=     ****** 

GX 

•15-552 

.CBIAS 

::     ****** 

GX 

14-474 

30-1348 

.CCEX 

000054 

R 

6-80 

#6-101 

.CLIN 

000072 

R 

6-82 

#6-106 

.CPRO 

000062 

R 

6-81 

#6-103 

.CXCSR 

—      ***»»♦ 

GX 

20-838 

.HOME 

-      ****** 

GX 

9-274 

•9-282 

.KMCPF 

U00102 

R 

6-83 

#6-109 

.SCEX 

000020 

R 

6-77 

#6-90 

.SCIR 

000110 

R 

6-84 

#6-111 

.5L!N 

000040 

R 

6-79 

#6-96 

.SPRO 

000026 

R 

6-78 

#6-92 

..SCSR 

-      **  ^  *  ** 

GX 

•15-570 

NTL! 


22-1028        23-1073 


NTLRQB 
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NTL 
Svm 


MTLSUB  -  COMMON  SUBROUTINES 


385 

386 

387 

388 

389 

390 

391 

392 

393 

39A 

395 

396 

397 

398 

399 

AOO 

^01 

AO? 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

4i4 

415 

416 

417 

418 

419 

420        000001 
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*»•  -  SHRCIN  -  REINITIALIZE  HRC 

THIS  SUBROUTINE  IS  USED  AS  A  GENERALIZED  INTERFACE  TO  REQUEST  HRC. 
TO  REINITIALIZE  ITSELF  AFTER  THE  I/O  DATA  BASE  HAS  BEEN  CHANGED. 


NILS 

SVMB 
SVMB 
.h5C 


INPUT: 


NONE. 


OUTPUT: 


SHRCIN: 


C-BIT  =  SUCCESS/FAILURE 


.IF  DF   R$$MPL 


10$: 
20$: 


ALUNSS 

#3,#"RD 

#0 

ASSIGN  LUN  TO  RDO: 

BCS 

20i 

:    IF  CS,  EXIT 

Q]OW$S 

#10. ATT 

#3 

#32. 

,#STATUS  ;  ATTACH  TO  THE  RDO: 

BCS 

20$ 

IF  CS,  ERROR 

QIOWSS 

#JO.HRC 

#3 

*32. 

,#STATUS 

,<#M$]N1T,#M$INIT> 
REQUEST  HRC...  TO 
REINITIALIZE  ITSELF 

ROR 

R1 

SAVE  ERROR  STATUS 

QIOUSS 

#IO.DET 

,*< 

ttV^. 

DETACH  FROM  RECONFIGURATION  DRIVER 

ROL 

R1 

RESTORE  CARRY 

BCS 

20$ 

IF  CS,  EXIT 

TSTB 

STATUS 

WAS  THE  QIO  SUCCESSFUL  ? 

BPL 

20$ 

IF  PL,  VES 

SEC 

ELSE,  INDICATE  ERROR 

RETURN 

.ENDC 

.END 
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^vmhnl   r^hlp 


Ml; 


MlSvM     created  Bv  macro  on  29-JJN-85  AT  OO:^'. 

SYMBCL  CR05S  BEfERENCE 

SYMBOL  VAliJE  references 

.x5Cn    000060  6  #5-125 


PAGE  3 

CREf   04.00 


N'lTI 


NTlSYM 
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N  U 


ntli 
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lOCAI 


tOi 

40S 

'■Oi; 
409 
410 

411  . 

412  00052?  IVfDDM: : 

415  000S22  032767  OOOOOOG  OOOOOOG        BIT  #FL.DDM,$f L AGS  ;  IS  THIS  A  ODM? 

4-4  000530  0Q1C03  BNE  10$  ;  IF  NE,  VES 

415  000532  EMSG$  2i  ;  DDM  OPERATOR  IN  DLC/LU  TEMPLATE 

416  000''40  10$:    RETURN 


$VFDDM  -  i/ERIFY  DDM  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

ERROR  UNLESS  DDM  BEING  LOADED 
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NILUNL  -  NTL  UNLOAD  ROUTINES    MACRO  V05.03b  Saturday  29-Jun-85  00:54  Page  6 
LOCAL  SYMBOL  DEFINITIONS 

.S8TTL   LOCAL  SYMBOL  DEFINITIONS 

•  SAVED  REGISTER  OFFSETS  FOR  SWSTKS 

ft$RO  =  2 
R$R1  =  A 
RtR2  =  6 
R$R3  =  10 
R$RA  =  12 
R$R5  =  H 


;  PROCESS  INIT/TfRM  FLAG 
INIFL  =  1 


105 

106 

107 

108 

109 

110 

000002 

111 

OOOOOA 

112 

OOOOOt 

113 

000010 

1U 

0000 '2 

115 

OOOCK 

116 

117 

118 

119 

120 

121 

122 

123 

000001 

12A 

125 

F  10  M  U 


N     1 
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182 
15". 

•  SNLPUT  -  SEND 

BACK  1  WORD 

SUCCESS/FAILURE  CODE  TO  CALLER 

185 
186 

•  INPUTS: 

■8^ 

$$TASK= 

CALLiNG  TASK 

S  NAME 

188 

$FUNC=SUCCESS  CODE 

18<» 

190 

;  OUTPUTS: 

191 

NONE 

192 

193  000236 

iNLPUT: 

194 

'.IF  ^  ■ 

I$$AS 

195  000236 

005767 

OOOOOOG 

TST 

$$AST 

NOTIFY  USER  VIA  AST? 

196  0002A2 

001403 

BEQ 

5$ 

BR  ir  y^s                                ,   .  „  .  r 

T^y   000244 

CALL 

PUTAST 

PUT  COMPLETION  AST  IN  CALLER'S  AST  QUEUE 

198  000250 

000422 

BR 

20$ 

AND  EXIT 

199 

.ENDC 

200  000252 

016767 

OOOOOOG 

000012' 

5$: 

MOV 

$$!■    ANSWER+S.DATN  ;  COPY  CALLING  TASK'S  NAME 

201  000260 

016767 

000002G 

000014' 

MOV 

$$TA   >, ANSWER* 

;.DATN+2  ; 

202  000266 

012700 

000026' 

MOV 

*$$Lf   4,R0 
$FUNC,{RO)t 

GET  REQUEST  BLOCK  ADDRESS 

203  000272 

016720 

OOOOOOG 

MOV 

COPY  FUNCTION  CODE 

204  000276 

012701 

000014 

MOV 

#12.,R1 

ZERO  OUT  THE  NEXT  12.  WORDS 

205  :90302 

005020 

10$: 

CLR 

(R0)  + 

.  .  . 

20o  000304 

005501 

DEC 

R1 

207  C00306 

001375 

BNE 

10$ 

.  .  . 

208  0003^0 

DJR$ 

#ANSWER 

SEND  DATA  BACK  TO  CALLER 

209  0003  6 

20$: 

RETURN 

ntlkmc 

ERROR   I 

20' 
20' 
20( 
20 
20i 
20' 
211 
21 
21 
21 
21' 
21 
21 
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ERROR  PROCESSING  DATA  AND  FILE  BUFFER 


204 
205 
206 
207 
208 

209  000000 

210  000000 
211 

212 
213 
2H 
215 
216  000000 


BUFFER  FOR  USE  IN  FILE  I/O,  MUST  RESIDE  AT  END  OF  OVERLAY  FO  TAKE 
ADVANTAGE  OF  EXTRA  ROOM,  SO  USE  APPROPRIATE  PSECT  NAME 


KMCBUF: 


.PSECT 
.BLKW 


. . KMC , D 
1 


;USE  EXTRA  ROOM  AT  END 


START  OF  INSTRUCTION  PSECT,  MUST  BE  PURE  CODE 
.PSECT 


NTL<MC  -  LOAD  KW   MICRO-CODE 
MAIN  ERROR  PROCESSING 


726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 

748  CC1234 

749  001236 

750  001240 

751  001242 

752  001244 

753  001250 

754  001252 

755  001254 

756  001260 

757  001262 

758  001264 


010446 
010546 
010005 
012503 

005715 
001402 

012605 
012604 
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.SBTTL  MAIN  ERROR  PROCESSING 

-KMCEFT-  MAIN  ERROR  FORMATTER 

THIS  ROUTINE  IS  RESPONSIBLE  FOR  CALLING  PROPER  ERROR  FORMATTERS 

INPUTS: 

RO  =  ADDRESS  OF  MESSAGE  CONTROL  BLOCK  PLUS  TWO 

MESSAGE  CONTROL  BLOCK  FORMAT: 

WORD  -  ADDRESS  OF  MAIN  ERROR  PROCESSOR 

WORD  -  ADDRESS  OF  ERROR  MESSAGE  PREFIX  (FORMAT  STRING) 

WORD  -  ADDRESS  OF  FIRST  MESSAGE  FORMATTING  ROUTINE 

WORD  -  ADDRESS  OF  SECOND  FORMATTING  ROUTINE  (OPTIONAL) 

ASCIZ  -  FRRDR  MESSAGE  SUFFIX  CHARACTER  STRING 

OUTPUT: 

PROPER  MESSAGES  ARE  FORMATTED  AND  PRINTED 
RO,  R1,  R2,  AND  R3  ARE  DESTROYED 


SAVE  R4 

SAVE  R5 

COPY  ADDRESS  IN  CONTROL  BLOCK 

GET  ADDRESS  OF  MESSAGE  PREFIX 

DO  A  LITTLE  COMMON  CODE 

CREATE  A  SECOND  MESSAGE? 

BR  IF  NO 

A  LITTLE  MORE  COMMON  CODE 

RECOVER  R5 

RECOVER  R4 


NTLPR 
MACRO 


759 
760 

761  001266 

762  001272 

763  001274 

764  001300 
763  001302 

766  001504 

767  001310 


012704  000034' 

012700  000024' 

010401 

160001 


KMCEFT. 

MOV 

R4,-(SP) 

MOV 

R5,-(SP> 

MOV 

R0,R5 
(R5)+,R3 

MOV 

CALL 

20$ 

TST 

(R5) 

■MTQ 

10$ 

LrtLL 

20$ 

10$: 

MOV 

(SP)+,R5 

MOV 

(SP)+,R4 

RETURN 

20$: 

MOV 

*KMCEMS, 

CALL 

a(R5)+ 

MOV 

#KMCE8F, 

MOV 

R4,R1 

SUB 

R0,R1 

CALL 

$TIOUT 

RETURN 

PLACE  MESSAGE  HERE 

FORMAT  FIRST  MESSAGE 

GET  THE  FULL  BUFFER  ADDRESS 

COPY  ADDRESS  OF  END  OF  MESSAGE 

GET  LENGTH  OF  MESSAGE 

PRINT  THE  MESSAGE 


NTLPRO  - 

"SET  PROCESS 

MACRO  DEFINITIONS 

54 

55 

56 

57 

58 

59 

60 

61 

000000 

62 

000000 

63 

000000 

6A 

000000 

65 

000000 

66 

000000 

67 

000000 

68 

69 

70 

71 

72 

75 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 
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NTLPR 
SALMH 


DEFINE  ADJACENCY  DATA  BASE  SYMBOLS 
DEFINE  ECL  COUNTERS  OFFSETS  AND  SYMBOLS 
DEFINE  ECL  DDB  OFFSETS  AND  SYMBOLS 
DEFINE  XPT'S  DDB  OFFSETS  AND  SYMBOLS 
DEFINE  SLT  OFFSETS  AND  SYMBOLS 
DEFINE  DECNET  HOME  BLOCK  OFFSETS 
DEFINE  CACHE  OFFSETS 


DEFINE  THE  CTB  OFFSETS 


.SBTTL  MACRO  DEFINITIONS 
*** 
LIBRARY  MACROS 

.MCALL  ASL$,EMSG$R,EMSG$,SLTDF$,XPDDB$,CTRDF$,BIAS,ASR$,RETC,ECDDB$ 
.HCALL  DH6DF$,SAVRG,RESRG,CACDF$,ADJDF$ 

ADJDFS 
CTRDFS 
ECDDBS 
XPDDBS 
SLTDFS 
DHBDFS 
CACDF$ 

.IF  DF  R$$MPL 

.MCALL  CTBDFS 

CT8DF$ 

.ENDC 

LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV     aKSAR5,-(SP) 

.EN?M 

.MACRO  RtSMAP 

MOV     (o?)+,aKSAR5 

.ENDM 

.MACRO  BIAS5  REG 

BIC  #160000, REG 

BIS  #120000, REG 
.ENDM 

.MACRO  MAP  BIAS 
MOV     BJAS,aKSAR5 
.ENDM 


;  SAVE  APR  5 
;  RESTORE  APR5 
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SALMHC  -  ALLOCATE  MINHOPS/MINCOST  MATRIX 


Page  1? 


NTLR( 


609 
610 
611 
612 
615 
6H 
615 
616 
617 
618 
619 
620 
621 
622 
625 
62A 
625 
626 
627 
628 
629  001022 

650  001026 

651  001052 

652  001056 
655  001040 
65A  001 O^A 

655  0010A6 

656  OOIOdO 

657  001052 

658  001054 

659  001056 

640  001062 

641  001066 

642  001102 
645  001106 

644  001110 

645  001114 

646  001120 

647  001124 

648  001150 

649  001152 

650  001136 

651  001140 

652  001144 
655  001146 

654  001156 

655  001162 

656  001164 

657  001170 

658  001172 

659  001174 

660  001200 

661  001204 

662  001210 
665 

664  001212 


.SBTTL  SALMHC 


"LLOCATE  MINHOPS/MINCOST  MATRIX 


SALMHC  -  ALLOCATE  MIN  HOPS/MIN  COST  MATRIX  FROM  POOL. 

INPUTS: 

SPDVA  -  XPT'S  POV  ADDRESS 
SNA  -  MAXIMUM  NUMBER  OF  AREAS 
$NN  -  MAXIMUM  NODI^  ADDRESS 


NUMBER  OF  WORDS  IN  MATRIX 

APR  BIAS  OF  MATRIX 

APR6  VIRTUAL  ADDRESS  OF  MATRIX 

NUMBER  OF  WORDS  IN  MATRIX 

APR  BIAS  OF  MATRIX 

APR6  VIRTUAL  ADDRESS  OF  MA'-RIX 


OUTPUTS: 

NSMHC1 

(XPT'S  DDB)  - 

NSMHCl 

>2  (XPT'S  DDB)  - 

NSMHCl 

h4  (XPT'S  DDB)  - 

N$MHC2 

(XPT'S  DOB)  - 

NSMHC2 

^2  (XPT'S  DDB)  - 

N$MHC2 

^4  (XPT'S  DDB)  - 

;ALMHC::CALL 

SSAVAL 

017700 

OOOOOOG 

MCV 

aDECPT.RO 
D$NN(R0),R1 

016001 

000060 

MOV 

001464 

BEQ 

40S 

016005 

000062 

MOV 

D$NA(R0),R5 

001401 

BEQ 

10$ 

005201 

INC 

Rl 

005201 

10$:    INC 

Rl 

060501 

ADD 

R5,R1 

006501 

ASL 

Rl 

062701 

000077 

ADD 

#77, Rl 

042701 

000077 

BIC 

*77, Rl 

ASRS 

6,R1 

CALL 

SALN18 

105441 

BCS 

101$ 

016705 

OOOOOOG 

MOV 

SPDVA, R5 

016505 

OOOOOOG 

MOV 

Z.DAT(R5),R5 

017702 

OOOOOOG 

MOV 

aDECPT.R2 
D$NN(rJ),R1 

016201 

000060 

MOV 

005201 

INC 

Rl 

010165 

000036 

MOV 

Rl, NSMHCl (R5) 

006501 

ASL 

Rl 

010065 

000040 

MOV 

R0,NSMHCU2(R5) 

005004 

CLR 

R4 

BIAS 

R4 

010465 

000042 

MOV 

R4,N$MHClt4(R5) 

060104 

ADD 

Ri,R4 

016201 

000062 

MOV 

0$NA(R2),R1 

001407 

BEQ 

40$ 

005201 

INC 

Rl 

010165 

000044 

MOV 

R1,NSMHC2(R5) 

010065 

000046 

MOV 

R0,NSMHC2t2(R5) 

010465 

000050 

MOV 

R4,N$MHC2*-4(R5) 

40S: 

101$: 


RETURN 
EMSGSR  69 


SAVE  ALL  REGISTERS 

STORE  i/tCNET  HOME  BLOCK  ADDRESS 

GET  MAXIMUM  NUMBER  OF  NODES 

IF  ENDNODE  -  BRANCH 

MULTIPLE  AREAS  ? 

IF  NO  -  BRANCH 

INCLUDE  EXTRA  AREA  ENTRY 

INCLUDE  EXTRA  NODE  ENTRY 

ADD  NUMBER  OF  AREAS 

CONVERT  TO  BYTE  COUNT  (1  WORD/NODE) 

ROUND  TO  -■'LOCK  BYTE  BOUNDARY 

CONVERT  TO  BLOCK  COUNT 

ALLOCATE  COUNTERS  FROM  NON-UMR  SPACE 

BR  IF  ERROR 

GET  XPT'S  PDV  ADDRESS 

GET  XPT'S  DDB  ADDRESS 

STORE  DECNET  HOME  BLOCK  OFFSET 

GET  NUMBER  WORDS  IN  NODE  HOPS/COST 

INCLUDE  EXTRA  NODE  ENTRY 

STORE  NUMBER  OF  WORDS  IN  MATRIX 

CONVERT  TO  BYTES 

STORE  APR  BIAS  FOR  MIN  HOPS/MIN  COST 

POINT  TO  START  OF  MATRIX 

...  (XPT  NEEDS  APR6  BIAS) 

STORE  START  OF  MATRIX 

POINT  TO  START  OF  AREA  HOPS/COST 

GET  NUMBER  OF  ENTRIES  IN  AREA  HOPS/COST 

IF  NONE  -  BRANCH 

INCLUDE  EXTRA  AREA  ENTRY 

STORE  NUMBER  OF  WORDS  IN  AREA  MATRIX 

STORE  APR  BIAS  FOR  AREA  MATRIX 

STORE  VIRTUAL  ADDR  OF  START  OF  MATRIX 


ELSE  ALLOCATION  FAILURE 


r 
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3 

^ 
5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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.TITLE   NTLROO  -  NTL  ROOT  SEGMENT 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHfcR 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  \  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  MAIN  CONTROL  LOOP 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00     U-DEC-79 

DECNET-11M/S   V3.0 
DECNET-HM-PLUS   VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mi'cro/RSX  VI. 0 


OF   ITS 
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tVCTLB  -   SET   UP  LIBRARY   VECTOR    TABLE 
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608 

609 

610 

611 

612 

613 

6U 

615 

616 

617 

618 

619 

620 

621 

622 

623 

62^ 

625 

626 

627 

628 

629 

630 

631 

632 

633 

63^ 

635 

636 

63" 

638 

639 

6-40 

641 

6^12 

643 

644 

645 

646 

647 


.SBTTL     SVCTLB  -   SET  UP  LIBRARY  VECTOR   TABLE 

I- 

SVCTLB  -  SET  UD  LIBRARY  VECTOR  TABLE 

INO'ITS: 

SLBLN  -  NUMBER  Of  SYMBOLS 
SLBVT  -  ADDRESS  OF  TABLE 
SLBBLK  -  BIAS  OF  LIBRARY 

OUTPUTS: 

VECTOR   TABLE    TRANSLATED 


.IF   DF      R$$MPL 


SVCTLB: :MOV 
BEQ 
EMT 
.WORD 
MOV 
MOV 
MOV 
MOV 
MOV 

MOV 


MOV 

MOV 

MOV 

CALL 

MOV 

CLR 

RETURN 

.ENDC 


10$: 


SLBVL,R2 

10$ 

376 

10$ 

aKSAR6,-(SP) 

MPPRO.RO 

KSAR6,R5 

$LSBLK,SKSAR6 

SLBVT, R3 

a#112,R1 

(RD.Rl 

(R1),-(SP) 

#120000, -(SP) 

(RO) 

(SP)t,(R5) 

SLBVL 


COPY  NUMBER  OF  SYMBOLS  VECTORED 
IF  PROCESS  NOT  VECTORED  -  BRANCH 
SWSTKS  10$  WITHOUT  RSXMC 

SAVE  OUR  APR6  MAPPING 

GET  ADDRESS  OF  PROCESS  MAPPING  ROUTINE 

GET  KISAR6  ADDRESS 

MAP  TO  PROCESS 

COPY  TABLE  ADDRESS  OF  PROCESS 

COPY  BIAS  OF  EXEC  ROUTINE  WHICH 

CALLS  THE  VECTOR  TRANSLATE  ROUTINE 

GETTING  TO  ACTUAL  BIAS 

PUT  BIAS  ON  STACK  FOR  SMPPRO 

MAP  THRU  AFR5 

CALL  DIRECTIVE  COMMON  ROUTINE  THE  LONG  WAY 

RESTORE  OUR  APR6  MAPPING 

INIT  VECTOR  TABLE  FLAG 


NTLROO  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:32 

SYMBOL    CROSS   REFERENCE 


SYMBOL      VALUE 


2.PCB 

SALECL 

SALMHC 

SALOCB 

tALOCI 

SALTLC 

SBIAS 

SCCBAF 

SCCBAL 

SCCBCT 

SCCBLH 

$CCBNM 

SCCB^'' 

SCCEX 

SCEAVL 

SCEPWR 

tCLIN 

SCLKHD 

SCMFRK 

$CPRO 

tCRAVL 

SCTBAO 

SCTIM 

SCTSYM 

SCXOPT 

SDDMPV 

SDEACB 

SDEACI 

SDECPT 

JDEUMR 

SDEVHD 

SDLCPV 

SDSINI 

tEXRQN 

SEXSIZ 

SFEATR 

SFILHD 

$FLAGS 

SFMASK 

$FUNC 

SHEADR 

$ICBI 

SICBLN 

SINim 

SLDBAf 
SLDPWF 
SLGDDB 
ILGPDV 
tLGSTT 
SLLCAL 
SLLCTA 
SLTMFC 


r  ****** 

=  ****** 

=  ****** 

=  ****** 

=  ****** 

=  ****** 

000066 

r     ****** 

=  ****** 
=  ****** 
=  ****** 
r     ****** 

-  ****** 
=  ****** 
r  ****** 
=  ****** 
=  ****** 
=  ****** 
=  ****** 
=     ****** 

-  ****** 

000020 
000106 

r  ****** 

-  ****** 

000U2 

r  ****** 

3  ****** 

-  ****** 
=:  ****** 

-  ****** 

0001A0 

=  *»♦*** 

r:  ****** 

"  000026 

=      ****** 

001232 

:::  ****** 

000012 

r  ****** 

-  000016 
000016 

-  ****** 

-  ****** 
r  ****** 

-  ****** 

-  ****** 

-  ****** 
z  ****** 
r  ****** 


REFERENCES 


GX 

8-507 

GX 

8-538 

GX 

8-533 

GX 

6-211 

GX 

6-210 

GX 

11-710 

RG 

#6-294 

GX 

5-151 

GX 

5-155 

GX 

5-U8 

GX 

6-188 

GX 

5-U9 

GX 

6-189 

GX 

6-A07 

GX 

6-198 

GX 

5-145 

GX 

6-409 

GX 

5-109 

GX 

5-127 

GX 

6-408 

GX 

5-111 

RG 

#6-268 

RG 

#6-301 

GX 

11-703 

GX 

6-192 

RG 

#6-318 

GX 

5-116 

GX 

5-120 

GX 

6-168 

GX 

5-90 

GX 

5-115 

RG 

#6-317 

GX 

8-551 

GX 

5-91 

GX 

5-110 

RG 

#6-271 

GX 

6-169 

RG 

#6-381 

GX 

5-108 

RG 

#6-227 

GX 

6-212 

G 

#6-232 

RG 

#6-243 

GX 

8-530 

GX 

5-153 

GX 

5-;21 

GX 

6-183 

GX 

6-182 

GX 

6-170 

GX 

6-180 

GX 

5-157 

GX 

5-150 

*8-556 


*12-752 


13-797 


•11-685 
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CREF        04.00 
*1 1-702 


12-750 


*14-824 


NTLRQE 
ERROR 

M 
1J 
15 

I"; 

-ic 

V. 

IC 

IC 


11-688 


11-670 


•8-516 
7-475 
6-243 


8-521 
7-481 


♦11-679 
•7-485 


•11-696 


•12-737 


•12-738 


•14-823 


NTLRQB  -  PARSE  REQUEST  BLOCK 
ERROR  MESSAGES 
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:?2 


187  OOUA^ 

000 

FMT7: 

.ASCIZ 

t  II  t 

188  001A45 

103 

150 

Kl 

FMT7A: 

.ASCIZ 

"Channel 

189  001511 

lU 

151 

156 

fMT7d: 

.ASCIZ 

"Line  • 

190 

.EVEN 

191 

.DSABL 

LC 

192 
193 

19A  000000 

.LIST 

BEX 

.PSECT 

•  stiU  active  on  process  *' 


NTLRQI 
CPRO 

6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
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NTiri 

$RERI 


635 
63A 
635 
636 
637 
658 
639 
6A0 
6A1 
6^2 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 

653  001306 

654  001310 
655 

656  001314 

657  001320 

658  001322 

659  001324 
660 

661  001530 

662 

663 

664 

665 

666 

667  001334 

668  001340 

669  001342 

670  001346 
671 

672  001350 
675 

674  001356 

675  001364 

676  001566 

677  001570 

678  001574 

679  001576 

680  001400 

681  001404 

682  001406 
685  001412 

684  001414 

685  001416 

686  001422 

687  001424 
688 

689  001430 


005000 
016701 

005761 
001003 

OOSPn/. 
ori   '- 

016702 


022702 
001403 
022702 
001005 


052767 
001575 
005002 
156102 
001475 
006502 
062701 
060102 
022721 
001462 
005741 
022721 
001456 
017746 

012746 


.SBTTL  CPRO  -  CHECK  CLEAR  PROCESS  REQUEST  BLOCK 


CPRO  -  CHECK  "CLEAR  PROCESS"  REQUEST  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  CHECK  THAT  A  CLEAR  PROCESS  REQUEST  IS  VALID.  IF 
THE  PROCESS  IS  AN  LLC,  ALL  ITS  CHANNELS  MUST  BE  INACTIVE  AND,  IF  IT  IS  ALSO 
AN  RSX11M  Pr.EUDO-DEVICF,  THE  DEVICE  MUST  BE  DISMOUNTED.  IF  THE  PROCESS  IS 
EITHER  A  DLC  OR  A  DDM,  ALL  LINES  WHICH  INCLUDE  THE  PROCESS  MUST  BE  NOT  READY. 

INPUTS: 

$PDVA=PDV  ADDRESS 

OUTPUTS: 

C-eiT=SUCCESS/FAlLURE 

H''    CLEARED  IF  PROCESS  IS  NON-RESIDENT 


OOOOOOG 
OOOOOOG 

000522 
OOOOOOG 


CPRO: 


10$: 


CLR 
MOV 

TST 
BNE 
CLR 
JMP 

P10V 


f;o 

$PDVA,R1 

Z.PCB(Rl) 

10$ 

R4 

150$ 

$NAME,R2 


USED  AS  ERROR  FLAG 
GET  PDV  ADDRESS 

IS  PROCESS  CORE  RESIDENT? 
IF  VES  -  BRANCH 
INDICATE  NO  WORK  TO  DO 


GET  PROCESS  NAME 


015555 
004640 

12$: 
OOOOOOG  OOOOOOG  14$: 

OOOOOOG 

OOOOOOG 
140000 


CMP 
BEQ 

CMP' 
BEQ 
CMP 
BNE 


.IF 


DF  R$$MPL 
#*RDLX,R2 
12$ 
ENDC 

#*RDLi'1,R2 
12$ 

,»*RAUX,R2 
14$ 


100000 

OOOOOOG 

001472' 


20$: 


EMSGSR 

ZR 

BIT 

#FL.LLC,$FLAGS 

BEQ 

100$ 

CLR 

R2 

BISB 

Z.LLN(R1),R2 

BEQ 

40$ 

ASL 

R2 

ADD 

#Z.MAP,R1 

ADD 

R1,R2 

CMP 

#140000, (R1)t 

BEQ 

50$ 

TST 

-(R1) 

CMP 

#100000, (Rl)+ 

BEQ 

50$ 

MOV 

aSLTMA,-(SP) 

MOV 

#25$, -(SP) 

IS  IT  "DLX"? 

IF  EQ,  YES  ..  ERROR 

IS  IT  "DLM"? 

IF  EQ,  YES  ..  ERROR 

IS  IT  "AUX"? 

NO  .. 

PROCESS  MAY  NOT  BE  UNLOADED 

IS  THIS  AN  LLC? 

IF  EQ,  NO 

GET  CHANNEL  COUNT 

IF  zero', 'none  to  CHECK 

CONVERT  TO  A  WORD  INDEX 

POINT  AT  MAPPING  TABI-E 

GIVING  END  OF  MAPPING  TABLE  ADDRESS 

IS  CHANNEL  0  ASSIGNED? 

IF  EQ,  NO 

RESET  CHANNEL  POINTER 

IS  CHANNEL  1-N  ASSIGNED? 

IF  EQ,  NO 

SAVE  START  OF  SLT  MAPPING  TABLE 

TO  ALLOW  CO-ROUTINE  CLEANUP 


NTLTOB 
SRERR  - 

1189 

1190 

1191 

1192 

1193 

119^ 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1205 

120A 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1215 

12K 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1225 

122'- 

1225 

1226 

1227 


-  PARSE  REQUEST  BLOCK 
PRINT  ERROR  MESSAGE 


005552 
005552 
005356 
0055A0 
005544 
005346 
003550 
005352 
005554 
003556 
005360 
005562 
005564 
003366 
005570 
005572 
005576 
003400 
003402 
003406 
005410 
005412 
003414 
003416 


005705 
001401 

000261 
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.SBTTL  SRERR  -  PRINT  ERROR  MESSAGE 

I- 

SRERR  -  PRINT   ERROR  MESSAGE 

INPUTS: 

RO=MESSAGE  BLOCK  ADDRESS 

OUTPUTS: 

C-BIT=SET 
RO,R1=DESTfiOYED 


010005 

012704     000170' 

012505 


105715 
001405 
112524 
001576 
005504 
012505 
112524 
001576 
005304 
012700 
010401 
160001 


SRERR: 


lOS: 


20S: 
30S: 


000160' 


40S: 


CALL 

MOV 

MOV 

MOV 

CALL 

TSTB 

BEQ 

MOVB 

BNE 

DEC 

MOV 

MOVB 

BNE 

DEC 

MOV 

MOV 

SUB 

CALL 

TST 

BEQ 

CALL 

SEC 

RETURN 


SSAVAL 

R0,R5 

#ERfiBUF,R4 

(R5)+,R5 

a(R5)t 

{R3) 

20$ 

(R3)+,(R4)+ 

10$ 

R4 

(R5)t,R5 

(R5)+,(R4)t 

30$ 

R4 

#ERRMSG,R0 

R4,R1 

RO.RI 

STIOUT 

R3 

40$ 

(R3) 


SAVE  ALL  REGISTERS 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  VES 

ELSE  COPY  REST  OF  FORMAT  STRING 

SKIP  THE'ZERO  BYTE 
GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  THE'ZERO  BYTE 

GET  ERROR  MESSAGE  ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT  IT 

SHOULD  SECOND  LINE  BE  PRINTED? 

IF    EQ,    NO 

PRINT    SECOND   ERROR  MESSAGE   LINE 

RETURN  WITH   C-BIT   SET 


NTLR 

MACR 

MACR 

ASLS 
CALL 


EMSG 
EMSG 


NTLD 
NTLE 


RETl 


SLTC 

SOB 

SWSl 


NTLRQB  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:33 

MACRO   CROSS   REFERENCE 
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MACRO  NAME 

ASLt 
CALL 


EMSGt 
EMSGtR 


NTLDFi 
NTLERS 


RETURM 


SLTDFS 

soe 

5WST<$ 


REFERENCtS 

#5-59 

8-231 

18-726 

26-1205 

30-1362 
#5-59 
#5-59 

15-587 

22-1055 
#5-59 
#5-59 

7-158 

7-177 

8-236 

18-697 

23-1083 
#5-59 

9-277 

■3-726 


15-5A3 

11-333 

18-776 

26-1209 

30-1368 

18-713 

8-241 

15-588 

25-1187 

5-61 

7-U5 

7-159 

7-178 

9-286 

18-751 

24-1123 

5-62 

18-777 

20-833 


13-406 
20-833 
26-1222 

18-718 

9-284 

15-589 


7-146 
7-160 

10-305 
18-779 
25-1181 

21-1002 
21-951 


14-443 
20-837 
26-1225 

18-776 
10-310 
15-590 


7-147 
7-161 

11-340 
19-804 
26-1227 

24-1112 


PAGE 

7 

CREf 

04.00 

5 

14-467 
21-942 
28-1265 

15-534 
21-951 
28-1278 

15-567 

21-1001 

28-1287 

17-626 

22-1027 

29-1310 

18-713 

22-1033 

30-1339 

21-''42 
11-345 
18-672 

21-1001 

11-346 

18-754 

14-'.    7 

14-488 
19-809 

14-489 
21-977 

7-148 
7-167 

7-149 
7-168 

7-150 
7-169 

7-151 
7-172 

7-152 
7-175 

7 

12-389 
20-844 
27-1244 

13-419 
20-846 
28-1289 

14-482 
21-938 
29-1318 

15-581 
21-973 
30-1370 

16-609 
21-1008 

18-718 

22-1042 

30-1351 


15-586 
21-980 


7-154 
7-176 

17-631 
22-1051 


NTLSUB  -  COMMON  SUBROUTINES 
Symbol  table 
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A$$CH<= 

000000 

G$tTPP= 

000000 

M$$MGE= 

000000 

Q.I0PR= 

9295?^ 

SCFUIC 

000052RG 

A$tCPS= 

000000 

G$$TSS= 

000000 

M$$NET= 

000000 

0.1058= 

000010 

$CLEVL= 

*♦»••*  GX 

A$tPR!= 

000000 

G$$TTK= 

000000 

M$$OVR= 

000000 

R$$DER= 

000000 

$CLI0S= 

*•••»•  GX 

A$$TRP= 

000000 

G$$WRD= 

000000 

NAMES 

000125R 

002  R$$K11= 

"59991 

SCUR.N 

000216RG 

C$$CICP= 

000000 

IO.WBT= 

*»••*•  GX 

N$$ACC= 

000001 

R$$SND= 

000000 

SCXUIC 

000072RG 

C$tORE= 

000400 

I$$RAR= 

000000 

N$$BUF= 

000001 

R$$11M= 

000000 

$C5TA  = 

»♦»*♦»  GX 

C$$RSH= 

17756'. 

I$$RDN= 

000000 

N$$LDV= 

000001 

SLFNP 

000322R 

$DFN 

OOOOOORG 

Df  EXT 

000121R 

002 

K$$CNT= 

177546 

N$$MCP= 

000001 

S$$WRG^ 

000000 

SDFNAM 

0001 12RG 

D$$BUG= 

1775K 

K$$CSR= 

177546 

N$$MLL= 

000001 

S$$YSZ- 

007600 

$DFN2 

000002RG 

DS$ISK= 

000000 

K$tLDC= 

000000 

N$$MOV= 

000010 

TIOUT 

OOOOOOR 

002  SDFUIC 

000032RG 

D$$L11= 

000001 

K$$TPS= 

000074 

N$$NCT=: 

000001 

T$$KMG= 

000000 

$FEATR= 

**♦*»*  GX 

D$$VNC= 

000000 

LDPUF  = 

«»«**♦  GX 

N$$PEM= 

000001 

T$$MIN= 

000000 

SFNOUT 

000270RG 

D$$VNM= 

000000 

LDSLP  = 

000000 

P$$P45= 

000000 

UC.PWF= 

»»**««  GX 

SNLCDD 

000352RG 

O.DSP  = 

»«»*»»  GX 

L$$ASG= 

000000 

P$$WRD= 

000000 

U.CTL  = 

******   GX 

SPRV.N 

000224RG 

O.UCBL= 

«♦«♦»♦  gx 

L$$DRV= 

000000 

Q$$OPT= 

000010 

U.CW3  = 

******   GX 

SREP.C 

000160RG 

E$$XPR= 

000000 

L$$P11= 

000001 

Q.IOAE= 

000012 

U.SCB  = 

«**»«*  GX 

SREP.N 

000230.<G 

FILE 

0002A3R 

002 

L$$11R= 

000000 

Q.IOEF= 

000006 

V$$CTR= 

001000 

SREP.P 

000164RG 

FNERR 

000233R 

002 

M$$CRB= 

000124 

Q.IOFN= 

000002 

X$$DBT= 

000000 

STIOUT 

000502RG 

FNPTR 

000030R 

002 

M$$CRX= 

000000 

Q.JOLU= 

000004 

SAZFS 

000042RG 

$$$ARG= 

000003 

F$$LVL= 

000001 

M$$FCS= 

000000 

O.IOPL= 

000014 

$C8DSG= 

******   GX 

$$$OST= 

000014 

.  AB5. 

000000 
000440 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,..ON) 

DATA 

000300 

002 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

»»♦  Assembler  statistics 

Work   f 

ile  reads 

0 

Work   f 

lie  writes 

0 

Size  of 

work  file 

9768 

Words 

(  39  Pages) 

Size  of 

core  DOoL 

14440  Words 

(  55  Pages) 

Operating  system 

RSX- 

11M/PLUS 

SYtNTLSUB^V2![l32,134]NTLSU8/CR/-SP=SY:[1,1jRSXMCM.SML/ML,[l30,110]NETLl8/ML,[130,10]RSXMCM/PA:1,[132,10]NTLSUB 


002 


002 


002 
002 


NILS 
viAfR 
MACR 
PDVD 


NT.SY*^  CREATED  Bv      MACRO     ON  29-JUN-85   AT    00:^4 

MACRO   CROSS   REFERENCE 
MACRO  NAME  REFERENCES 

[>DVDF$  «5-57  5-6A 


N  U 

PAGE   ^ 

CREF       OA.OO 


mlti 


'M 
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$Vf[)LC  -  ^inm   Die  ACTION  ROUTINE 


^18 
419 
^.20 

1.21 
42A 
425 

426  ,- 

427  000542  tvFDLC;: 

428  000542  032767  OOOOOOG  OOOOOOG        81T     #FL.DLC  ,$FLAGS  ;  IS  THIS  A  DLC? 

429  000550  001C03  BNE     10$  ;  IF  NE ,  VES 

430  000552  EMSG$   79  ;  DLC  OPERATOR  IN  DDM/LLC  TEMPLATE 
43'  000560                     10$:    RETURN 


INPUTS: 

NONE 

OUTPUTS: 

ERROR  UNLESS  DLC  '^tlNG  LOADED 


NTLGET 


NTLKMC 


NTl^RO 


J 

K 

1 

M 

N 

B 

6 

(■ 

f) 

D 

6 

f 

6 

F 

6 

G 

6 

H 

6 

I 

6 

.1 

A 

K 

6 

1 

6 

M 

A 

N 

6 

R 

r 

D 

F 

F 

r, 

H 

I 

J 

K 

1 

M 

N 

R 

H 

r 

H 

D 

o 

F 

H 

F 

H 

r> 

8 

H 

H 

I 

K 

J 

H 

K 

H 

1 

8 

M 

8 

N 

H 

H 

9 

C 

9 

1) 

V 

F 

9 

F 

9 

G 

9 

H 

9 

I 

9 

J 

9 

K 

9 

1 

9 

M 

9 

N 

9 

R 

10 

r 

10 

D 

10 

NTLROO 


NTLRQB 


6 
H 
I 
J 
K 

M 


G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 

G 

H 
I 
J 

K 
L 

M  12 
N  12 
B   13 


13 
13 


C 
D 
E 
F 
G 
H 
I 
J 
K 

C   U 


14 

K 

■4 

'4 

4 

4 

4 

4 

4 


NTLSU8 


NTLSYM 


M 

N 

R 

r 

D 

F 

F 

r, 

H 

1 

,1 

K 

1 

M 

N 

R 

16 

r 

16 

R 

16 

F 

16 

F 

16 

G 

16 

H 

16 

I 

16 

J 

16 

K 

16 

L 

16 

NTLTMP 


NTLUNL 


M   16 


MlUNL  -  MTL  L'NLO'^  ROUTINES 
LOCAL  DATA 

127 

128 

129 

130 

131 

132 

133  000000 

13A  000000 

135  000002 

136  OOOOOA 

137  000006 
138 
139 
HO 
1A1 
1A2 
143 
UA 
U5 
1A6 

1A7  000010 
1A8  000012 
1A9 
150 
151 
152 

153  OOOOIA 
15A 
155 
156 
157 

158  0001K 
159 
160 
161 
162 

163  000116 
16A 
165 
166 
167 

168  000120 
169 
170 
171 
172 

173  000122 
17A  0001 2A 
175 
1/6 
177 
178 

179  COO'  i  OOOOOOG 

180  OOOi^J  OOOOOOG 

181  000132  OOOOOOG 

182  0001 3A  OOOOOOG 

183  000136  OOOOOOG 


B  1 

MACRO  V05.03b  Saturday  29-Jun-85  00:34  Pi.ge  7 

.SBTTL  LOCAL  DATA 


•  *** 

;  LOCAL  DATA 

.PSECT 
K6TMP:   .BLKW 
FMKTMP:  .BLKW 
URMTMP:  .BLKW 
ICBSZ:   .8LKW 

DaTA.D 

1 
1 
1 
1 

.IF  DF 
BIAS:   .BLKW 
KRBA:    .BLKW 

.ENDC 

RijMPL 

1 

1 

;  DF  R$$MPL 

;  UNLOAD  BLOCK 

BIAS  AND  ADDRESS 

NTLUNL 
SCLIN  - 

662 
663 
664 


UBIAS:   .BLKW   1 
UBA:    .BLKW   1 


COPY  OF  UNLOAD  BLOCK 
BLOCK:   .BLKW   32. 


$K6TA8  TEMPORARY  LOCATION 
SFMASK  TEMPORARY  LOCATION 
SURMTB  TEMPORARY  LOCATION 
SIZE  OF  KB  BLOCK 


LOCAL  COPY  IF  DDM  PROCESS  BIAS 
■;  KRB  ADDRESS 


START  OF  BLOCK  ADDRESS  UNMAPPED 
UNLOAD  BLOCK  ADDRESS 


POINTER  INTO  UNLOAD  BLOCK  COPY 
UPTR:    .BLKW   1 

BIAS  OF  BLOCK  TO  DEALLOCATE  (IN  "KMCRL") 


KMCB: 


.IIF 


DF,M$$MGE, 


.BLKW   1 


LOOP  COUNTER 
COUNT:   .BLKW   1 

"CLEAR  LINE"  COUNTERS 


DLCAC: 
DDMAC: 


.BLKW 
.BLKW 


DLC  ACTIVITY  COUNT 
DDM  ACTIVITY  COUNT 


NONSENSE  INTERRUPT  TABLE  (RSX'IM  ONLY) 

NSITAB:  .WORD  NSO 

.WORD  NSl 

.WORD  NS2 

.WORD  NS3 

.WORD  NS4 


1  ihii  nAn    Dm  it  tmcc 


waron    wn'^    fl^h    i^atiirHav    P9- 


a-HS 


00:34      PsQP    7-1 


N^LUNL  -  MTl  unload  ROUTINES 
tCLlN  -  CLEAR  LINE 

662 

663  00K06 

66A  ^.OIAIO 


MACRO  V05.03b  Saturday  29-Jun-85 


B  2 

00:31 


101$: 
111$: 


CRASH 
CRASH 


Page  U-2 


;  KRB  ADDRESS  IS  ZERO  I 
;  DLC  LINE  TABLE  ADDRESS 


[S   ZERO 


Nil  ilNI     -   NTI    UNI  nAD   ROUT  INES 
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NTLUNL  -  NTL  UNLO. 
SCCEX  -  CLEAR  CEX 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288  00273A 

1239  002736 

1290  002740 

1291 

1292  0027A4 

1293 

1294 

1295 

1296  002744 

1297  002750 

1298  002754 

1299  002760 
1300 

1301  002764 

1302  002770 
1303 
1304 
1305 

1306  002/74 

1307  003C  '• 

1308  00301. L' 

1309  003006 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 

1327  003010 

1328  003014 

1329  003016 
1331  003022 

1331  003024 

1332  003030 

1333  CCj034 
1334 
1335 
1336 
■337 


B     3 

vD   ROUliNES         MACRO  V05.03D   Saturday   29-Jun-85   00:34     Page   19-4 


n 


005700 
001402 


005077  OOOOOOG 


0i6700  OOOOOOG 
001417 


10341O 


016700  OOOOOOG 
001411 

010002 

012701  OOOOOOG 


MOV 
BEQ 
MOV 

MOV 

aNTLPT,R2       ; 
83$ 

.CXALL(R2),R0 
.CXLEN(R2),R1   ; 

.ENDC 

83$:    TST 
BEQ 
CALL 
.IFTF 

84$: 

RO 

84$ 

$DEA16 

;  DF  R$$11M 

;  CLEAN-UP  POOL 

TABLES 

CALL 
CALL 
CALL 
CALL 

X08JTB 
XALITB 
XREMTB 
XFLTTB 

CALL 
CLR 

$XPSI 
aCXOPT 

.IFT 

;  DF  R$$11M 

MOV 
BEQ 
CALL 
BCS 

.PCB.RO 

90$ 

$XPAR          ; 

101$ 

.IFF 

;  DF  R$$11M 

MOV 
BEO 
CALL 

.REG.RO 

90$ 

$UL0CK 

.IFT 

.IF  DF 
MOVB 
BEQ 
CALL 
BR 
85$: 

.ENDC 

;  DF  R$$11M 

.IF  DF   M$$MGE 

R$$MPL 

aNCPU,R4 

85$ 

XUMR 

90$          ; 

MOV 

BEO 

SWSTK$ 

MOV 

CALL 

MOV 

CALLR 

.UMRBA.RO       ; 

90$ 

90$ 

R0,R2 

aDEUMR 

*M.LG1H,R1 

$DECcX 

.ENDC 

.IFTF 

;  DF  R$$11M 

GET  THE  NTL  HOME  BLOCK  ADDRESS 
IF  EQ,  THERE  IS  NONE 
GET  THE  CETAB  ALLOCATION  ADDRESS 
GET  THE  CETAB  ALLOCATION  LENGTH 


IS  THERE  A  CETAB  ALLOCATION  ? 

IF  EQ,  NO 

DE-ALLOCATE  THE  CEVAB  ALLOCATION 


DE-ALLOCATE  ALL  OBJECTS 

DE-ALLOCATE  ALL  ALIASES 

DE-ALLOCATE  ALL  REMOTES 

DE-AlLOCATE  all  FILTER  CONTROL  BLOCKS 

DE-ALlOCATE  PS!  DATA  BASES  ""ROM  EXTENDED  POOL 
NO  COMM  EXEC  OPTIONS  SET  NOW 


GET  NTPOOL  PCB  ADDRESS 
IF  NONE,  EXIT 
RELEASE  PARTITION 
IF  CS,  VERY  BAD 


GET  REGION  GfD  ADDRESS 
BR  IF  NONE 
UNLOCK  THE  REGION 


GET  THE  NUMBER  OF  PROCESSORS 

IF  EQ,  NOT  A  MULTIPROCESSOR  SYSTEM 

RELEASE  THE  UMR'S 

AND  LEAVE 


GET  UMR  BLOCK  ADDRESS 

IF  NONE,  EXIT 
ENTER  KERNEL  MODE 
COPY  UMR  BLOCK  ADDRESS 
DE-ASSIGN  UMR'S 
GET  UMR  BLOCK  LENGTH 
DE-ALLOCATE  UMR  BLOCK 


NTLUNL 
XLT16  - 

1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
177S 
178C 
1781 


iiMi  nAn  RmiT inf  • 
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NTLUNL  - 
XLT16  - 

1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
177A 
1775 
1776 
1777 
1778 
1779 
1780 
1781 


B  4 

•  NIL  UNLOAD  ROUTINES    MACRO  V05.03b  Saturday  29-Jun-85  00:3^ 
DE-ALLOCATE  A  16  BIT  ALLOCATION  LINE  TABLE 


OCA  136 
00AH2 


004146 
004152 
004156 
004160 

004164 


004164 


0127C0 
012701 
012022 


000014' 
000040 


290$: 
300$: 


SWSTK$ 

CALL 
.IFF 
MOV 
.ENDC 

MOV 

MOV 

MOV 
SOB 


300$ 

.ENDC 

$MAPX 

US]AS,R2 


#BL0CIC,R0 
*32.,R1 
(R0)+,(R2)t 
R1,290$ 


.IF  DF  R$i11D  I 
CALL    a(SP)t 
.ENDC 

RETURN 


I$$AS 


Page  28-2 

:  ENTER  KERNEL  MODE 
:  MAP  TO  THE  UNLOAD  BLOCK 
GET  UNLOAD  BLOCK  ADDRESS 

REWRITE  UNLOAD  BLOCK  FROM  LOCAL  COPy 


RESTORE  PREVIOUS  MAPPING 

DONE  (finally;) 
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00:34 


NTLUNL     CREATED  BY  MACRO  OM  29-JUN-85  AT  00:35 
SYMBOL  CROSS  REFEREMCE 


B  5 

PAGE  3 

CREf   OA.OG 


SYMBOL   VALUE 


EV$RSC 
EV'.fiUL 
■"..tSNA 

EVSSPE 

EVSXCE 

EV$XDI 

EViXGW 

EVIXMX 

EVSXRS 

EVSXSC 

EV$X2S 

FV.CCB 

EV.CIR 

EV.LCB 

EV.LIN 

FV.MAP 

EV.MOO 

EV.NOD 

EV.PRT 

EXRON 

EtDATA 

ESEVTS 

ElLCf: 

E$LIN 

E$MOD 

ESNBR 

ESNBS 

ESNCR 

ESNCS 

ESNIC 

ESNLE^J 

E$MLLA 

ESNLNK 

E$NMl 

E$NMR 

ESNMS 

ESNNOD 

ESNOD 

ESNRT 

FSNRTP 

ESNSEG 

E$NTIM 

EtNUSE 

ESPORT 

E$PRM 

£$STAT 

E$STR^ 

ESTCB 

E.CTL 

E.DATA 

E.EVT 


=  000501 
=  000A05 
=  035000 
=  000516 
=  035001 
=  03A110 
=  013600 
=  034111 
=  0005U 
=  000512 
=  000513 
=  013500 
=  000001 
=  000020 
-  000100 
=  OOOOOA 
=  000002 
=  000040 
=  COOOIO 
=  O^u^'^O 

C0002L 
000000 
000016 
000000 
000012 
0000  u 
000020 
G0C054 
000036 
000044 
000050 
000012 
000000 
000040 
000024 
000030 
000002 
000010 
000042 
000005 
000010 
000046 
000004 
000014 
000002 
000006 
000006 
000004 
000020 
000046 
000002 


REFEREMCES 

#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 

8-286 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-56 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-66 
#5-66 
#5-66 
#5-64 
#5-66 
#5-66 
#5-66 
#5-66 


^^TL11M 


112 
11? 
114 
115 
116 
117 
118 
119 
120 


10-380 


8-295 
8-282 


♦8-284 


NTLUNl 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:35 
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C     5 


NTLllM 
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112 
11? 
IIA 

lis 

•■16 
117 
118 
119 
120 


EXECUTIVE  REFERENCES 

.GL08L  $AL0CB,$AL0C1 ,$CRAVL,$DEACB,$DEAC1 ,JScVHD,$EXSIZ,$FMAS<,$PARHD 

GLOBL  $NS0,$NSl,$NS2,$NS3,$NS'i,$NS5,$NS6,$NS7,$TKTCB,$CLKHD,.TT0 

.GL06L  P.BLKS,P.LGTH,P.REL,P.SUSZ,P. jIZE 

.HF  DF  M$$riGE,  .GLOBL  $A3UMR,$[)EUMR,P.ATT,P.PR0 


0000)1 


.END 


C     6 
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POLAL  -  NETWORK  POOL  ALLOCAriON  MACRO  V05.03b  Saturday  29-Jun-85  00:36 
SXAlOC  -  ALLOCATE  ("ORE  BUFFER  IN  EXTENDED  POOL 


H5 

146 

i;7 

1A8 

1A9 

150 

151  OOOOAO 

152 

153  0000A2 

15A  OOOOAA 

155  000050 

156  000052 

157  000056 

158  000060 

159  000062 

160  000066 

161  000072 

162  00007A 

163  000076 
16A 

165  U00100 

166  000102 

167  00010A 
i68  000106 

169  000112 

170  OC011A 
-71  000116 

172  000120 

173  00012'. 
17A  000132 
175 

176 


000A27 

010046 

012600 
C26001 
103763 
001407 
160160 
016046 
011200 
062600 
000410 

011246 
011046 
010246 

012600 
012610 
012600 


15$: 


000002 


000002 
000002 


20$: 


016777  177652  OOOOOOG 


30$: 


MOV 
MOV 
MOV 

.ENDC 

BR 

MOV 

CALL 

MOV 

CMP 

BLO 

BEQ 

sue 

MOV 
MOV 
ADD 
BR 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

RESMAP 

MOV 

RETURN 

.ENDC 


R4,R0 

(SP)+,R4 

(SP)+,R3 

;  DF  R$$11M 

30$ 

R0,-(SP) 

$CEACX 

(SP)+,RO 

2(R0),R1 

10$ 

20$ 

R1,2(R0) 

2(R0),-(SP) 

{R2),R0 

(SP)+,RO 

30}. 

(fi2),-(SP) 

(RO;,-(SP) 

R2,-(SP) 

$CEACX 

(SP)+,RO 

CSP)*,(RO) 

(SP)+,RO 

XAVLL.SXAVL 
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GET  ADDRESS  OF  BLOCK  ALLOCATED 
RESTORE 
REGISTERS 


AND  RETURN 

SET  UP  ADDRESS  FOR  $CEACX 
MAP  EXTENDED  BLOCK 
RETRIEVE  MAPPED  ADDRESS 
BLOCK  BIG  ENOUGH? 
IF  LO  NO 

IF  EQ  BLOCK  IS  EXACT  SIZE 
CALCULATE  SIZE  REMAINING 
SAVE  SIZE  OF  REMAINING  BLOCK 
RETRIEVE  UNMAPPED  BLOCK  ADDRESS 
CALC  ADDRESS  OF  BLOCK  RETURNED 
AND  RETURN 

SAVE  UNMAPPED  BLOCK  ADDRESS 

SAVE  NEXT  BLOCK  ADDRESS 

SET  UP  FOR  $CEACX 

MAP  ADDRESS  OF  BLOCK 

GET  MAPPED  ADDRESS 

UNLINK  BLOCK  FROM  LIST 

AND  RETURN  UNMAPPED  ADDRESS  TO  USER 

RESTORE  APR  5  MAPPING 

UPDATE  CEX  COPY  OF  LI. ^HEAD 


PRALL  - 
MACRO  D! 

56 

57 
58 
59 
60 
61 
62 


BOLAL  -  NETWORK  POOL  ALLOCATION  MACRO  V05.03b  Saturday  29-Jun-85  00:56  Page  8 


PRALL 


PRALl    -    NTL   PROCESS    ALLOCATION 
MACRO   DEFINITIONS 

56 
57 
58 
59 
60 
61 
6? 


p   0 
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.S8TTL 

**  * 
MACRO  CALLS 

*** 

.IF  OF 
.MCALL 
.ENDC 


MACRO  DFFINITIONS 


R$$nD:iS$AS 

.;nho,.enbo 


PR  10  - 
LOCAL   D 

192 
193 
19A 


C     8 
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PR  10  - 


PRIO  -  REIVD  PROCESS  INTO  CORE 
LOCAL  DATA 

192  000000 

193 

194  000000 


B  9 
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DSKBUF:  .BLKU   1 
.PSECr 


PRIO  - 
PR.  SUB 

72 
73 
73 
73 
73 
73 
73 
73 
73 
73 
73 
7', 


C  9 

PRIO  -  READ  PROCESS  INTO  CORE   MACRO  VO5.03b  Saturday  29-Jun-85  00:36  Page  8 


PRIO 


PRIO  -  READ  PROCESS  INTO  CORE 
PR. SUB  -  CREATE  SUB-PARTITION 

729 

730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
7'.0 


B  10 
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PROAL 
$DEAC 


101$: 

102$: 
105$: 


MOV 
MOV 
CLC 

RETURN 

TOV 

BR 

MOV 

SEC 

RETURN 

.ENDC 


(SP)t,RA 
{SP)+,R3 


#ERR36, ERROR 
105$ 
*ERR38, ERROR 


RESTORE  REGISTERS 
INDICATE  SUCCESS 

'AILED  TO  CREATE  PROCESS  REGION 

FAILED  TO  MAP  10  PROCESS  REGION 
INDICATE  FAILURE 


C  10 
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PROAL 
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PROAL  -  PROCESS  ALLOCATION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85  00:37  Page  7 
$DEAC2  -  DEALLOCATE  FRO.^  END  OF  PARTITION 


127 

128 

129 

130 

131 

132 

133 

13A 

135 

136 

137 

138 

139 

HO 

141 

142 

143 

144 

145  000075 

146  000076 

061301 

147  000100 

042301 

148  000102 

001452 

149  000104 

010246 

150  0u0106 

010302 

151  oc:: ,0 

011203 

152  000112 

001405 

153  000114 

042703 

160000 

154  000120 

051603 

155  000122 

020003 

156  000124 

103370 

157  000126 

010310 

158  000130 

042710 

160000 

15C-- 

160 

161 

162  000134 

052710 

140000 

163 

164 

165 

166 

167 

168 

169 

170  000140 

010046 

17!   000142 

C60116 

172  000144 

016646 

000002 

173  000^50 

052716 

017777 

174  000154 

022616 

175  000156 

103427 

176  000160 

020326 

177  000162 

103423 

178  000164 

001002 

179  000166 

012310 

180  000170 

061301 

181   000172 

010246 

•'82  000174 

010012 

183  000176 

042712 

160000 

.SBTTL  $DEAC2  -  DEALLOCATE  FROM  END  OF  PARTITION 

'«»*  -  $DEAC2  -  DEALLOCATE  POOL  SPACE  AT  END  OF  PROCESS  PARTITION 

INPUTS: 

RO  =  ADDRESS  OF  THE  CORE  BUFFER  TO  BE  DEALLOCATED. 

Rl  =  SIZE  OF  THE  CORE  BUFFER  TO  DEALLOCATE  IN  BrTES. 

R2  =  DISPLACEMENT  ADDRESS  (100000  OR  120000  FOR  RSX11M/M+). 

(40000  FOR  IAS) 
R3  =  ADDRESS  OF  CORE  ALLOCATION  LISTHEAD-2. 


OUTPUTS: 


$DEAC2: 


20$: 


30$: 


40$: 


THE  CORE  BLOCK  IS  MERGED  INTO  THE  FREE  CORE  CHAIN  BY  CORE 
ADDRESS  AND  iS  AGLOMERATED  IF  NECESSARY  WITH  ADJACENT  BLOCKS. 


ADD 

BIC 

BEQ 

MOV 

MOV 

MOV 

BFQ 

BIC 

BIS 

CMP 

BHiS 

MOV 

BIC 

.IF  DF 

BIS 

.IFF 

BIS 

.ENDC 

MOV 
ADD 
MOV 
BIS 
CM= 
BLO 
CMP 
BLO 
BNE 
MOV 
ADD 
MOV 
MOV 
BIC 


(R3),R1 

(fi3)+,Ri 

60$ 

R2,-(SP) 

R3,R2 

(R2),R3 

30$ 

#160000, R3 

(SP),R3 

R0,R3 

20$ 

R3,(R0) 

#160000, (RO) 

R$$11M 

#140000, (RO) 

;  DF  R$$11M 

#40000, (RO) 


RO,-(SP) 

R1,(SP) 

2(SP),-(SP) 

#17777, (SP) 

(SP)t,(SP) 

80$ 

R3,(SP)+ 

70$ 

40$ 

(R3)+,(R0) 

(R3),R1 

R2,-(SF' 

R0,(fi2) 

#160000, (R2) 


ROUND  TO  NEXT  BOUNDARY 

CLEAR  EXCESS 

IF  EQ  NO  BLOCK  TO  RELEASE 

SAVE  DISPLACEMENT 

SAVE  ADDRESS  OF  CURRENT  BLOCK 

GET  ADDRESS  OF  NEXT  BLOCK 

IF  EQ  END  OF  CHAIN 

CLEAR  CURRENT  MAPPING  REG. 

USE  OUR  MAPPING  REG. 

BLOCK  GO  HERE? 

IF  HIS  NO 

ASSUME  NO  AGLOMERATION 

OTHER  PEOPLE  USE  APR6  MAPPING 


;USE  APR  2  MAPPING 

CALCULATE  ADDRESS  OF  NEW  BLOCK 

CALCULATE  END  OF  APR  ADDRESSING 

BIGGER  THAN  APR  ADDRESSING  RANGE? 
.IF  LO,  YES 

EQUAL  TO  NEXT  IN  CHAIN? 
;IF  LO,  DEALLOCATION  OVERLAPS 
IF  NE  NO 

MOVE  LINK  WORD  TO  BLOCK  RELEASED 
MERGE  TWO  BLOCKS 
SAVE  ADDRESS  OF  PREVIOUS  BLOCK 
ASSUME  NO  AGLOMERATION 
OTHER  PEOPLE  USE  APR6  MAPPING 
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225 
22A 

t 

.SBTTL  REP5A  -  REPLACE  F 

ARTITiON  NAME 

225 

REP5A 

-  REPLACE  PARTITION  NAME 

226 
227 

INPUTS: 

228 

$PNAME=PARTiT!ON  NAME 

229 

R3=F0RMAT  STRING  ADDRESS 

230 

R4=ERR0R  MESSAGE  BUFFER  ADDRESS 

231 
232 

OUTPUTS: 

?''3 

R0,R1,R2=DESTR0YED 

234 

R3,R4=UPDATED 

235 
236 

000154 

?EP5A: 

CALL    SREP.P 

REPLACE  PROCESS  NAME 

237 

000160 

112314 

0$: 

MOVB    (R3)t,(R4) 

LOOK  FOR  SECOND  ASTERISK 

238 

000162 

122724 

000052 

CMPB    #'»,(R4)+ 

239 

000166 

001374 

BNE     10$ 

240 

000170 

005304 

DEC     R4 

SKIP  the'asterisk 

241 

000172 

010400 

MOV     R4,R0 

COPY  BUFFER  ADDRESS 

242 

000174 

016701 

OOOOOOG 

MOV     $PNAME,R1 

GET  FIRST  HALF  OF  NAME 

243 

000200 

CALL    $C5TA 

CONVERT  TO  ASCII 

244 

000204 

016701 

000002G 

MOV     $PNAMEt2,R1 

GET  SECOND  HALF  OF  NAME 

245 

000210 

001402 

BEQ     20$ 

IF  ZERO,  DON'T  BOTHER  CONVERTING 

246 

000212 

CALL    $C5TA 

CONVERT  TO  ASCII 

247 

000216 

122740 

000040 

20$: 

CMPB    #'  ,-(R0) 

SKIP  TRAILING  BLANKS 

248 

000222 

001775 

BEQ     20$ 

249 

000224 

005200 

INC     RO 

250 

000226 

010004 

MOV     R0,R4 

SET  NEw'bUFFER  ADDRESS 

251 

000230 

RETURN 

PROXPT 
SAD  J 

194 
195 
196 
197 
19? 
199 
20C 
201 
202 
20' 
204 
205 
206 
207 
208 
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PROXPT 
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19^  000A02 

195  OOO'iO^ 

196  000^1.' 

197  000^2fc 

198  000^32 

199  00043^ 

200  0004A2 
201 

202  OOOAAA 

203  000AA6 
20A  OOOA52 

205  000A5A 

206  000A60 

207  00046A 
208 


062701  000077 
0A2701  000077 


i0530A 


010532 

010062  00007A 

000723 

005C62  000072 

005062  00007A 


ADD 

*77, R1 

BK 

#77, R1 

ASR$ 

6,R1 

CALL 

$ALN18 

BCC 

50$ 

EMSG$ 

9D 

RETURN 

501,: 

MOV 

R5,R2 

MOV 

R0,N$ADJ2{R2) 

RR 

20$ 

60$: 

CLR 

N$ADJ1(R2) 

CLR 

N$ADJ2(R2) 

70$: 

RETURN 

ROUND  UP  TO  NEXT  BLOCK 

CONVERT  TO  BLOCKS 
ALLOCATE  SECOND  ADJACENCY 
IF  SUCCESS  -  BRANCH 
ELSE  -  PRINT  ERROR 


RESTORE  XPT  DDB  ADDRESS 

STORE  SECOND  ADJ.  BIAS 

CONTINUE 

iNIT  NI  CACHE  SIZE 

INIT  NI  CACHE  ADDRESS 


SYMBL  - 


152 
153 
15A 
155 
I  56 
157 
158 
159 
160 
161 
162 
163 
16A 
165 
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SYMBL 


SVMBL 
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152 

153  000162 

lb%: 

CALL          $CLDEQ 

15A  000166 

012636 

50$: 

MOV            (SP)+,a(SP)t 

155   000170 

166666 

000006 

OOOOOA 

sue        6(SP),';(SP) 

i56  000176 

006266 

000002 

ASR           2(SP) 

157  000202 

RETURN 

158 
159 
160 

161 

162  00020^ 

;    ERROR 

CONDITIONS 

005266 

000006 

101$: 

INC           6(SP) 

163  OOOcIO 

000^66 

BR             50$ 

16^   000212 

012766 

000005 

000006 

111$: 

MOV           *<<E      'EN*2> 

165   C00220 

000762 

BR             50$ 

CLOSE    SYMBOL    TABLE    HLE 
RESTORE   DEFAULT   EXTENSION 
CALCULATE   NUMBER   OF    UNDEFINEDS 
SET    C-BIT   APPROPRIATELY 


NO  BLOCKS    TO   CHECK 


OPEN   FAILURE 


TMPACT 


18; 
18: 
18' 
18' 
18< 
18: 
18i 
18= 
19( 
19' 
19; 

19: 

19. 
19' 
19( 
19 
19. 


c  u 
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TMPACT 
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182 
183 
18^ 
185 
186 
187 
188 
189 
190 
191 
192 
193 
19-; 
195 
196 
197 
198 


000176 
000176 
000202 
000206 
000210 
0002  K 
000220 
000226 


$CSR  -  ".CSR"  ACTION  ROUTINE 

INPUTS: 

$DIFF=VALUE  TO  BE  ADDED  TO  CSR  ADDRESS 

OUTPUTS: 

R2=DESTR0YED 


$CSR: 


103A07 
112722 
116712 
062767 


OOOOOOG 
OOOOOOG 
000002  OOOOOOG 


10$: 


CALL 

CALL 

BCS 

MOVE 

MOVB 

ADD 

RETURN 


SVFDDM 

$RQ2 

10$ 

*.CSR,(R2)< 

$DIFF,CR2) 

#2,$SIZE 


MAKE  SURE  IT'S  A  DDM 

REQUEST  BINARY  FILE 

IF  CS,  NO  ACCESS 

STORE  FUNCTION  CODE 

STORE  CSR  MODIFICATION  VALUE 

ADJUST  DATA  BASE  SIZE 


C  15 
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5H 

+ 

515 

$NOD 

-  ".NODE"  ACTION  ROUTINE 

516 

$PROV 

-  ".PRTOV"  ACTION  ROUTINE 

517 

518 

INPUT 

S:: 

y-) 

$NOD  - 

NONE 

520 

$PROV  - 

$VALUE  =  PROTOCOL 

OVERHEAD  SIZE 

521 
522 

OUTPUTS:: 

523 

R2  -  DESTROYED 

52A 

- 

525 

526  001 06A 

WOD :  : 

CALL 

$RQ1 

GET  BUUFER  ACCESS 

527  001070 

103405 

BCS 

101 

If  NO  ACCESS  -  BRANCH 

528  001072 

112712 

OOOOOOG 

Move 

#.N0DE,(R2) 

STORE  FUNCTION  CODE 

529  001076 

062767 

000002  OOOOOOG 

ADD 

#2,$SIZE 

ADJUST  DATA  BASE  SIZE 

530  00110A 

10$: 

RETURN 

531 

532  001106 

tPROV: 

CALL 

$RQ2 

GET  BUFFER  ACCESS 

J  J  V-          \J  \J     t      P  \y  v,/ 

533  001112 

103A17 

BCS 

10$ 

IF  NO  ACCESS  -  BRANCH 

534  00111A 

005767 

OOOOOOG 

TST 

$VALUE 

PARAMETER  MUST  BE  NON-ZERO 

535  001120 

001A13 

BEQ 

5$ 

IF  ILLEGAL  -  BRANCH 

536  001122 

027767 

OOOOOOG  OOOOOOG 

CMP 

aMAXDV,$VALUE 

CHECK  AGAIMST  MAX  SIZE  LIMIT 

537  001130 

103A10 

BLO 

10$ 

IF  ILLEGAL  -  BRANCH 

538  001132 

112722 

OOOOOOG 

Move 

#. PRTOV, (R2)t 

STORE  FUNCTION  CODE 

539  001136 

116712 

OOOOOOG 

MOVB 

$VALUE,{R2) 

STORE  VALUE 

5A0  0011A2 

005267 

OOOOOOG 

INC 

$SIZE 

ADJUST  DATA  BASE  SIZE 

5A1  001U6 

5A2 

5^,3  001150 

RETURN 

000261 

5$: 

SEC 

5AA  001152 

10$: 

RETURN 

5A5 
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NITLUNL  - 

Wl   UNLOAD  ROUTINES 

LOCAL  DATA 

184 

ooouo 

OOOOOOG 

185 

000U2 

OOOOOOG 

186 

000U4 

OOOOOOG 

187 

188 

189 

190 

191 

000U6 

192 

000150 

193 

194 

195 

196 

197 

000001 

198 

199 

200 

201 

202 

000152 

000000 

203 

20A 

000000 

C  1 
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.WORD 
.WORD 
.WORD 

NS5 
NS6 
NS7 

■  LOCAL 

COPV  OF 

ROOT 

DATA 

NEEDED 

'.NAME: 

.NTLPT: 

.BLKW 
.6LKW 

■ 

;  32.  WORD  BLOCK  ALLOCATION  SIZE 

BLKSIZ= 

COPY   OF    $NAME 

COPY   OF    SNTLPT   FROM   CETA8 


PDV   ADDRESS    FOR   PARTITION   LINE    TABLE    DE-ALLOCATOR 

.PDV:       .WORD        0  ;    IF    ZERO,    DISCARD    INSTEAD   OF    DE-ALLCCATE 

.PSECT 


lui  nAn  oniiT  iKf- 


0     1 
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666 
667 
668 
669 
670 
671 
672 
673 
67^ 
675 
676 
677 
678 

679  00U1? 

680  OOHV 

681  001M6 

682  O0H20 
683 

68A   00U24 

685 

686 

687 

688 

689 

690 

691 

692 

693 

69A   00U24 

695   001430 

o96  00K32 

697  00K34 

698  001 AAO 

699  001444 

700  001450 

701  001452 

702  001456 

703  001462 

704  001466 

705  001470 

706  001472 

707  001474 

708  001500 
7C9 

710  001502 

711 

712 

713 

714 

7i6 
717 
718 
719 
720 
721 
722 


.SBTTL  VEfT  -  RESET  INTERRUPT  VECTOR(S) 

VECT  -  RESET  INTERRUPT  VECTOR(S) 
INPUTS: 


R5  -  SLT  ADDRESS 


OUTPUTS: 


NTLUNL 
SCCEX  - 

133S 

133' 
134- 
1341 
154; 
134: 
134' 
134' 
134f 
134- 
134! 


016504 
001002 
000167 


000016 
000230 


116400 
006300 
006300 
016701 
005067 
016703 
001002 
OC  67 
042703 
062703 
005723 
012302 
011303 
042703 
060203 


000001 


OOOOOOG 
000006' 
000012' 

000200 
177700 
000014' 


000C03 


VECT: 


1$: 


2$: 


3$: 


4$: 


MOV 
BNE 
JMP 


.IF  DF 

MOV 

TST8 

BEQ 

MOV 

D1R$ 


L.<ReACR5),R4 

1$ 

60$ 


R$$MPL 
R4,KRBA 
aNCPU 
2$ 


GET  KRe  ADDRESS 
IF  NE,  GOT  IT 
ELSE,  LEAVE 


SAVE  THE  KRB  ADDRESS 

IS  THIS  A  hULTI-PROCESSOR  SYSTEM 

IF  EQ,  NO 


K.L'°"1(R4),SETAF+S.AFAF  ;  GET  UNIBUS  RUN  MASK  FOR  DEVICE 


#SEi,\F 


.ENDC   ;  DF  R$$MPL 


MOVB 

ASL 

ASL 

MOV 

CLR 

MOV 

BNE 

JMP 

BIC 

ADD 

TST 

MOV 

MOV 

BIC 

ADD 

SWSTKS 

.IF  DF 

MOV 

MOV 

ADD 

BIT 

B'Q 

MUV 

M0«3 

BEO 

ASL 


K.VCT(R4),R0 

RO 

RO 

$MXVCT,R1 

IC8SZ 

UBA,R3 

4$ 

101$ 

#"C<77>,R3 

#8L0CK,R3 

(R3)  + 

(R3H,R2 

(R3),R3 

#3,R^ 

R2,R3 

50$ 

R$$MPL 

$BIAS,BIAS 

FMASK.FMKTMP 

*2,FMKTMP 

*F2.DAS,aFMKTMP 

10$ 

SKSAH5,-(SP) 

o)NCPU,R5 

6$ 

R5 


SET   AFFINITY    TO   DEVICE'S   BUS 


GET  VECTOR  ADDRESS 

CONVERT  TO  REAL  VECTOR  ADDRESS 

GET  HIGHEST  VECTOR  ADDRESS  IN  SYSTEM 

CLEAR  SIZE  OF  KB  BLOCK 

GET  UNLOAD  BLOCK  ADDRESS 

IF  NE,  WE  FOUND  IT 

ELSE,  LINE  TABLE  NOT  FOUNDl 

SAVE  LOW  6  BITS 

GIVING  ADDRESS  WITHIN  LOCAL  BLOCK 

SKIP  PDV  INDEX 

GET  LINE  TABLE  STARTING  ADDRESS 

AND  LENGTH 

DISCARD  STATUS  BITS 

GIVING  END  OF  LINE  TABLE  ADDRESS 

;  ENTER  KERNEL  MODE 


GET  LOCAL  COPY  OF  PROCESS  BIAS 
GET  SFMASK  ADDRESS 
GET  $FMSK+2  ADDRESS 
;  :   DATA  SPACE  ENABLED  ? 
IF  EQ,  NO 

SAVF  CURRENT  MAPPING 
GET  THE  NUMBER  OF  PROlESSORS 
It  ECi.  NOT  A  MULTIPROCESSOR  SYSTEM 
CON'/ERT  TO  A  WORD  INDEX 


NTI  lINI      -    NTI     IINIOAD    ROUTINES 
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NlrUNL  -  MTL  UNLOAD  R0UTINE3 
tCCEX  -  CLEAR  CEX 

1338  003040  00U261 

1339  0030A2 
13A0 
13A1 
13A2 
15A3 
i34A 
13A5 

13A6  0030A4 
13A7 
13A8 
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90S: 

SEC 

RETURN 

.  I F  T 

DF 

R$$11M 

;  ERROR 

CONDITION 

iOU: 

CRASH 

.ENDl 

DF 

R$$11M 

RETURN  C-BIT  SET 


SOMEBODY  UNLINKED  THE  NTPOOL  PCB! 


WTI     IIWI  HAD    RnilT  IMF  ■ 
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00^166  022700  120000 
004172  1010AO 


1783 

178A 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

179A 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803  004 '66 

1804 

1805 

1306 

•■807 

1808 

1809 

1810 

1C11 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

18T^ 

1823 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1838 
1^39 


.SBTTL   .DEA16  -  END  Of  PARTITION  DE-ALLOCATION  ROUTINE 

.DEA16  -  END  OF  PARTITION  DE-ALLOCATION  ROUTINE 

THIS  ROUTINE  IS  CALLED  IN  PLACE  OF  "$DEA16",  TO  ALLOW  BOTH  NORMAL  AND 
PARTITION  ALLOCATIONS  TO  BE  RELEASED.  IF  THE  ALLOCATION  CAME  FROM  THE 
PROCESS'  PARTITION  SPACE,  'HE  LOCATION  "..PDV"  WILL  CONTAIN  THE  PDV  ADDRESS 
IF  THE  ALLOCATION  IS  TO  BE  RELEASED  OR  ZERO  If  THE  ALLOCATION  IS  TO  BE 
DISCARDED  (I.E.,  THE  PROCESS  IS  ABOUT  TO  BE  RELEASED  FROM  ITS  PARTITION  SO 
rURTHER  HOUSEKEEPING  Of  THE  FREE  SPACE  IS  NOT  NEEDED). 

INPUTS: 

RO  =  ALLOCATION  ADDREjS 
R1  =  ALLOCATION  SIZE 

OUTPUTS: 

R0,R1,R2  =  DESTROYED 
R3,R4,R5  =  SAVED 

'.DEA16: 


004174  016702  000152' 
004200  001437 


004202 

C04206     016204     OOOOOOG 


00-212     010003 
004214     010'05 


C042ifc     C1i>400     OOOOOOG 


.If  Df 

M$$MGE 

.IF  Df  R$$11M 

CMP 
BHI 

*120000,R0 
20$ 

.IFF 

;  DF  RSSIIM 

CMP 
BHIS 

RO, #100000 
20$ 

.IfTf 

;  DF  R$$11M 

MOV 
BEQ 

..PDV,R2 
30$ 

.IfT 

;  DF  RSIVM 

SWSTKS 
MOV 

30$ 
Z.PC8(R2),R4 

.IFF 

;  DF  R$$11M 

JSR 
MOV 

R5,$SAVRG 
Z.GCD(R2),R4 

.IfTF 

;  Df  R$$11M 

MOV 
MOV 

R0,R3 
Rl,fi5 

.IFT 

;  DF  R$$:iM 

MOV 

P.REL(R4>,R0 

IS  ALLOCATION  FROM  PARTITION  SPACE 
NO  . .  DE-ALLOCATE  NORMALLY 


IS  ALLOCATION  FROM  PARTITION  SPACE? 
BR  If  NO  -  DEALLOCATE  NORMALLY 


GET  PDV  ADDRESS 

If  ZERO,  DliCARD  THE  ALLOCATION 


ENTER  KERNEL  MODE 
GET  PCB  ADDRESS 


SAVE  R3-R5 

GET  GCD  ADDRESS 


COPY  ALLOCATION  ADDRESS 
AND  SIZE 


GET  PROCFSS  BIAS 
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NTLUNL     CREATED  BY  MACRO  ON  29-JUM-85  AT  00:35 

SYMBOL  CROSS  REFERENCE 

SYMBOL   VALUE  REFERENCES 


C  5 

PAGE  A 

CREF   0^.00 


E.LCN 

E.LEN 

E.LIN 

E.LNK 

E.MOt 

E.NO; 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TJME 

FC.I-Cf 

fe.:ex 

FF.ADD 

FF.CIR 

FF.CCN 

FF.FIL 

FF.HST 

Fr  .LIN 

FF.MOD 

FF.MON 

FF.MSK 

FF.PRT 

FF.QUL 

fF.RE*1 

FILHD 

FLT 

FLT15 

FL.PX1 

FL.PX2 

FMASK 

FM<TMP 

FNlADP 

FRSBCC 

FRSCCF 

FR$CD' 

FRSDAO 

FRSEXC 

FRSFRM 

FRSFTL 

FRSOPN 

FRSRFI 

FRSSBU 

FRSSHG 

fRSUBU 

FRSjpr 

FS.fRM 

f  .ADD 

F.CFV 

F.riP 

r.CLS 


0000A2 
000216 
00002A 
OOOOCO 
000036 
000034 
000021 
000040 
000026 
000044 
000022 
000004 
000030 

000020 
000040 

00000 ; 

U00002 
040000 
000010 
000100 
000004 
000077 
000200 
000370 
100000 

****** 

003352 
003352 


GX 


000002  R 

r  ****** 

~-  000007 

=  000001 

=  000002 

=  000011 

=  000000 

=  000010 

=  OC0005 

=  000004 

=  000006 

:  000012 

=  000003 

=  000013 

=  000014 

=  003000 

000016 

000050 

000024 

000002 


GX 

R 

R 
GX 
GX 
GX 

R 
GX 


#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 
12-488 
19-1070 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 
26-1537 

#27-1572 
U-600 
8-228 
11-453 
19-1070 

#7-135 
14-590 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 
'2-488 

*J-  a/ 

#5-67 
#5-67 
#5-67 


19-1115 
19-1241 
5-67 
5-67 


5-67 
5-67 


5-67 


#27-1571    28-1664 
11-439     11-448 

19-1241 


19-1115 


26-1547 


NTL11M  - 
Symbol  t 

AS.DEL= 

AS.EXT^ 

AS.RED- 

AS.WRT= 

A$$CHK= 

A$$CPS= 

At$PRI= 

A$tTRP= 

A. IOC 

A.LGTH= 

A.MPCT 

A.PCB 

A.PCBL 

A.PRI 

A.STAT 

A.TCB 

A.TCBL 

CMODE    = 

C$$CKP= 

CS$ORE= 

C$$RSH= 

DV.CCL= 

DV.COM= 

Dy.DlR= 

DV.EXT= 

DV.F11= 

DV.ISP= 

DV.MBC= 

DV.MNT= 

DV.MS()  = 

D\/.OSP  = 

0V.P5E= 

DV.REC= 

DV.SDI= 

DV.SQD- 

DV.Sl«IL  = 

DV.TTY= 

DV.UMD= 

0$$BUG= 

D$$!:<= 

D$$L11= 

D$$:NC= 

D$$YNM= 

O.DSP 

O.LNK 

D.MSK 

0 .  NAM 

D.PCB 

D.UCB 

O.UCBL 

D.UNIT 

D.VCAN-- 

D.VDEB= 

D.VINI-- 

O.VOUT= 

C.^FWF;: 

L$SX°R= 


[ 
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AS.DEL= 

AS.EXT= 

AS.RED^ 

A5.WRT= 

AS$CH<= 

A$SCPS= 

AS$PRI= 

A$ITRP= 

A. IOC 

A.LGTH= 

A.MPCT 

A. PCS 

A.PCBL 

A.PRI 

A.STAT 

A.TCB 

A.TCBL 

CMODE    = 

C$$CKP= 

C$$ORE= 

C$$RSh= 

OV.CCL= 

DV.COM= 

OV.DIR= 

DV.EXT= 

DV.ni  = 

OV.ISP= 

DV.MBC= 

DV.MNT= 

ulV.1SD  = 

DV.OSP= 

DV.FSE= 

DV.REC= 

DV.SDI= 

DV.SQD-^ 

DV.SWL= 

OV.TTY= 

DV.UMD; 

D$$BUG= 

D$$!S<= 

DI$L11= 

D$$:NC= 

D$SVNM= 

D.DSP 

D.LNK 

D.MSK 

O.NAM 

D.PCB 

O.UCB 

O.UCBL 

D.UMT 

O.VCAN-- 

D.VDEB= 

C.VIM- 

D.VOUT= 

c.i/Fwr  = 

E$$XCR  = 


000010 
OOOOOA 
000001 
000002 
000000 
000000 
000000 
000000 
000003 

oooou 

00001 1 
000012 
000000 
000002 
000010 
000004 
000006 
1AOO00 
000000 
000400 
177564 
000002 
020000 
000010 
OOOAOO 
040000 
002000 
000400 
1 00000 
C00100 
004000 
010000 
000001 
000020 
000040 
001000 
000004 
000200 
177514 
000000 
000001 
000000 

oocooo 

000012 
000000 
000014 
000004 
000034 
000002 
CO0C10 
000006 
000002 
177776 

ooocoo 

OOOC04 
000006 

oooooc 


FE.CAL= 
FE.CEX= 
FE.DRV= 
FE.DYM= 
FE.EXP= 
FE.EXT= 
FE.EXV= 
FE.FDT= 
FE.LSI= 
FE.MUP= 
FE.MXT= 
FE.NLG= 
FE.0FF= 
FE.PKT= 
FE.PLA= 
FE.X25= 
F$$LVl= 
F2.AC^J  = 
F2.AHR= 
F2.[)AS  = 
F2.DPR= 
F2.EVT^ 
F2.6GF= 
F2.IRR= 
F2.LJB= 
F2.MP  = 
F2.P0L= 
F2.RAS= 
F2.RBN= 
F2.SDW=: 
F2.STP= 
F2.SWP= 
F2.WND= 
F3.AST= 
F3.CLI= 
F3.CRA= 
F3.EIS= 
F3.NWK= 

F3.PMN=: 

F3.PR0= 
F3.RLK= 
F3.SHF= 
F3.STM= 
F3.TCM= 
^"3.UDS  = 
Fi.UAT= 
F3.XKR= 
F5.11S= 
G$$TPP= 
G$$TSS:. 

G$$ni<;  = 

G$$WRD= 
HF.riS= 
Hf.:iS= 
HF.FPP= 
HF.OB  = 
Hf .UBM- 


000040 

020000 

000010 

010000 

000200 

000001 

000004 

C02000 

000400 

000002 

040000 

100000 

001000 

000100 

000020 

004000 

000001 

C0C02O 

010000 

000001 

000400 

000010 

002000 

001000 

000002 

000004 

000100 

004000 

020000 

000040 

1 00000 

040000 

000200 

000200 

001000 

000001 

000004 

000002 

0040^0 

000040 

020000 

040000 

000010 

002000 

000020 

010000 

000100 

000400 

000000 

000000 

000000 

oocooo 

000200 
000002 
100000 
000004 
000001 


I$$RAR= 

1$$RDN= 

KDSARO= 

KDSDRO= 

KiNARO= 

<JNAR5= 

ls.'NAR6= 

K1NAR7= 

KISARO= 

KISAR5=^ 

K1SAR6^ 

KISAR7= 

KISDRO= 

KISDR6= 

KISDR7= 

K$$CNT= 

<$$CSR= 

K$$LDC= 

K$$TPS= 

LB$REV= 

LD$ACC= 

LD$CLS= 

LD$LP  = 

LD$REL= 

LD$RSV= 

LD$SUP= 

LSBASG 

LSBBLK 

LSBDAT 

LSBEXT 

LSBFLG 

L$BFL2 

L$BH6V 

L$8HRB 

LSBLDZ 

LSBLIB 

L$8LRL 

LSBLUN 

LSBMXV 

LSBMXZ 

LSBOFF 

LSBPAR 

LSBPRI 

LSBROB 

L$8R0L 

LSBSA 

LSBSEG 

LSBSGL 

LSBSYS 

LSBTSK 

L$BWND 

LSBXFR 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$rR= 

MPAR  = 


000000 

000000 

172360 

172320 

172340 

172352 

172354 

172356 

172340 

172352 

172354 

172356 

172300 

172314 

172316 

177546 

177546 

000000 

000074 

000400 

100000 

020000 

000000 

000004 

040000 

000010 

001000 

000360 

000032 

000352  G 

000030  G 

000774 

000012 

000356  G 

000016  G 

000040 

000776 

000362 

000014 

000020  G 

000022 

000004 

000346 

000364 

000366 

000010  G 

000026 

000554 

000025 

000000 

000024 

000350 

000000 

000000 

000001 

000000 

172100 


MPCSR  = 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$0VR= 

M.BFVH 

M.BFVL 

M.LGTH= 

M.LNK 

M.UMRA 

M.UMRN 

M.UMVH 

M.UMVl 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PIRQ  = 

PMODE  = 

PRO 

PR1 

PR4 

PR5 

PR6 

PR7   = 

PS 

PS.APR= 

PS.CHK= 

PS.CKP- 

PS.CKR= 

PS.COM= 

PS.DEL= 

PS. DRV = 

PS.FXD-- 

PS.LIO= 

PS.NSF= 

PS.0UT= 

PS.PER= 

PS.PiC= 

PS.SYS^ 

P$$P45= 

P$$WRD= 

P. ATT  = 

P.BLKS 

P. BUSY 

P. IOC 

P.LGTH:^ 

P. INK 

P.MAI^' 

P.NAM 

P .  OWN 


177746 
000124 
000000 
000000 
000000 
000000 
000000 
000011 
000012 
000014 
000000 
000002 
000004 
000010 
000006 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
177772 
030000 
000000 
C00040 
000200 
000240 
000300 
000340 
177776 
000007 
010000 
040000 
020000 
000200 
000010 
000020 
004000 
001000 
000400 
100000 
002000 
000100 
0C0040 
000000 
000000 

*  *  *  r  V  * 

000016 
000024 
000003 

»*•*** 

000000 
00001  ■' 
000004 
000026 


P.PRI 

P. PRO  = 

P.REL 

P. SIZE 

P.STAT 

P.  SUB 

P.SWSZ 

P.TCB 

P. WAIT 

Q$$OPT= 

RSLDAT 

RSLFLG 

RSLHGV 

RSLLDZ 

R$LMyV 

RSLi'IaZ 

RSLNAM 

RSLOFF 

R$LSA 

RSLSEG 

RSLSIZ 

RSLWND 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SISDRO= 

SPARE  = 

SP.EIP= 

SP.ENB= 

5P.L0G-- 

SRO   - 

SR3   ^ 

SWR 

S$$WRG= 

S$$YSZ= 

S.BMSK 

S.BMSV 

S.CON 


CSR 
S.CTM 
S.DMCS 
S.FRK 
S.ITM 
S.LHD 
S.PKl 
S.PRI 
S.RCNT 
S.ROFF 
S.STS 
^.VCT 
J.3EC  = 
S1.DPR; 
SI.DSr^ 
51.ESC= 
S1.IBF-= 
S1.IBY= 


000002 
****** 

000014 
000016 
000030 
000010 
000022 
000026 
000020 
000010 
000026 
000024 
000006 
000012 
000010 
000014 
000000 
000016 
000004 
000022 
000034 
000020 
000000 
000001 
000000 
000000 
172200 
000010 
000001 
000002 
000004 
177572 
172516 
177570 
000000 
007600 
177776 
177774 
000010 
000012 
000006 
000020 
000016 
000007 
000000 
000014 
000004 
177772 
177773 
000011 
000005 
001000 
000400 
004000 
OOO0C2 
002000 
000200 
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POlAL  -  METi^ORK  POOL  ALLOCATION 
SXDEAC  -  DEALLOCATE  CORE  BUFFER 

178 
179 
180 
181 
;82 
183 
ISt. 
185 
186 
18^ 
188 
189 
190 
191 
192 
193 
19A 
195 
196 
197 
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:m  extended  pool 

.s8ttl  $xdeac  -  deallocate  core  buffer  in  extended  pool 

*«-$xdeac-deallolate  core  buffer  in  extended  pool 

^his  routine  is  called  to  deallocate  a  core  buffer  in  extended  pool, 
the  block  is  inserted  into  the  free  block  chain  bv  core  address.  if 
an  adjacent  block  is  currently  free,  then  the  two  blocks  are  merged 
and  inserted  in  the  free  block  chain. 


199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

21  r 

216 

217 

2^8 

219 

220 

221 

222 

223 

22^ 

225 

226 

22-' 

228 

2.9 

230 

231 

232 

253 

234 


INPUTS: 


RC=ADDRESS  OF  THE  CORE  BUFFER  TO  BE  DEALLOCATED. 
R1=:SIZE  OF  THE  CORE  BUFFER  TO  DEALLOCATE  IN  BVTES. 

OUTPUTS: 

THE  CORE  BLOCK  IS  MERGED  INTO  THE  FREE  CORE  CHAIN  BY  CORE 
ADDRESS  AND  IS  MERGED  IF  NECESSARY  WITH  ADJACENT  BLOCKS. 

REGISTERS: 

R2  MODIFIED 


000134 
000134 


000136  032700  000001 
000142  001003 


000144 

000150  000523 


$XDEAC: 


SAVRG   <R3> 
.IF  NDF  M$$MGE 


000152 

000156  0'0446 


5$: 


CALL 
BR 

$DEACB 
110$ 

.IFF 

BIT 
BNE 

*1,R0 
5$ 

.IF  DF  R$$11M 

CALL   aoEAce 

BR      110$ 

.IFF 

;  R$$11M 

MOV 
MOV 
MOV 

R4,-(SP) 

R1,R3 

R0,R1 

.INHO 

CALL 

.ENBO 

$$RLCB 

MOV 
BR 

;SC)+,R4 
11  Of 

.ENDC 

;  DF  R$$11M 

SAVMAP 
MOV 

R4,-(SP) 

SAVE  R3 


DEALLOCATE  TO  RSX  POOL  IN  UMAPPED  SYSTEMS 
AND  EXIT 


IS  THE  BLOCK  IN  EXTENDED  POOL  ? 
IF  NE,  YES 


ELSE,  DEALLCCATE  RSX  CORE  BLOCK 
AND  EXIT 


SAVE  R4 

COPY  SIZE  OF  BLOCK 
AND  IT'S  ADDRESS 

INHIBIT  'ASK  SWITCHING 
;  RELEASE  THE  BLOCK 
;  ENABLE  TASK  SWITCHING 

RESTORE  R4 
AND  EXIT 


SAVF  CURRENT  APR  5  MAPPING 
SAVE  SOME  REGISTERS 


D  7 


POLAL  -  NETWORK  POOL  ALLOCATION  MACRO  V05.03b  Saturday  29-Jun-85  CO-36  Page  8-1 


PRAIL  -  I^TL  PrtOC 
$ALP16  -  ALLOCAT 

64 
65 
66 
67 
68 
69 
70 
71 
72 

7? 

7A 

"5 

76 

77 

78 

79  000000 

80 

81 

82  000000 

83  000004 

84  000010 
85 
86 
87 

88  000016 

89  000020 

90  000024 

91  000030 

92  000032 

93  000036 

94  000042 
95 
96 
97 
98 
99 

100 
101 
102 
'0? 

104  000044 

105  000050 

106  000052 

107  000056 

108  000060 
109 

lie 

111    000060 

112 

113  000064 

M4   000072 

115  OOO'OO 

116 

117 

118 

"19 

12C 
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.S8TTL      $ALP16   -   ALLOCATE    FROM  PROCESS   PARTITION 

'*,.    -  $ALP16   -  ALLOCATE    SINGLEWORD   FROM  PROCESS   PARTITION 

INPUTS: 

R1  =  SIZE  Of  BUFFER  REQUIRED  IN  SVTES. 
SPDVA  =  PDV  ADDRESS 

OUTPUTS: 

C-8IT   SUCCESS/FAILURE 

RO  =  BUFFER  ADDRESS 

ALL  OTHER  REGISTERS  PRESERVED 


$ALP16: 


016703  OOOOOOG 

016367  OOOOOOG  OOOOOOG 


010104 

0''6700  OOOOOOG 

010401 

012700  177776G 

103006 


017700  0000006 

01)000 

005260  000006 

000412 


10$: 


052700  120000 

016763  OOOOOOG  OOOOOOG 

042763  160000  0000005 

010066  000004 


.IF  DF  R$$  •f 


SUSTKS 

MOV 

MOV 


20$ 

$PDVA,R3       ; 
Z.AVL(R3),i°RAVL 


.IF  DF  M$$MGE 

MOV  R1,R4 

MOV  $B1AS,R0 

CALL  $MAPX 

MOV  R4,R1 

MOV  *$PRAVL-2,R0 

CALL  $AL0C2 

BCC  10$ 

.IFf  ;  DF  M$SMGE 

MOV  #$PRAVL-2,R0 

CALL  SAL0C1 

BCC  10$ 

.IFTF  ;  DF  M$$MGE 

MOV  SHEADR.RO 

MOV  (RO),RO 

INC  6(R0) 

BR  20$ 

.[FT  ;  DF  M$$MGE 

BIS  *120000,R0 

MOV  $PRAVL,Z.AVL(R3)', 

SIC  #16000C,Z.AV:  (R3) 

MOV  R0,4(SP)       ;' 


.IFF    ;  DF  M$$MGE 
MOV     $PRAVL,Z.AVL(R3) 


ENTER  KERNEL  MODE 
GET  PDV  ADDRESS  FOR  THIS  PROCESS 
•  GET  LISTHEAD  OF  AVAILABLE  SPACE 


SAVE  BYTE  COUNT 

GET  RELOCATION  BIAS  FOR  THIS  PROCESS 

MAP  TO  PROCESS 

RESTORE  BYTE  COUNT 

GET  ADDRESS  OF  LISTHEAD-2 

TRY  TO  GET  BUFFER  FROM  END  OF  PARTITION 

IF  CC,  SUCCESS 


GET  ADDRESS  OF  LISTHEAD-2 

TRY  TO  GET  BUFFER  FROM  END  OF  PARTITION 

IF  CC,  SUCCESS 


GET  USER  MODE  SP 

SET  USER  MODE  C-BIT 
LEAVE  RO  UNCHANGED 


MAKE  SURE  THAT  WE  RE-MAP  WHEN  USING  THIS 
ADDRESS 

♦  RES'ORE  POINTER  TO  FREE  SPACE 

;•  CLEAR  LAST  APR  USED 
RETURN  BUFFER  ADDRESS  IN  RO 
REMEMBErt:  SMAPX  IS  A  CO-ROUTINE 


RESTORE  LISTHEAD 


L- 
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PRIO  -  READ  PROCESS  INTO  CORE 
SPRIO  -  PROCESS  I/O 


196 
197 
198 
199 
230 
201 
202 
203 
20A 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 
219 

220  000000 
'  '    000000 
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SPRIO  -  PROCESS  I/O 

THIS  ROUTIME  IS  CALLED  TO  TRANSFER  THE  PROCESS  TASK  IMAGE  INTO  CORE.  A  PCB 
WILL  BF  CREATED  IF  THE  PARTITION  IN  USE  IS  A  SYSTEM  CONTROLLED  PARTITION. 
THE  PRESENCE  Uf  AN  MCB  PROCESS  I^'  A  SYSTEM  CONTROLLED  PARTITION  IS  DENOTED 
BY  SETTING  THE  PARTITION  NAME  TO  "NT.***",  WHERE  "*♦*"  IS  THE  PDV  NAME. 

INPUTS: 

R1=FILE  SPEC  ADDRESS 

R2=FILE  SPEC  LENGTH 

SSPAR=PARTiriON  NAME  (OPTIONAL) 

S$INC=EXTENSION  VALUE  IN  32.  WORD  BLOCKS  (OPTIONAL) 

$NAME=RAD50  PDV  NAME 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

RO=:ERROR   CODE 

R1=PARTIT10N   CONTROL   BLOCK   ADDRESS/GCD   BLOCK  ADDRESS 

R?=DESTROYED 


221 

222  GOOOOA 


223 


000010 
22A  OOOOU 

225  000020 

226  000022 

227  00002A 

228  C00026 

229  000032 
230 

231  0C0O3A 

232  000040 

233  0000A2 

234  000046 

235  000052 

236  000056 
237 

238  000060 

239  000064 

240  000066 

241  000072 

242  000074 

243  000100 

244  000102 
245 

246  000106 
24  7 

248  000112 

249  000114 

250  ooon-2 

251  0^0124 
252 


005067  000012' 
005067  000010' 

105777  OOOOOOG 
100445 
05201C 
001447 

103405 


103402 


SPR 1 0 : 


5S: 

10$: 
005767  000010' 
001411 

016700  000012' 
001405 

103430 

005067  000012' 

000261  20$: 

016700  OOOOIC  30$: 

016701  000012' 

10340' 

032777  OOOOOOG  OOOOOOG 


0C1403 
012761 


^77777     OOOOOOG 


CLR 

PC8A 

XLR 

ERROR 

CALL 

SCLOPE 

TSTB 

a$CLIOS 

BMi 

101$ 

BIS 

(RO  t,(RO) 

BEO 

111$ 

CALL 

PR. LSI 

BCS 

10$ 

CALL 
BCS 

CALL 
CALL 
TST 
BEQ 

MOV 

BEO 

CALL 

BCS 

CLR 

SEC 

MOV 

MOV 

BCS 
BIT 
BEQ 
MOV 


PR . PAR 

10$ 

PR.XFR 

SCLDEQ 

ERROR 

30$ 

PC8A,R0 

20$ 

$XPAR 

121$ 

PC8A 

ERROR, RO 

PCBA.Rl 

40$ 

*FE  PL.  ,J)FMASK 

40$ 

#-1,P.PR0(R1) 


NO  PCB  YET 

NO  ERROR,  EITHER 

OPEN  PROCESS  FILE 

LOOK  AT  GCL  lOSB 

IF  MI,  FAILURE 

IS  FILE  CONTIGUOUS? 

IF  EQ,  NO 

READ  LABEL  BLOCK 

IF  CS,  ERROR 

FIND  PROCESS   PARTITION 

If-    f S      FRROR 

READ  PROCESS  TASK  IMAGE  INTO  CORE 

CLOSE  PROCESS  FILE 

ANY  ERRORS?  (CLEARS  C-8IT) 

IF  ZERO,  NO 

GET  PCB  ADDRESS 

IF  ZERO,  NOTHING  TO  CLEANUP 

RELEASE  part; I  ION 

IF  CS,  VERY  BAD 

SAFETY  PLAY 

INDICATE  FAILURE 

GET  ERROR  CODE 

AND  PCB  ADDRESS 

DON'T  CHECK  IF  ERROR  HAS  OCCURRED 

IS  THIS  A  PLAS  SYSTEM  .' 

.  NO 

NO  PLAS  ACCESS  Of  ANY  SORT  ALLOWED 
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001620 
00162A 


016700 
016000 


000012' 
QOOOU 


PRIG  -   READ   PROCESS    I^JTO   CORE 
PR.KFR   -   READ   PROCESS    INTO   CORE 


7A2 

7A3 

7A^ 

7A5 

7^6 

747 

7A8 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758  001620 

759 

76<" 

7i. 

762 

763 

^64 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

m 

778 
779 
780 
781 
782 
783 
784 
785 
786 
78^ 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
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.SBTIL  PR.XfR  -  READ  PROCESS  INTO  CORE 

I- 

PR.XFR  -  READ  PROCESS  TASK  IMAGE  INTO  CORE 

THIS  ROUTINE  IS  CALLED  TO  READ  THE  PROCESS  TASK  IMAGE  INTO  CORE. 

INPUTS: 

PCBA=PC8  ADDRESS 

GCDA=GC8  ADDRESS  (IAS  ONLY) 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 
RO^DESTROVED 


PR.XFR: 


001630 

001634      103401 


10S: 


001636 


001640  116777  0000006 
001646  012767  000042 
001654 


000001 


.IF  DF 

MOV 

MOV 

.IFF 

MOV 

MOV 

MOV 

MOV 

MOV 

.ENDC 

CALL 
8CS 

.IF  DF 

3IT 

BEQ 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

MOV 

.ENDC 

RETURN 


R$$11M 

PCBA.RO 

P.REL(RO),RO 

R5,-(SP) 

R4,-(SP) 

GCDA.RO 

G.8A(RO),R0 

R0,R5 


SREADX 
101$ 

R$$11D  I  I$SAS 

#FL.DDM,$FLAGS 

10$ 

$NTLPT,RO 

$MAPX 

.CXGCD(R2),R4 

a(SP)t 

R5,R0 

$MAPX 

G.eA(R4),(R?) 

a(SP)t 

(SP)+,R4 

(SP)+,R5 


ERROR  CONDITION 


OOOOOCG  1011 
C00010' 


MOVB 

Mu>/ 
RETURN 


.END 


$I0S8,a$CLI0S 
#ERR3'., ERROR 


GET  PC8  ADDRESS 

GET  PARTITION  STARTING  ADDRESS 

SAVE  SOME  REGISTERS 

GET  GCD  ADDRESS 

GET  BASE  ADDRESS  OF  REGION 

SAVE  BASE  ADDRESS  OF  REGION 


READ  INTO  EXTENDED  MEMORY 
IF  CS,  FAILURE 


ARE  WE  LOADING  A  DDM? 

BR  IF  NO 

GET  BIAS  OF  NTL  HOME  BLOCK 

MAP  TO  THE  HOME  BLOCK 

GET  GCD  ADDRESS  OF  COMM  EXEC 

RESTORE  MAPPING 
GET  BASE  -'-nnRESS  OF  REGION 

MAP  TO  PROCESS 

STORE  COMM  EXEC  BIAS 

CALL  CO-ROUTINE  TO  RESTORE  MAPPING 
RESTORE  R4 
RESTORE  R5 


COPY  ERROR  CODE 

PROCESS  IMAGE  READ  FAILU'^E 


PROAL 
tDEAC; 
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PRCAL 
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tDEAC2  -  DEALLOCATE  FROM  END  OF  PARTITION 

IS'. 

135 

186 

187  000202 

188 

189 

190 

191 

192 

193 

194 

195  000206 

196  000210 

197  000212 

198  0002H 

199  000216 

200  000220 

201  000222 

202  000226 

203  000230 
204 

205  000252 

206  0C0:34 

207  000236 
208 
209        000001  .END 


.IF  DF 

R$$11M 

052722 

140000 

BIS 
.IFF 
SIS 
.ENDC 

#140000, (R2)+ 
;  DF  R$$11M 
*40000,(R2)+ 
;  DF  R$$nM 

061216 
020026 
001003 
061201 
011042 
010200 
010160 
012602 

000002 

50$ 
60$ 

ADD 
CMP 
BNE 
ADD 
MOV 
MOV 
MOV 
MOV 
RETURN 

(R2),(SP) 

R0,(SP)+ 

50$ 

(R2),R1 

(R0),-(R2) 

R2,R0 

R1,2(R0) 

(SP)+,R2 

0057P3 
001756 

70$ 
80$ 

TST 
BEQ 
CRASH 

R3 
40$ 

;USE  APR2  MAPPING 


CALCULATE  ADDRESS  OF  NEXT  BLOCK 

EQUAL  TO  BLOCK  BEING  RELEASED? 

IF  NE  NO 

MERGE  TWO  BLOCKS 

MOVE  LINK  WORD  TO  PREVIOUS  BLOCK 

SET  NEW  ADDRESS  OF  BLOCK 

SET  SIZE  OF  BLOCK  RELEASED 

RESTORE  ADDRESS  OF  LISTHEAD 


INSERT  AT  END  OF  LIST? 
IF  EQ  YES,  OK 
ILLEGAL  DEALLOCATION 


PRCAL 
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REPSB  -  REPLACE  REGION  NAME 


253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

26^, 

265 

266 

267 

268 

269 

270 

271 

272 

273 

27A 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 


.SBTTL   REP58  -  REPLACE  REGION  NAME 

PEPSe  -  REPLACE  REGION  NAME 

INPUTS: 

$RNAME=REGI0N  NAME 
R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 

OUTPUTS: 

R0,R1,R2=DESTROYED 
R3,R4=UPDATED 


.IF  OF   R$$11DI!S$AS 


REP5R: 
10$: 


20$: 


000001 


CALL 

M0V8 

CMP8 

BNE 

DEC 

MOV 

MOV 

CALL 

MOV 

BEQ 

CALL 

CMPB 

BEQ 

INC 

MOV 

RETURN 

.ENDC 
.END 


SREP.P 

(R3)+,(R4) 

#'*,(RA)t 

10$ 

R4 

R4,R0 

$RNAME,R1 

$C5TA 

$RNAMEt2,R1 

20$ 

$C5TA 

#'  ,-(R0) 

20$ 

RO 

RO,RA 


REPLACE  PROCESS  NAME 
LOOK  FOR  SECOND  ASTERISK 


SKIP  THE  ASTERISK 
copy  BUTFER  ADDRESS 
GET  FIRST  HALF  OF  NAME 
CONVERT  TO  ASCII 
GET  SECOND  HALF  OF  NAME 
IF  EQ,  DON'T  BOTHER 
CONVERT  TO  ASCII 
SKIP  TRAILING  SPACES 


SET  NEW  BUFFER  ADDRESS 
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SROL    -  ALLOCATE  REACHIBILITV  MATRIX 

.SBTTL   SROL    -  ALLOCATE  REACHIBILITr  MATRIX 

'$R0L  -  ALLOCATE  REACHIBILITV  MATRIX 

INPUTS: 

SPDVA  -  XPT  PDV  ADDRESS 
R2    -  XPT  DDB  ADDRESS 

OUTPUTS: 

REACHIBILITV  MATRIX  ALLOCATED 


210 

211 

212 

213 

2K 

215 

216 

217 

218 

219 

220 

221 

222  000466 

223  000472 

016705 

OOOOOOG 

224  000476 

005004 

225  000500 

156504 

OOOOOOG 

2^5  000504 

017705 

OOOOOOG 

227  000510 

016300 

0000t,0 

228  000514 

229 

250  000516 

001555 

016301 

000062 

251  000522 

001401 

232  000524 

005200 

253  000526 

005200 

234  000530 

066300 

000062 

235  000534 

006300 

236  000536 

010001 

237  000540 

062701 

000077 

238  000544 

042701 

000077 

239 

240  OOOSjO 

241 

242  000564 

245  000570 

105004 

244  000572 

245 

246  000600 

247 

248  000602 

01006' 

000024 

249  000606 

016362 

000060  0000^2 

250  000614 

0C5262 

000022 

251 

252  000620 

005000 

253  000622 

254  000632 

010062 

000026 

255  000636 

016300 

900062 

256  000642 

257 

258  000644 

001417 

016262 

000024  000052 

259  000652 

010062 

000030 

260  000656 

005262 

000030 

261  000662 

016262 

000026  000034 

262  000670 

016200 

000022 

263  000674 

006300 

264  C0C676 

060062 

000034 

265 

266  000702 

SROL: 


10S: 


20S: 


30$: 


CALL 

MOV 

CLR 

BIS8 

MOV 

MOV 

BEQ 

MOV 
BEQ 
INC 
INC 
ADD 
ASL 
MOV 
ADD 
BIC 

ASRS 

CALL 

BCC 

EMSGS 

RETURN 

MOV 
MOV 
INC 

CLR 

BIAS 

MOV 

MOV 

BEQ 

MOV 
MOV 
INC 
MOV 
MOV 
ASL 
ADD 


SSAVAL 

$PDVA,R5 

R4 

Z.LLN(R5),R4 

SDECPT,R5 

D$NN(R3),R0 

SOS 

DSNAfR3),R1 

10$ 

RO 

RO 

DSNA(R5),R0 

RO 

RO.RI 

*77, R1 

#77, R1 

6,R1 

$ALN18 

20$ 

9D 


R0,iMl.ROA1t2(R2) 
D$NN(R3),N$R0A1  (R2) 
N$fiOA1(R2) 

RO 

RO 

R0,N$R0A1t4(R2) 

D$NA(R3),R0 

50$ 


SAVE  REGS 

STORE  PDV  ADDRESS 

INIT  REG 

STORE  NUMBER  OF  XPT  CHANNELS 

COPV  DECNET  HOME  BLOCK  ADDRESS 

STORE  MAX  NODES 

IF  ENDiMODE  -  BRANCH 

MULTIPLE  AREAS  ? 

IF  NO  -  BRANCH 

INCLUDE  EXTRA  AREA  ENTRV 

INCLUDE  EXTRA  NODE  ENTRY 

INCLUDE  AREAS 

CONVERT  TO  BYTES 

SET   UP   R1    FOR   ALLOC/'TION 

ROUND  UP  TO  BLOCK  BOUNDARY 


CONVERT  TO  BLOCK  COUNT 

ALLOCATE  ROL  TABLE 
IF  SUCCESS  -  BRANCH 
TYPE  ERROR 


.■SET  UP  APR  BIAS  FOR  NODE  ROL 

;SET  COUNT 

.-INCREASE  FOR  XPT  ROL  OFFSET 

.•CREATE  APR  6  VIRTUAL  ADDRESS 

•SEt'uP  VIRTUAL  ADDRESS  FOR  NODE  ROL 
;GET  NUMBER  OF  AREAS 
;IF  NONE  -  BRANCH 


N$ROA1+2(R2),N$ROA2+2(R2)  ;SET  UP  APR  BIAS  FOR  AREA  ROL 

R0,N$ROA2(R2)  ;SET   AREA   COUNT 

N$ROA2(R2)  (INCREASE    FOR   XPT   ROL   OFFSET 

N$ROAU4{R?),N$ROA2t4(R2)    ;  COPY   START   VIR.    ADDRESS 

N$ROA1(R2),R0 

RO 

R0.N$(.OA2t4(R2) 


GET  NODE  ROL  CO'JNI 

CONVERT  TO  BYTES 

STORE  AREA  VIRTUAL  ROL  ADDRESS 


S«ISTK$  80$ 


I 
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5  ^'> 

00:38 


16?' 
168 
169 
170 
171 
172 
17? 
17^ 
175 
176 
177 
178 
179 
180 

181  000222 

182  000230 

183  000236 
18A  0002A2 

185  000246 

186  000250 

187  000252 

188  000256 

189  000262 
190 

191 
192 
193 
191  00026A 

195  000272 

196  000276 

197  000300 

198  000306 

199  000312 

200  000311 

201  000322 

202  000321 


READ  -  READ  NEXT  RECORD  FROM  S/MbOL  TABLE  FILE 

INPUTS; 

NONE 

OUTPUTS: 

C-8IT  =  SUCCESS/FAILURE 
R0,R1,R2  =  DESTROYED 
R3  =  RECORD  LENGTH 
R1  =  RECORD  ADDRESS 


.ENA8L  LS8 


012767 
012767 

016700 
105710 
100105 
016003 
012701 


012766 
122710 
001111 
012766 
122710 
001003 
012766 
000261 


OOOOOOG  READ: 
OOOOOOG 


000000' 
000172 

OOOOOOG 


000002 
000000' 


000015  000010 
OOOOOOG 

000011  000010 
OOOOOOG 

00002'  000010 


MOV 

MOV 

CALL 

MOV 

TST8 

BMI 

MOV 

MOV 

RETURN 


*STe8F,SClBUF 

#122.,$CLSI2 

SGCLEP 

l.CL10S,R0 

(t'O) 

Ul$ 

2(R0),R3 

#ST8BF,R1 


SET  GCL  BUFFER  ADDRESS 

AND  BUFFER  SIZE 

READ  NEXT  RECORD  FROM  STB  FILE 

GET  GCL  lOSB  ADDRESS 

SUCCESS  ?  (CLEARS  C-BIT) 

NO  .. 

GET  RECORD  LENGTH 

AND  RECORD  ADDRESS 


TMPACT 


20 

20 
20 
20 
20 
20 
20 
20 
20 
20 
21 
21 
21 
21 
21 
21 


ERROR  CONDITIONS 


1013 


111$: 
112$: 


MOV 

CMPB 

8EQ 

MOV 

CMPB 

BNE 

MOV 

RETU^N 


*<<E.ORUN*2>+l>,8.(SP)  ;  ASSUME  BUFFER  TOO  SMALL 

*IE.RBG,CR0)    ;  CORRECT  ASSUMPTION  ? 

112$  ;  ^ES  .. 

#«E.READ*2>  +  1>,8.{SP)  ;  ASSUME  GENERAL  READ  FAILURE 


*IE.E0F,(R0) 

112$ 

*<<E.BAD*2>tl>,8 


IS  IT  END  OF  FILE 
NO  ..  CORRECT  ASSUMPTION 
(SP)  ;  IT'S  BAD  FILE  FORMAT 
INDICATE  FAILURE 
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TMPACi 
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200 

+ 

201 

SDVCHA  -  ".DVCHA"  ACTION  R 

202 

203 

INPUTS: 

20A 

NONE 

205 

206 

OUTPUTS: 

207 

R2=DES 

TROYED 

208 

209  000230 

ioVCHA:: 

210  000230 

CALL 

SVXLLC 

211  000234 

CALL 

$RQ1 

212  0002A0 

103405 

BCS 

10$ 

213  0002A2 

112712 

ooooooG          Move 

*.DVCHA,(R2) 

Zyi.   000245 

062767 

000004  OOOOOOG        ADD 

#4,$S1ZE 

215  000254 

10$:     RETURN 

MAKE  SURE  IT'S  NOT  AN  LLC 
REQUEST  BINARY  FILE 
IF  CS,  NO  ACCESS 
STORE  FUNCTION  CODE 
ADJUST  DATA  BASE  SIZE 
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00:38 


5A7 
5A8 
5^9 
550 
551 
552 
553 
55^; 
555 
556 
557 
558 
559 

560  00115^ 

561  001154 

562  001162 

563  001166 
56A  001170 

565  001176 

566  001200 

567  00120A 

568  001206 

569  0012U 

570  001216 

571  001222 

572  001 22A 

573  001232 
57A  001234 

575  0012A0 

576  001242 

577  0012'^0 

578  001256 


$NUM  -  NUMERIC  EXPRESSION  ACTION  ROUTINE 

INPUTS: 

.PNUMH=HIGH  ORDER  NUMERIC  VALUE 
.PNUMe=LOW  ORDER  NUMERIC  VALUE 
F2.NEG  SET  IF  NEGATIVE  NUMBER 
F2.ByT  SET  IF  BYTE  EXPRESSION 

OUTPUTS: 

$VALUE=NUMERIC  VALUE 
F2.NEG  CLEARED 


016767 
005767 
001025 
032767 
00U12 
105767 
001016 
032767 
001415 
105467 
000406 
03276V 
001406 
005467 
1004C3 

042767 


$NUM: 
OOOOOOG  OOOOOOG 
OOOOOOG 

0000  JG  OOOOOOG 

000001 G 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG  10$: 

OOOOOOG 

20$ 
30$ 

OOOOOOG  OOOOOOG  40$ 


MOV 

TST 

BNE 

BIT 

BFQ 

TSTB 

BNE 

BIT 

BEQ 

NEGB 

BR 

BIT 

BEQ 

NEG 

BMI 

EMSG$ 

BIC 

RETURN 


.PNUMB,$VALUE 

.PNUMH 

30$ 

*F2.8yl,$FLAG2 

10$ 

$VALUEtl 

30$ 

#F2.NEG,$FLAG2 

40$ 

$VALUE 

20$ 

*F2.NEG,$FLAG2 

40$ 

$VALUE 

40$ 

18 

#r2.NEG,$FLAG2 


GET  NUMERIC  VALUE 

SINGLE  PRECISION  NUMBER? 

IF  NE,  NO  -  ERROR 

BYTE  EXPRESSION? 

IF  EQ,  NO 

IS  VALUE  CONTAINED  IN  8  BITS? 

IF  NE,  NO  -  ERROR 

NEGATIVE  NUMBER? 

IF  EQ,  NO 

NEGATE  IT 

NEGATIVE  NUMBER? 

IF  EQ,  NO 

NEGATE  IT 

IF  MI,  NO  LOSS  OF  SIGNIFICANCE 

PRINT  TRUNCATION  WARNING 

CLEAR  NEGATIVE  FLAG 
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NTLUNL    -  NTL   UNLOAD   ROUTINES 
tXPRO   -   CLEAN  UP   PROCESS 

206 
207 
208 
209 
210 
211 
212 
213 
2K 
215 
216 
2'7 
218 
219 
220 
221 
222 
223 
22A 
225 

226  000000 

227  000000  016704  OOOOOOG 

228  000004  032767  OOOOOOG 

229  000012  OOU22 

230  000014  016700  OOOOOOG 

231  000020  000411 
232 
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.SBTTL  SXPRO  -  CLEAN  UP  PROCESS 

SXPRO  -  CLEANUP  AFTER  AN  UNSUCCESSFUL  "SET  PROCESS"  (RSXlIM  ONLY) 

THIS  ROUTINE  IS  CALLED  IF  A  "SET  PROCESS"  FAILS  EITHER  IN  SETTING  UP^J^HE 
LLC  LINE  TABLE  OR  IN  SETTING  UP  THE  RSX11M  DCB  DATA  STRUCTURES.  THE  PROCESS 
WILL  BE  RELEASED  FROM  ITS  PARTITION  AND,  IF  IT  IS  AN  LLC,  ITS  LINE  TABLE  WILL 
BE  DE-ALLOCATED. 

INPUTS: 

$PDVA  =  PDV  ADDRESS 

$PCB  =  PCS  ADDRESS 

FL.PX1  OF  SFLAGS  SET  IF  PROCESS  WAS  TRANSFERRED  INTO  CORE 

OUTPUTS: 

C-BIT=SET 


OOOOOOG 


.ENABL  LSB 


SXPRO:: 


233 

000022 

032764 

OOOOOOG  OOOOOOG 

XPRO: 

BIT 

234 

000030 

001403 

'^ 

235 

000032 

016700 

OOOOOOG 

236 
237 
238 

000036 

000402 

BR 

000040 

016400 

OOOOOOG 

1$: 

MOV 

239 

000044 

001532 

5$: 

BEQ 

240 

000046 

005064 

OOOOOOG 

CLR 

241 

000052 

CALL 

242 
243 
244 

000056 

103526 

BCS 

000060 

55$: 

.IF  DF 

245 

246 

BITB 

247 

BEQ 

248 

CALL 

249 

250 

SWSTKS 

251 

MOV 

252 

6$: 

MOV 

253 

MOV 

254 
255 

cip 

256 

BNE 

25^ 

MOV 

258 

7$: 

RETURN 

259 

260 
261 
262 

8$: 

CALL 

.ENDC 

MOV  $PCVA,R4 

BIT  #FL.PX1, SFLAGS 

BEQ  55$ 

MOV  $PCB,RO 

BR  5$ 

#ZF.INI,Z.FLG(R4) 

1$ 

$PCB,RO 

5$ 

Z.PC6(R4),R0 

101$ 

Z.PC8(R4) 

$XPAR 

111$ 


GET  PDV  ADDRESS 

WAS  PROCESS  TRANSFERRED? 

IF  EQ.  NO 

GET  PCS  ADDRESS 


;  INIT  DISPATCH  NEEDED  ? 

IF  NO  -  BRANCH 

GET  SAVED  PCB  ADDRESS 

CONTINUE 

GET  PCB  ADDRESS 
IF  NO  PCB,  LOGIC  ERROR 
INDICATE  PROCESS  UNLOADED 
RELEASE  PROCESS  FROM  PARTITION 
IF  CS,  VERY  BAD 


R$$MPL 

#ZF.DDM,Z 

10$ 

FNCT8 

8$ 

CTLST,RO 

R0,R2 

(RO),RO 

7$ 

RO.Rl 

6$ 

(R0),(R2) 


SHRCIN 


,FLG(R4J 


;  IS  THIS  A  DDM  ? 

IF  EQ,  NO 

FIND  CTB  ADDRESS  !"ROM  CETAB.STB 

ENTER  KERNEL  MODE 
GET  START  OF  CTB  LIST 
SAVE  CTB  ADDRESS 
GET  NEXT  CTB  ADDRESS 
IF  EQ,  END  OF  LIST 
POINTING  AT  OUR  CTB  ? 
IF  NE,  NO  ..  KEEP  LOOKING 
UNLINK  CTB  FROM  CTB  CHAIN 
RETURN  TO  USER  MODE 

RE-INITIALIZE  HRC... 
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725 

72i; 

725 

726 

727 

728 

729 

730 

731 

732 

753 

734 

755 

756 

737 

758 

739 

740 

741 

742 

745 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769  001506  021002 

770  001510  103402 

771  001512  021003 

772  001514  105405 

775  001516 
774 

775 

776  001516 

777  001522 
778 
779 


5$: 


6$: 


#120000, RO 

#120000, Rl 

#2,R5 

7$ 

URMT8,URMTHP 

R5,URMTMP      . 

K.URM(R4),aijRMTMP 

5$ 

K6TA8,K6TMP 

R5,K;6TMP 

SK6TMP,aKSAR5 

IC8SC 

50$ 

RO 

45$ 


BIAS  VECTOR  ADDRESS  TO  USE  APR5 

DONE  FOR  ALL  PROCESSORS  ? 

IF  LE,  YES  ..  DIDN'T  FIND  UNIBUS  RUN 

GET  $URMTB  ADDRESS 

;•' CONTROLLER  ON  THIS  CPU  ? 
IF  EQ,  NO  ..  KEEP  LOOKING 
GET  $K6TAB  ADDRESS 

MAP  TO  CPU  PARTITION 

IS  THIS  A  VALID  ICB  ? 

IF  CC,  YES  ..  RESET  NONSENSE  INTERRUPTS 

WHAT  DO  YOU  MEAN  THIS  ISN'T  AN  KB  ??? 

LEAVE  WITH  ERROR 


CALCULATE  LENGTH  OF  ICB  FROM  1ST  ICB  IN  CHAIN 


H: 


8$: 


10$: 


20$: 


103002 


MOV 

BEQ 

MOV 

CLR 

CHPB 

BHIS 

MOV 

MOV 

BIC 

BJC 

SWAB 

.REPT 

ASR 

.■^NDR 

MOV 

ADD 

MOV 

ASL 

BIS 

CALL 

MOV 

BCC 

CLR 

BR 

.ENDC 


K.PRM(R4),R0 

44$ 

R4,-(SP) 

-(SP) 

#1,ilNCPU 

8$ 

#120000, (SP) 

R0,fi4 

#7?77,R0 

R0,R4 

RO 

3 

RO 

K6TAB,K6TI»IP 

R0,K6TMP 

aK6TMP,aKSAR5 

R4 

(SP)+,R4 

1C8LEN 

(SP)+,R4 

40$ 

RO 

45$ 


DF 


R$$MPL 


CMP  (R0),R2 

BLO  20$ 

CMP  (R0),R5 

BLO  50$ 

.IF  DF  M$$MGE 


CALL 
BCC 


IC83C 
30$ 


.ENDC 


IC8 


GET  ADDRESS  OF  1ST 

IF  EQ,  NO  ICB'S 

SAVE  KRB  ADDRESS 

ASSUME  THE  ICB  IS  NOT  FOR  A  CPU  PARTITION 

ICB  POINTER  CONTAIN  A  CPU  NUMBER  ? 

IF  HIS,  NO 

GET  BASE  ADDRESS  OF  APR5 

FORM  CPU  NUMBER  IN  UPPER  FOUR  BUTS  OF  R2 

clean' CPU  NUMBER  OUT  OF  POINTER 

FORM  CPU  NUM8ER;2  OF  POOL  FOR  THE  ICB 


GET  $K6TAB  ADDRESS 

MAP  TO  THE  CPU  PARTITION 
FORM  VIRTUAL  ADDRESS  OF  KB 

SCAN  ice  FOR  LENGTH 
RESTORE  KRB  ADDRESS 
IF  CC,  FOUND  LENGTH 
SOMETHING'S  ROTTEN  IN  DENMARK 
AND  TELL  SOMEONE 


11M  OR  DATA  SPACE  NOT  ENABLED  CN  M-PLUS 

DOES  VECTOR  POINT  AT  OUR  LINE  TABLE? 

IF  LO,  NO 

DITTO? 

IF  LO,  YES 


SCAN  FOR  ICB 

IF  CC,  FOUND  ONE 
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XDCB  -  UNLOAD  DEVICES 


1350 

1351 

1352 

1353 

1354 

1355 

1356 

i357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 


.SBTK   XDCB  -  UNLOAD  DEVICES 


XDCB  -  UNLOAD  DEVICES  WHICH  ARE  ALSO  NETWORK  PROCESSES 

INPUTS: 

R4  -  PDV  ADDRESS 

OUTPUTS: 

THE  DEVICE  ASSOCIATED  WITH  PDV  IS  UNLOADED 


003046 
003054 
003056 
003064 

003070 
003074 
003076 
003100 
003106 
003110 
003112 
003116 
003122 


032764  OOOOOOG  OOOOOOG  XDCB: 

001003 

016467  OOCOOOG  OOOOOOG 

016700  OOOOOOG       5$: 


011000 

001411 

026067  OOOOOOG  OOOOOOG 

000241 

001371 

005060  OOOOOGC 

005060  OOOOOOG 


10$: 


20$: 


BIT 
BNE 
MOV 
MOV 

SWSTtCJ 

VOV 

BE3 

CMP 

CLl 

BNE 

CLR 

CLR 

RETURN 


#Zf .INI,Z.FLG(R4) 
5$ 

Z.PCB(R4),$PCB 
DEVHD.RO 

20$ 

(R0),RO 

20$ 

D.PCB(RO),$PCB 

10$ 

D.DSP(RO) 

D.PCBCRO) 


;  ZF.INI  PROCESS  ? 

IF  YES  -  BRANCH 

COPY  PCB  ADDRESS 

GET   RSXllM  DEVICE   POiNTER 

ENTER  KERNEL  MODE 

GET  NEXT  DEVICE  IN  LIST 

IF  ZERO,  ALL  DONE 

SAME  PCB  AS  OUR  PROCESS? 

CLEAR  C-BIT 

IF  NE,  NO 

MARK  DEVICE  AS  "UNLOADED" 

BACK  to'uSER  MODE  AND  THEN  TO  CALLER 


Ml  l!NI  riAD  RnilTINFS 


E  3 
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010204 

010300 

010501 

012703  177776G 

06270A  OOOOOOG 

011463  000002 

042700  160000 

050200 

016714     OOOOOOG 
042714     163000 


D  A 
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DEA16  -  END  OF  PARTITION  DE-ALLOCATION  ROUTINE 

1840 

1841 

1842 

1843 

1844 

1845 

1846  004222 

184"  004224 

184.,  004230 

1849  004232 

1850  0042^^4 

1851  004240 

1852  004244 

1853  004250 

1854  004254 

1855  004256 

1856  004252 

1857  004266 
1858 
1859 
1860 
1861 
1862 
1863 
1864 

1865  004272 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
18?8 
188'i 
1890 

1891  004274 

1892  004300 


.IFF 

;  DF  R$$11M 

MOV 

G.BA(R4),R0 

.IFTF 

;  DF  R$$11M 

MOV 

R2,fi4 

CALL 

$MAPX 

MOV 

R3,R0 

MOV 
MOV 
Ap6 
MOV 

R5.R1 

#$PRAVL-2,R3 

#Z.AVL,R4 

(R4).2(R3) 

BiC 

#160600,RO 

BIS 

R2,R0 

CALL 

DEAC2 

MOV 

$PRAVL,(R4) 

BIC 

#160000, (R4) 

.IFF 

;  DF  R$$11M 

CALL 

51(SP)  + 

.ENDC 

;  DF  R$$11M 

RETURN 

.IFF 

;  DF  M$$MGE 

CMP 

aEXSIZ,RO 

BHI 

20$ 

JSR 

R5,$SAVRG 

MOV 

aNTLPT,R2 

MOV 

.CXPCB(R2),R2 

MOV 

P.REL(R2),R3 

CMP 

R0,fi3 

BLO 

lOi 

ADD 

P.SIZE(R2),R3 

CMP 

R0,R3 

BLO 

20§ 

10$:    MOV 

..PDV,R4 

BED 

30$ 

MOV 

*$PRAVL-2,R3 

ADD 

*Z.AVL,R4 

MOV 

(R4),2;R3) 

CALL 

$DEAC1 

MOV 

$PRAVL,(R4) 

BR 

30$ 

.ENDC 

;  DF  M$$MGE 

20$:    CALL 

$DEA16 

30$:    RETURN 

Pags  29-1 


GET  PROCESS  BIAS 


COPY  PD\/  ADDRESS 

MAP  TO  THE  PROCESS 

RESTORE  ALLOCATION  ADDRESS 

AND  SIZE 

POINT  AT  COMMON  LISTHEAD 

POINT  AT  PROCESS  ALLOCATION  WORD 

SETUP  PARTITION  FREE  SPACE  POINTER 

CLEAR  GIVEN  APR 

USE  APR  FROM  MAPX 

DE-ALLOCATE  BACK  TO  PARTITION  SPACE 

RESTORE  PCB  ALLOCATION  WORD 


CALL  CO-ROUTINE  TO  RESTORE  PREVIOUS  MAPPING 


BACK  TO  USER  MODE 


IS  ALLOCATION  FROM  RSX  POOL  ? 

YES  ..  DE-ALLOCATE  NORMALLY 

SAVE  R3,R4,R5 

GET  NTL  DATA  BLOCK  ADDRESS 

COMM  EXEC  PCB  ADDRESS 

AND  COMM  EXEC  STARTING  ADDRESS 

IS  ALLOCATION  FROM  CEX  POOL  ? 

NO  ..  IT'S  FROM  PARTITION  SPACE 

GET  COMM  EXEC  ENDING  ADDRESS 

IS  ALLOCATION  FROM  CEX  POOL  ? 

YES  ..  DE-ALLOCATE  NORMALLY 

GET  PDV  ADDRESS 

IF  ZERO,  DISCARD  THE  ALLOCATION 

POINT  AT  COMMON  LISTHEAD 

POINT  AT  PROCESS  ALLOC  TION  WORD 

SETUP  PARTITION  FREE  ■:  'CE  POINTER 

DE-ALLOCATE  BACK  TO  PAi  IITION  SPACE 

RESTORE  PCB  ALLOCATION  WORD 


DE-ALLOCATE  NORMAlLY 


E     <> 
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PAGE  5 

CRFF       04.00 


SYMBOL 

\  ALUE 

REFERENCES 

F.EVT 

000004 

#5-67 

F.FLG 

OOOOU 

#5-67 

F.LEN 

000016 

#5-67 

F.LIN 

000020 

#5-67 

F.LNK 

000000 

#5-67 

F.MOD 

000022 

#5-67 

F.NXT 

000000 

#5-75 

F.RF'«I 

000026 

#5-67 

F.SEV 

000304 

#5-67 

F.USE 

000002 

#5-75 

32-2037 

F.VAR 

000003 

#5-75 

GETIND 

=   .«.«**     6X 

8-306 

GETPDV 

=  »♦*♦»*     GX 

14-571 

14-606 

ICBLEN 

001720  R 

16-926 

#17-956 

ICBSC 

001662  R 

15-776 

#16-911 

ICBSZ 

000006  R 

IfJ-n? 

»15-698 

INIFL 

=  000001 

#6-123 

9-352 

1$$AS 

=   ****** 

10-384 

15-792 

<MCB 

000116  R 

#7-163 

KSAR5 

=   ******      GX 

24-1477 

24-1495 

K.VCT 

000001 

14-587 

15-694 

K6TMP 

000000  R 

#7-134 

LF.ACT 

=  100000 

#5-72 

14-568 

LF.BRO 

=  000400 

#5-72 

LF.BWT 

=  000007 

#5-72 

LF.FNA 

=  002000 

#5-72 

LF.LPB 

=  001000 

#5-72 

LF.MDC 

=  000100 

#5-72 

LF.MFL 

=  004000 

#5-72 

LF.MTP 

=  000020 

l>5-7i 

LF.PAC 

=  000200 

#5-72 

LF.RDY 

=  040000 

#5-72 

14-568 

LF.REA 

=  010000 

#5-72 

LF.SER 

=  000040 

M5-72 

LF.TIM 

=  000010 

#5-72 

LF.UNL 

=  020000 

#5-72 

14-656 

LF.X2P 

=  000000 

*5-^g 

LGDDB 

=  ******     GX 

8-280 

8-290 

LGPDV 

=  ******     GX 

8-278 

LGSTT 

=   ******     GX 

8-279 

LLCAL 

=   ******     GX 

9-34- 

LN.ao 

:^  000000 

#5-72 

LN.OUM 

=  000005 

#5-72 

LN.LOA 

=   000004 

#5-72 

lN.LOO 

=  000003 

#5-72 

LN.OAU 

=  000003 

#5-72 

LN.OFF 

=  0MOC1 

#5-72 

LN.ON 

=  000000 

#5-72 

LN.OOP 

=  000004 

#5-72 

LN.OPE 

=  000001 

#5-72 

LN.REF 

=  000002 

#5-72 

■  \,:"^R 

=  000002 

#5-72 

14-643 


15-860 


•  17-1303 


27-1645         28-1777 
26-1540         26-1551 


31-1968 


31-1984 


32-2025 


32-2051 


19-1095 
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S1.0BY= 

SI .PTH= 

S1.RES= 

S1.RNE= 

51.RNF= 

S1.R5P= 

S1.RST= 

S1.TNE= 

S1.TSY= 

S1.USI= 

S2.BEL= 

52.BRQ= 

S2.CR  = 

S2.CT0= 

S2.CTS= 

S2.ELF= 

S2.FLF= 

S2.IRQ= 

S2.0BF= 

S2.0RQ= 

S2.PCIJ= 

S2.RCU- 

S2.SR0= 

S2.WAL= 

S2.WRA= 

S2.WRB= 

S3.ACR= 

S3.CTC= 

S3.FDX= 

S3.ICE= 

S3.MHE= 

S3.NEC= 

S3.PPT  = 

S3.PIH= 

S3.RAL= 

S3.RES= 

S3.RU8= 

S3.TAB= 

S3.TME= 

S3.TSY= 

S3.8BC= 

SA.ABD= 

S4.ANI= 

SA.WO= 

S4.BLK= 

S^.DEC= 

S';.OlO= 

SA.EDT^- 
S4.HFF= 
SI.HFL^ 
SA.HHT= 
S'l.HSY^ 
S'.-RGS^ 
S'..SFC  = 
S^.VFL= 
?5.ABP= 
S5.BCC^ 


0001 00 

000010 

010000 

000020 

020000 

OOOOO'i 

000001 

OAOOOO 

000040 

100000 

C20000 

000020 

002000 

040000 

100000 

001000 

000400 

000200 

004000 

000100 

010000 

000001 

000040 

000010 

000006 

000002 

000001 

000004 

000200 

001000 

000400 

000020 

020000 

004000 

000010 

010000 

040000 

000002 

002000 

000040 

000100 

100000 

000400 

001000 

002000 

004000 

000100 

01  coco 

000020 
000007 
000040 
000200 
020000 
040000 
000010 
100000 
020000 


S5.DA0= 

S5.HPC= 

S5.HP0= 

S5.ITI= 

S5.0XF= 

S5.RP0= 

S5.SU1= 

S5.TMM= 

S5.VER= 

S5.X0F= 

S5.X0N= 

S6.EI0= 

S6.RDI= 

S6.RLU= 

TPS 

TS$ACP= 

TS$CHK= 

TS$CMP= 

7S$I0P= 

TS$NEU= 

TS$NHD= 

TS$NSO= 

TS$NXH= 

TS$PIC= 

TS$PMD= 

TS$PRV= 

TS$RE5= 

TS$SLV= 

TS$SUP= 

TS$XHR= 

TS.BLK= 

TS.CKP= 

T<:.CKR= 

Tb.EXE= 

TS.HLD= 

TS.MSG^ 

TS.NRP= 

TS.OUT= 

TS.RDN= 

TS.RUN= 

TS.STP= 

T$$KMG=: 

T$$MIN= 

T.ACTL 

T.ASTL 

T.AfT 

T.CPfB 

T.DPRI 

T.EFLG 

T.IOC 

T.LBN 

T.LDV 

T.LNK 

T.KX37 

T.NAM 

'.OFF 

T.PCB 


C'.OOOO 

000014 

000020 

000100 

000040 

002000 

000001 

000002 

010000 

000004 

000010 

000400 

100000 

001000 

177564 

020000 

000100 

000200 

000020 

000001 

040000  ' 

002000 

000002 

100000 

010000 

000400 

000040 

004000 

000010 

000004 

171700 

00020C 

000100 

100000 

002000 

020000 

010000 

CC0400 

040000 

004000 

001000 

000000 

oc:ooo 

000052 
000016 
000062 
000004 
00004  0 
000022 
000003 
000041 
000044 
000000 
000050 
000006 
000066 
000046 


T.PRl 

T.RCVL 

T.RRFL 

T.SAST 

T.SRCT 

T.STAT 

T.ST2 


.ST3 
T.TCBL 
T.TIO 
T.TKSZ 
T.UC8 
T2$CLj= 
T2$FMP= 
T2.A80= 
T2.AST= 
T2.CAF= 
T2.CHK= 
T2.CKD= 
T2.DST= 
T2.FXD= 
T2.HLT= 
T2.REX= 
T2.SEF= 
T2.SPN= 
T2.STP= 
;2.UFR= 
T3.ACP= 
T3.CAL= 
T3.CL1= 
T3.GFL^ 
T3.MCH= 
T3.NET= 
T3.NSD= 
T3.PMD= 
T3.PRV= 
T3.REM= 
T3.R0V= 
T3.RST= 
T3.SLV= 
T3.SUS= 
UBMPR  = 
UC.ALG= 
UC.ATT= 
UC.KIL= 
UC.LG.H= 
UC.NPR= 
UC.PUF= 
UC.QUE= 
UDSAfi0= 
UDSDRO= 
L'D.UNS^ 

un.i60= 
LID.200= 
UD.556= 
UD.625^ 
L'D.SK  = 


000002 

000012 

000072 

000054 

000071 

000032 

000034 

000036 

000030 

000057 

000060 

000026 

000001 

000002 

000100 

100000 

000400 

020000 

010000 

040000 

002000 

000200 

001000 

004000 

000004 

000020 

000001 

100000 

000100 

001000 

000010 

004000 

000020 

000200 

040000 

010000 

020000 

000040 

000400 

002000 

000002 

170200 

000200 

000010 

00000^ 

00000 

OOOIC 

00002 

000040 

177660 

177620 

000000 

OCOOO/ 

000001 

0C0002 

000005 

0000U6 


UD.800= 

UISAR0= 

UISAR4= 

UISAR5= 

UISAR6= 

UISAR7= 

UISDRO= 

U1SDR4= 

U1SDR5= 

UISDR6= 

UISDR7= 

UM.CLI= 

UM.DS8== 

UM.NBR= 

UM.OVR= 

US.AJO= 

US.BSP= 

US.BSY= 

US.FOR= 

US.FRK= 

US.KPF= 

US.LAB= 

US.MDE= 

US.MDH= 

LJS.P1NT= 

U.  OFL= 

US.PUB= 

US.PWF= 

US.RED= 

US.SHR= 

U5.SPU= 

US.UMD= 

US.VV  = 

US.WCIC= 

UU.ABO- 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.ONL= 

UU.RCT= 

UU.RDY= 

UU.SER= 

UU.SIO= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.8PKT= 

U.BUF 

U.CBF  : 

U.CLI 

U.CNT 

U.COTQ 

U.CTCB 


000003 

177640 

177650 

177652 

177654 

177656 

177600 

177610 

177612 

177614 

177616 

000036 

00C2OO 

000400 

000001 

000001 

000002 

000200  I 

000040 

000002 

000001 

000004 

000002 

000020 

000100 

000001 

000004 

000010 

000002 

000001 

000002 

000010 

000001 

000010 

000400 

000100 

000004 

000010 

002000 

000020 

000002 

000200 

000001 

001000 

000040 

000062 

000032 

000066 

000064 

000  ■)22 

00CC44 

000024 

000032 

177772 

000030 

00C03G 

000026 


U.CTL 

U.CTYP 

U.CUl 

U.CW2 

U.CW3 

U.CW4 

U.CYL  = 

U.DCB 

U.FCDE= 

U.FNUM= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MEDI  = 

U.MLUN= 

U.MUP 

U.OUN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SC6 

U.SHST= 

U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.TCHP 

U.TCi/P 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

u.urc 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.UTIL= 

U.VCB  = 

U.VSER= 

U.2ME0= 

•J2.AT.^ 

U2.CRT= 


000004  ( 

000052 

000010  ( 

000012 

000014 

000016 

000104 

000000  I 

000042 

000040 

000102 

000032 

000034 

177774 

000040 

000050 

177772 

177776 

000112 

C00113 

000110 

000002 

000034 

000020 

000076 

000074 

000036 

000005 

000007 

000036 

000042 

000043 

000040 

000036 

000060 

000053 

000047 

000100 

000026 

000054 

000056 

000050 

000046 

000024 

000107 

000044 

000052 

000006 

000114 

000060 

000106 

000036 

000034 

000120 

000070 

000020 

002000 
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POLAL  -  NETyORK  POOL  ALLUCATION  MACRO  V05.03b  Saturday  29-Jun-85  00^36 
$XDEAC  -  DEALLOCATE  COPE  BUFFER  IN  EXTENDED  POOL 


235  000160 

010546 

236  000162 

010005 

237  000164 

010046 

238  000166 

239  000172 

012604 

2A0  0001 7A 

241  000200 

U12703  000000' 

242  000204 

061301 

243  000206 

042301 

244  000210 

001476 

245  000212 

0V713  OOOOOOG 

246  000216 

CJ5"46 

247 

248  000220 

010316 

249  000222 

010346 

250  000224 

251  000230 

012602 

252  000232 

011203 

253  000234 

001402 

254  000236 

020503 

255  000240 

103367 

256 

257  000242 

258  000246 

259  000254 

010314 

260  000256 

261  000262 

010546 

262  000264 

C60116 

263  000266 

020326 

264  000270 

001016 

265  000272 

266  000276 

010346 

267  000300 

268  000304 

012600 

269  0OC3O6 

012046 

270  000310 

061001 

271  000312 

272  000320 

012614 

273  00032J 

274  000326 

275  000326 

010522 

276  000330 

061216 

277  000332 

020526 

278  000334 

001015 

279  000336 

061201 

280  000340 

281  000344 

282  C0D552 

011446 

283  000354 

284  0C036' 

012642 

285  000364 

012616 

236  000366 

010204 

287  000370 

288  000374 

010164  000002 

289  000-1 00 

016777  17/376  OOOOOOG 

290 

291  G00406 

005726 

10$: 


20$: 


30$: 


40$: 


100$: 


TST 


(SP)< 


MOV 

R5,-(SP)       ; 

MOV 

R0,R5 

MOV 

RO,-(SP) 

CALL 

ICEACX 

MOV 

{SP)+,R4 

SAVMAP 

MOV 

*XAVLL-2,R3 

ADD 

(R3),R1 

BIC 

(R3)t,R1 

BEQ 

100$ 

MOV 

5!XAVL,(R3) 

TST 

-(SP) 

MOV 

R3,(SP> 

MOV 

R3,-(SP) 

CALL 

$CEACX 

MOV 

(SP)+,R2 

MOV 

(R2),R3 

BEQ 

20$ 

CMP 

R5.R3 

BHIS 

lOi 

SAVMAP 

MAP 

4{SP) 

MOV 

R3,fR4) 

RE SWAP 

MOV 

R5,-(SP) 

ADD 

R1,(SP) 

CMP 

P3,($P)-i 

BNE 

30i 

SAVMAP 

MOV 

R3,-(SP) 

CALL 

$CEACX 

riov 

(SP)+,RO 

MOV 

(RO)+,-(SP) 

ADD 

(R0),R1 

MAP 

6(sp! 

MOV 

(SP)t,(R4> 

RESMA° 

MOV 

R5j(R2)+ 

ADD 

(R^),(SP) 

CMP 

R5.(SP)+ 

ADD 

40i 

(R2),R1 

SAVMAP 

MAP 

2(SP) 

MOV 

(R4>,-(SP) 

MAP 

2(SP) 

NOV 

(SP)+,-(R2) 

MOV 

(SPJ+,(SP) 

MOV 

R2,R4 

MAP 

(SP) 

MOV 

R1,2(R'.) 

MOV 

XAVLL.aX^VL 
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COPY  UNMAPPED  ADDRESS 

SET  UP  ADDRESS   FOR  $CEACX 

flAP  EXTENDED  ADDRESS 

COPY  MAPPED  ADDRESS 

SAVE  BLOCK  MAPPING 

POINT  TO  ALLOCATION  MASK  WORD 

ROUND  TO  NEXT  BOUNDARY 

CLEAR  EXCESS 

IF  EQ,  NOTHING  TO  RETURN 

COPY  CEX  ALLOCATION  LISTHEAD 

RESERVE  A  WORD  ON  THE  STACK 

SAVE  UNMAPPED  ADDRESS  IN  RESERVED  WORD 

COPY  ADDRESS  OF  CURRENT  BLOCK 

MAP  ADDRESS  OF  BLOCK 

SAVE  MAPPED  ADDRESS 

GET  ADDRESS  OF  NEXT  BLOCK 

IF  EQ  END  OF  CHAIN 

BLOCK  GO  BEFORE  HERE? 

IF  HIS  NO 

SAVE  CURRENT  MAPPING 

MAP  BLOCK  BEING  RELEASED 

ASSUME  BLOCKS  NOT  ADJACENT 

RESTORE  MAPPING 

CALCULATE  ADDRESS  OF  NEW  BLOCK 

EQUAL  TO  NEXT  IN  CHAIN? 

IF  NE  NO 

ELSE,  SAVE  MAPPING 

COPY  BLOCK  ADDRESS 

MAP  BLOCK 

GET  MAPPED  ADDRESS 

SAVE  LINK  WORD 

MERGE  TWO  BLOCKS 

MAP  BLOCK  BEING  RELEASED 

MOVE  LIi«  WORD  TO  BLOCK  RELEASED 

RESTORE  MAPPING 

ADDRESS  OF  PREVIOUS  BLOCK  IS  ON  TOP  OF  STACK 

ASSUME  NO  AGLOMERATION 

CALCULATE  ADDRESS  OF  NEXT  BLOCK 

EQUAL  TO  BLOCK  BEING  RELEASED? 

IF  NE  NO 

MERGE  TWO  BLOCKS 

SAVE  CURRENT  MAPPING 

MAP  TO  BLOCK  BEING  RELEASED 

SAVE  LINK  WORD 

RESTORE  HAPPING 

MOVE  LINK  WORD  TO  PREVIOUS  BLOCK 

REPLACE  BLOCK  MAPPING, 

SET  NEW  ADDRESS  OF  SLOCK 

MAP  TO  BLOCK  PF'. EASED 

SET  SIZE  OF  3L0LK  RELEASED 

UPDATE  CEX  COPY  OF  LISTHEAD 

CLEAN  UP  STACK 


n 
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121 
122 
123 
124 

125  OOOIOi 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
UO 
U1 
U2 
H3 
KA 
U5 
U6 
147 
148 
149 
150 
151 
52 

;53 

154 

155 


MOV 


R0,2(SP) 


20$: 


30S: 


.ENDC 

;  OF  M$$MGE 

RETURN 

•  * 

.IFF 

;  DF  R$$11M 

NOV 

R3,-(SP) 

MOV 

R4,-CSP) 

MOV 

R1,-(SP) 

MOV 

$PDVA,R3 

z.avl(R3),$pravl; 

30$ 

-(sp)            ; 

MOV 

R1,R3 

MOV 

$BIAS,RO 

CALL 

$HAPX 

BIS 

R2,$PRAVL 

CALL 

$$RQCB 

ADC 

2(SP) 

MOV 

$PDVA,R3 

MOV 

$PRAVL,2.AVL(R3) 

BIC 

#160006, Z.AVL(R3) 

CALL 

a(SP)+ 

; 

MOV 

R4,fi0 

ROR 

fSPH 

MOV 

(SP)+,R1 

MOV 

(SP)+,R4 

MOV 

(SP)*,R3 

RETURN 

.ENDC 

;  Df  R$$11M 

Page  6-1 

;*  RETURN  BUFFER  ADDRESS  IN  RO 


*  RETURN  TJ  USER  STATE  AND  THEN  TO  CALLER 


SAVE  SOME 
REGISTERS 
SAVE  BYTE  COUNT 

GET  PDV  ADDRESS  FOR  THIS  PROCESS 
ASSUME  NO  AVAILABLE  SPACE 
SET  UP  LISTHEAD  OF  AVAILABLE  SPACE 
BR  IF  NO  AVAILABLE  SPACE 

SET  UP  COMPLETION  FLAG 
COPY  SIZE  OF  BLOCK  REQUIRED 
SET  UP  BIAS  OF  PROCESS 

MAP  TO  THE  PROCESS 

SET  PROPER  APR  BITS 

ALLOCATE  THE  BLOCK 

SET  C-BIT  FOR  RETURN 

GET  PDV  ADDRESS  FOR  PROCESS 

RESET  ALLOCATION  POINTER 
;;  CLEAR  MAPPING  BITS 

CO-ROUTINE  RETURN  TO  RESTORE  MAPPING 
COPY  ADDRESS  OF  ALLOCATED  BLOCK 
SET  C-BIT  FOR  RETURN 
RESTORE  BYTE  COUNT 
RESTORE 

REGISTERS 


PR  10  - 
SPRIO 

25 
25. 
25 
25' 
25 
25 
25 
26 
26 
26 


PR!0  - 


PRIO  -   READ  PROCESS    INTO   CORE 
$PRIC  -   PROCESS    1/0 
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253  000132 

254 

255 

256 

257 

258  000 13A 

259  0001A2 

260  00CK4 

261  00015- 
26?  0001 5-- 

A0$: 

RETURN 

;  ERROR 

CONDITIONS 

012767 
000756 
012767 
000735 

000002  000010' 
000006  000010' 

101$: 
111$: 
121$: 

MOV     #ERR2, ERROR 

BR     20$ 

MOV     #ERR6, ERROR 

BR     10$ 

CRASH 

OPEN  FAILURE 

NOT  CONTIGUOUS 

SOMEBODY  UNLINKED  OUR  SUS-PCBl 
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PRIO  -  READ  PROCESS 
Symbol  table 
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ALOCB  = 

AS.DEL= 

AS.EXT= 

AS.RED= 

AS.UIRT  = 

A$$CH<= 

A$$CPS= 

A$SPRI= 

AStTRP= 

A. IOC 

A.LGTH= 

A.MPCT 

A.PCB 

A.PCBL 

A.PRI 

A.STAT 

A.TCB 

A.TCBL 

BLOX 

BUF  JMP= 

BYTE.S 

CMODE  = 

C$LEN 

CSNID 

CSNXH 

CtTIM 

C$SCKP= 

C$$ORE= 

C$$RSH= 

DEACB  = 

DECPT  = 

DSKBUF 

DSAMXC 

DSAMXH 

D$ANN 

DSBRPR 

DSBRTM 

OSDELT 

DSDELU 

OSEND  = 

DSFNB 

DSHIOR 

DSHOST 

DSINAC 

DSINCT 

DSIPL 

DSL  ID 

DSLNAM 

DILNUM 

D$LST 

DSMXC 

DSMAX" 

D$MAXV 

DSMLL 

DSMNOD 

DSN'S 

D$N&EA 


««»«••  GX 

000010 

000004 

000001 

000002 

000000 

000000 

000000 

000000 

000003 

oooou 

OOC^II 

000012 

000000 

000002 

000010 

000004 

000006 

OOOOOOR 

172354 

000002R 

UOOOO 

000012 

000000 

000002 

000010 

000000 

000400 

177564 


****** 

OOOOOOR 

000072 

000074 

000000 

00010? 

OOOIOJ 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 

000006 

000014 

'00047 

^0064 

)0066 

J0070 

30040 

00041 

30062 

^00056 


DSNBRA 
D$NEND= 
DSNLN 
0$NN 
DSOUTT 
DSRETF 
DSRiMN 
DtRTMR 
D$SEG 
D$SER 
DSSQRL 
D$SBUG= 
0$$ISK= 
D$$L11= 
D$$YNC= 
D$$'.NM= 
ERROR 
ERR10 
002  ERR12 
ERR14 

002  ERR16 
ERR18 
ERR2 
ERR20 
ERR22 
ERR24 
ERR26 
ERR28 
ERR30 
ERR72 
ERR34 

003  ERR36 
ERR38 
'^.nR4 
ERR6 
ERRS 
EXTEND 
E$$XPR= 
FE.EXV= 
FE.PLA= 
FL.CEX= 
FI..LLC-- 
FL.10P= 
FMASK  = 
F$$L\/L  = 

G*npp= 

r  ,"SS= 
*TTK= 
C$$WRD= 
I$$RAR= 
I$$RDN^ 
KISARO= 
KISAR6= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 


000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

OOOC10R 

000012 

000014 

000016 

000020 

000022 

000002 

000024 

000026 

000030 

000032 

000034 

000036 

000040 

000042 

000044 

000046 

000004 

000006 

000010 

000006R 

OOOOOC 

*»*»♦*  GX 

**»*»*  GX 

*»*♦*♦  GX 

******  GX 

******  GX 

******  GX 

000001 

oooooo 

OOOGuO 
000000 
000000 
000000 
000000 
172340 
172354 
177546 
177546 
000000 
000074 


LB$REV= 

LD$ACC= 

LD$CLS= 

LD$LP  = 

LD$REL= 

LD$RSV= 

LD$SUP= 

INKS 

L$BAS6 

LSBBLK 

LSBDAT 

LSBEXT 

LSBFLG 

L$8FL2 

LSBHGV 

LSBHRB 

002  LSBLDZ 
L$BLI8 
LSBLRL 
LSBLUN 
L$BMX/ 
L$8MXZ 
LSBOFF 
LSBPAR 
LSBPRI 
LSBROB 
LSBROL 
L$BSA 
LSBSEG 
LSBSGL 
LSBSYS 
LSBTSK 
LSBWND 
LSBXFR 
L$$ASG= 
L$$DRV= 

002  L$$P11= 
L$$11R= 
MPAR  = 
MPCSR  = 
M$$CR8= 
M$$CRX= 
M$$FC3= 
M$$MGE= 
M$$NET= 
M$$OVR= 
NF$BLK= 
NF$DMO= 
NF$MOU= 
NF$RST= 
NF$SCN= 
NF$SHU= 
,'JF$T!M= 
NSACCI 

i^';actl 

NSCIR 
N$DLA 


000400 

100000 

020000 

000000 

000004 

040000 

'lOOOlO 

000004R 

001000 

000360 

000032 

000352 

000030 

00r774 

000012 

000356 

000016 

000040 

000776 

000362 

000014 

000020 

000022 

000004 

000346 

000364 

000366 

000010 

000026 

000354 

000025 

000000 

000024 

000350 

000000 

000000 

000001 

000000 

172100 

177746 

000124 

000000 

000000 

000000 

000000 

000000 

000100 

000010 

000040 

000002 

000020 

000004 

000200 

000000 

000032 

000034 

000020 


N$DLY 
NSELEN 
N$ENC 
NSERRC 
N$FLG 
NSFNC 
NSGENQ 
002  N$GTM 
N$HIGH 
NSLLT 
NtLLTM 
N$LVC 
NSMBXQ 
NSPLLT 
N$SLA 
NSSNOD 
N$TIM 
N$VCB 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$M0V= 
N$$NCT= 
N$$PEM= 
PARHD  = 
PCBA 
■^IRQ  = 
PLGTH  = 
PMODE  = 
PR.L8L 
PR. PAR 
PR. SUB 
PR.XFR 
PRO   = 
PR1 
PR2 

PR3   = 
PR4 
PR5 

PR6  = 
PR7  = 
PS 

PS.APR= 
PS.CHK= 
PS.CKP= 
PS.CKR= 
PS.COM= 

p:.del= 

PS.DRV= 
PS.FXD= 
PS.LIO= 
PS.NSF= 
PS.OUT= 
P3.PER= 
PS.PIC= 


OOOOU 

000054 

000042 

000022 

000005 

000006 

000052 

000015 

000033 

000026 

000024 

000036 

000050 

000030 

000016 

000012 

000004 

000010 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

*♦*«*»  GX 

00001 2R 

177772 

******  GX 

030000 

0001 56R 

000752R 

001332R 

001620R 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

000007 

010000 

040000 

020000 

000200 

000^10 

000020 

004000 

001000 

000400 

100000 

002000 

000100 


PS.SVS= 
P$$P45= 
P$$WRD= 
P.BLKS 
P. BUSY 
P. IOC 
P.LNK 
P. MAIN 
P.  NAM 
P.  OWN 
P.PRI 
P. PRO  = 
P.REL 
P. SIZE 
P.STAT 
P.  SUB 
P.SWSZ 
P.TCB 
P. WAIT 
Q$$0PT= 
RSLDAT 
RSLFLG 
RSLHGV 
RSLLDZ 
RSLMXV 
R$LnXZ 
RSLNAM 
002  RSLOFF 
R$LSA 
RSLSEG 
RSLSIZ 
RSLUND 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SUR   = 
S$$WRG= 
S$$YSZ= 
TPS   = 
TS$ACP= 
TS$CHK= 
TS$CMP= 
TS$IOP= 
TS$NEW= 
TSSNHD- 
TS$NSD= 
TS$NXH= 
TS$PIC= 
TS$PMD= 
TS$PRV= 
TS$RES= 
TS$SLV= 
TS$SUP= 
TS$XHR= 
T$$KMG= 
T$$MIN= 


000040 

000000 

000000 

000016 

000024 

000003 

000000 

000012 

000004 

000026 

000002 

******  GX 

000014 

000016 

000030 

000010 

000022 

000026 

000020 

000010 

000026 

000024 

000006 

000012 

000010 

000014 

000000 

000016 

000004 

000022 

000034 

000020 

000000 

000001 

000000 

000000 

177570 

000000 

007600 

177564 

020000 

000100 

000200 

000020 

000001 

040000 

002000 

000002 

100000 

010000 

000400 

000040 

004000 

000010 

000004 

000000 

000000 
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A$$CHI<;= 
A$$CPS= 
A$$PRI= 
A$$TRP= 
C$$CKP= 
C$$ORE= 
Ct$RSn= 
0$$BUG= 
D$$ISK- 
D$$Ln  = 
Df.$YNC- 
OSSYNM- 


000000 
000000 
000000 
000000 
000000 
Q00400 
177564 
1775U 
000000 
000001 
000000 
000000 


E$$XPR= 
F$$LVl= 
G$$TPP= 
G$$TSS: 
G$$rTK  = 
G$tWRD= 
I$$RAR= 

I$$RDN: 

K$$CNT: 
K$$CSR^ 
KSSlDC: 
K$$TPS: 


000000 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
1775A6 
1775'.6 
COOOOO 
000074 


LD$LP  = 

000000 

N$$8UF= 

000001 

R$$SNO= 

000000 

L?.$ASG= 

000000 

N$$LDV= 

000001 

R$$11M= 

000000 

L$$DRV= 

000000 

N$$MCP= 

000001 

S$$WRG= 

000000 

L$$pn= 

000001 

N$$MLL= 

000001 

S$$YSZ= 

007600 

L$$11R= 

000000 

N$$I«I0V= 

000010 

T$$KMG= 

29S2SS 

M$$CRB= 

000124 

N$$NCT= 

000001 

T$$MIN= 

000000 

M$$CRX= 

000000 

N$$PEM= 

000001 

V$$CTR= 

001000 

M$$FCS= 

ooooon 

P$$PA5= 

000000 

X$$DBT= 

000000 

M$$MGE= 

000000 

P$$URD= 

000000 

$AL0C2 

000006RG 

H$$NEr= 

000000 

Q$$OPT= 

000010 

$DEAC2 

000076RG 

»1$$0VR= 

000000 

R$$t)ER--^ 

000000 

SPRAVL 

000002RU 

N$$ACC= 

000001 

R$$K11= 

000001 

.  AB5.  000000 
000240 
Errors  detected: 


000 
001 
0 


(rw,i,gbl,abs,ovr; 
(rw,i,lcl,rel.con) 


»•*  Assembler   statistics 
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A$$CHK.= 

A$$CPS= 

AS$PR1= 

A$$TRP= 

CS$CKP= 

CttORE= 

C$$RSH= 

D$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

ERRBUF 

ERRMSG 

E$$XPR= 

FMTO 

fMTA 

FMT4A 

FHT5 

FMT5A 

FMT5B 

FMT9 

FM.O   = 

FM.A   = 


000000 

000000 

000000 

000000 

000000 

000400 

17756A 

1775U 

000000 

000001 

000000 

000000 

002272R 

002262R 

000000 

002064R 

002065R 

0021 15R 

0021 56R 

002201 R 

002240R 

0022A3R 

000000 

000000 


FM.4A  = 

FM.5  = 

FM.5A  = 

F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

0C2  K$$LDC= 

002  K$$TPS= 

LDSLP  = 

002  L5$ASG= 

002  L$$DRV= 

002  L$$P11= 

002  L$$11R= 

002  |V|$$CRB= 

002  M$$CRX= 

002  M$$FCS= 

M$$MGE= 


000000 
000000 
000000 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 


M$$NET= 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PERR 

P$$P45= 

P$$WRD= 

Q$$OPT- 

REP4A 

REP5A 

RTSPC 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

S$$WRG= 

S$$VSZ= 


000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

OOOOOOR 

000000 

000000 

000010 

000066R 

000154R 

000064R 

000000 

000001 

000000 

000000 

000000 

007600 


T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT-- 

$C5TA  = 

SERRQX 

SERRQY 

$ERRXQ 

SERRZA 

$ERR44 

$ERR45 

$ERR46 

$ERR47 

$ERR48 

$ERR49 

$ERR50 

$ERR51 

$ERR53 

$ERR54 

iERR55 

$ERR56 

$ERR57 

$ERR58 


000000 

000000 

001000 

OOOCOO 

*«•*♦♦  GX 

001506RG 

001544RG 

001446RG 

001402RG 

OOOOOORG 

000036RG 

000074RG 

000122RG 

0001 5CRG 

000234RG 

000256RG 

0003?2RG 

000360RG 

000410RG 

000462RG 

00C524RG 

000560RG 

00061 6RG 


.  ABS.  000000 
000232 
DATA    002400 
Errors  detectea: 


000  (RU,I,GBL,ABS,OVR) 

001  (RW,I,LCL,REL,:ON) 

002  (RW,D,lCL,REL,C0N) 

0 


♦••  Assembler   statistics 


Work      file     reads:  0 

Work      file  ijrites:  C 

Size  of   work   file:  10137  Words 

Size  of   core  pool:  14440  Words 

Operating     system:  R5X-11M/PLUS 

Elapsed   time:   00:00:23.01 

Sr : PROERR. /2,[1 32, 134]PROERR/rR/-SP=Sy: 


(  40  Pages) 
(  55  Pages) 


$ERR59 

000662RG 

002 

$ERR60 

00071  ORG 

002 

$£PR61 

000746RG 

002 

$Eh  62 

000770RG 

00? 

$ERR63 

00  014RG 

002 

nn? 

$ERR64 

00  032RG 

U02 

002 

$ERR65 

001064RG 

002 

on? 

$ERR66 

001130RG 

002 

nn? 

$ERR67 

001160RG 

002 

on? 

$ERR68 

001216RG 

002 

nn? 

$ERR69 

00i260RG 

002 

no? 

$ERR70 

001332RG 

002 

nn? 

$ERR9C 

001700RG 

002 

nn? 

$ERR9D 

001726RG 

002 

nn? 

$ERR9E 

002006RG 

002 

no? 

$ERR99 

001622RG 

002 

nn? 

$FNOUT= 

»**♦♦*  GX 

nn? 

SNAME  = 

«»»«»«  GX 

no? 

$PNAME:= 

•»«*»«  GX 

nn? 

$PRV.N= 

«»*««♦  GX 

on? 

$REP.P= 

«*♦«»»  GX 

on? 

$SAVAL= 

•*»•♦•  GX 

002 

$TIOUT= 

»*•*♦*  GX 

[1,1]RSXMCM.SML/ML,ri30,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[132,10]PROERR 


PROERR 


CREATED  BY  MACRO  ON  29-JUM-85  AT  00:37 
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267  000706 

268  000712 

269  000714 

270  000716 

271  000722 

272  000724 

016200 
001415 
010203 

005000 
050200 

000024 

MOV 

BEQ 

MOV 

CALL 

CLR 

BIS 

N$R0A1t2(R2),R0 

45$ 

R2,R3 

$MAPX 

RO 

R2,R0 

274  000726 

275  000732 
276 

277  000736 

278  000740 

279  000742 

016301 
066301 

000022 
000030 

MOV 
ADD 

N$R0A1(R3),R1 
N$R0A2(R3),R1 

005020 
005301 
001375 

40$: 

CLR 
DEC 
BNE 

(R0)  + 

Rl 

40$ 

280 

281  000744 

282  000745 

283  000752 

284  000756 
285 

286  000762 

287  000770 

288  000774 

010302 

016200 
016201 

000114 
0U0116 

45$: 

MOV 
SAVMAP 
MOV 
MOV 

R3,R2 

N$TNC(R2),R0 
N$TNCt2(R2),Rl 

022701 
101003 

140000 

MAP 
CMP 
BHI 

Z.DSP(R5) 
#140000, Rl 
50$ 

289 

290  000776 

291  001004 
292 

293  001014 

294  001016 

295  001022 

062777 

000200 

OOOOOOG 

505: 

ADD 
BIAS5 

#200,aKSAi?5 
Rl 

105021 
022701 
00100? 

140000 

60$: 

CLR8 

CMP 

BNE 

(Rl)  + 

#140000, Rl 
70$ 

296 

297  001024 

298  001030 
299 

300  001036 
301 

302  001042 

303  001046 
304 

305  001050 

306  001052 

307  001054 
308 

309  001060 
310 

012701 
062777 

120000 
000200 

OOOOOOG 

MOV 
ADD 

#120000,1'! 
#200,SKSAR5 

70$: 

soe 

R0,60$ 

RESMAP 
RETURN 

010400 
005300 
010062 

000100 

80$: 

MOV 
DEC 
MOV 

RETURN 

R4,R0 

RO 

R0,N$TLC(R2) 

;SET  APR  BIAS 

;IF  ENDNODE  -  BRANCH 

;SAVE  XPT  DDB  ADDRESS 

;MAP  TO  ROL 

;SET  UP  VIRTUAL  ADDRESS 


;GET  NODE  ROL  SIZE 
;  INCLUDE  AR'^A  ROL 

; CLEAR  ROL  TABLE 

; COUNT  ONE  LESS  l-NTRY 

;IF  MORE  -  BRANCH 

.•RE'^TORE  XPT  DDB 

.-SAVE  MAPPING 

;6ET  BYTES  IN  TRANSPORT  NODE  COUNTERS 

;AND  POINTER  TO  TRANSPORT  NODE  COUNTERS 

;MAP  TO  PROCESS  SPACE 
;APR  6  MAPPING  ? 
;JF  NO  BRANCH 

.-ACCESS  NEXT  4K  BLOCK  OF  XPT 
;8IAS  Rl  FOR  APR5 

; CLEAR  TRANSPORT  NODE  COUNTERS 
;ACCESS  NEXT  BLOCK  ? 
;IF  NO  -  BRANCH 

;ACCESS  FIRST  WORD  OF  NEXT  BYTE 
;MAP  TO  NEXT  4K  BLOCK 


;RESTORE  MAPPING 


GET  #  OF  XPT  CHANNELS 
DON'T  INCLUDE  CHANNEL  0 
SAVE  IN  DATA  DESCRIPTOR 
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204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
2K 
215 
216 
217 
218 

219  000326 

220  000330 

221  000332 

222  000336 

223  000340 

224  000344 
^25  000350 
2::  000352 

227  000354 

228  000356 

229  000360 

230  000362 

231  000364 

232  000366 

233  000370 
234 

235 


005714 

001771 

022714  000006 

103766 

162703     000002 

032703     000007 

001361 

005324 

001404 

005344 

000262 

001001 

005005 

000241 


CHECK   -   CHECK    STB  RECORD   FOR   LEGAL    FORMAT 

INPUTS; 

R3  =  RPrORD  LENGTH 

R4  =  RE  ORD  ADDRESS 

R5  =  POINTER  TO  FIRST  SYMBOL  BLOCK 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 

V-BIT  =  SET  IF  NEITHER  GSD  NOR  END  GSD  RECORD 

R3  INCREMENTED  BY  2 

R4  DECREMENTED  BY  2 

R5  =  0  IF  END  GSD  RECORD 


CHECK: 


10$: 


TST 
BEO 
CMP 
BLO 
SUB 
BIT 
BNE 
DEC 
BEQ 
DEC 
SEV 
BNE 
CLR 
CLC 
RETURN 


.DSA8L  LSB 


(R4) 

111$ 

#6,{R4) 

1li$ 

#2,R3 

#7,R3 

111$ 

(R4H 

10$ 

-(R4) 

10$ 
R5 


FIRST  WORD  MUST  BE  BETWEEN  1  AND  6  INCLUSIVE 


OMIT  FIRST  WORD  FROM  COUNT  CONSIDERATIONS 
COUNT  MUST  BE  A  MULTIPLE  OF  8. 

GSD  RECORD  ?  (CLEARS  V-BIT) 

YES  .. 

END  GSD  RECORD  ? 

ASSUME  NOT  END  GSD  RECORD 

NO  .. 

INDICATE  END  GSD  SEEN  (CLEARS  V-BIT) 

INDICATE  SUCCESS 


TMPACI 


21 
21 
21 
21 
21 
21 
2c 
21 
2; 
2; 
2; 
2; 
2; 
2: 
2: 
2: 
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I  1^ 

00:38 


TMPAC 


TMPftCT   -   TEMPLATE   PROCESSING  AC  MACRO  V05.05b   Saturday   29-Jun-85 
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217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
?32 


SPECHA  -  ".PECHA"  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

R2=DESTR0VED 


TMPAC 


OOC.^56 

000256 

000262 

000266  103405 

000270  112712  OOOOOOG 

000274  062767  000002  OOOOOOG 


iPECHA:: 


000302 


10$: 


CALL 

CALL 

BCS 

MOVS 

ADD 

RETURN 


SVXLLC 

$RQ1 

10$ 

#.PFCHA,(R2) 

#2,$SIZE 


MAKE  SURE  IT'S  NOT  AN  LLC 
REQUEST  BINARY  FILE 
IF  CS,  NO  ACCESS 
STORE  FUNCTION  CODE 
ADJUST  DATA  BASE  SIZE 
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580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 

592  001260 

593  001260 

594  001266 

595  001272 

596  001274 

597  001300 

598  001302 

599  001310 

600  001312 

601  001316 

602  001322 

603  001324 

604  001332 

605  001340 


$MOD  -  MODIFICATION  ACTION  ROUTINE 

INPUTS: 

.PNUMH^HIGH  ORDER  NUMERIC  VALUE 
.PNUM8=L0W  ORDER  NUMERIC  VALUE 
F2.SU8  SET  IF  NEGATIVE  MODIFICATION 

OUTPUTS: 

$DIFF=M0DIFICATI0N  VALUE 
■2.SU8  CLEARED 


§M0D: 


016767 

OOOOOOG  OOOOOOG 

MOV 

.PNUHB,$DIFF 

005767 

OOOOOOG 

TST 

.PNUMH 

001014 

BNE 

10$ 

105767 

000001 G 

TSTB 

$DIFF+1 

001011 

BNE 

10$ 

032767 

OOOOOOG  OOOOOOG 

BIT 

#F2.SUB,$FLAG2 

001410 

BEQ 

20$ 

005467 

OOOOOOG 

NEG 

$DIFF 

105467 

OOOOOOG 

NEGB 

. PNUM8 

100403 

BMI 

20$ 

10$: 

EMSG$ 

19 

042767 

OOOOOOG  OOOOOOG 

20$: 

BIC 

#F2.SUB,$FLAG2 

GET  NUMERIC  VALUE 

SINGLE  PRECISION  NUMBER? 

IF  NE,  NO  -  ERROR 

IS  VALUE  CONTAINED  IN  8  BITS? 

IF  NE,  NO  -  ERROR 

NEGATIVE  MODIFICATION? 

IF  EO,  NO 

NEGATE  THE  VALUE 

ANY  SIGNIFICANCE  LOST? 

IF  MI,  NO 

PRINT  TRUNCATION  WARNING 

CLEAR  NEGATIVE  FLAG 


RETURN 
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263 

2b<,  000060 

265  000064 

266  000070 

267  000076 

268  000100 

269  000104 

270  000106 

271  000112 

272  000114 
273 

274  000120 

275  000126 
276 

277  000130 

278  000134 

279  000140 

280  000144 

281  000150 

282  000152 

283  000156 

284  000160 

285  000164 

286  000166 
287 

288  000172 
289 

290  000174 

291  000200 

292  000202 

293  000210 

294  000234 

295  000246 

296  000252 

297  000254 

298  000262 

299  000264 

300  000270 
301 

302  000272 

303  000300 

304  000302 

305  000306 

306  000310 

307  000514 

308  000320 

309  000322 

310  000326 

311  000330 
312 

313 
314 
315 

316  000332 

317  000334 
318 

319 


005064 
005064 
032764 
001513 
016403 
001510 
022703 
001503 
005067 


OOOOOOG        10$: 

000002G 

OOOOOOG  OOOOOOG 

OOOOOOG 

177777 

000152' 


022764  021274  OOOOOOG 
001052 


005077  OOOOOOG 

105077  OOOOOOG 

017700  OOOOOOG 

001410 

016001  000004 

001405 

005060  000004 

010100 


11$: 

017700  OOOOOOG        810$: 
001425 

811$: 

005760  000006 

001356 

022764  114224  OOOOOOG  12$: 

001003 

000406 

022764  017704  OOOOOOG  15$: 
001002 


010446 


012604 

005064  OOOOOOG 

000261 


18$: 


19$: 
20$: 


CLR 
CLR 
BIT 
BEQ 
MOV 
BEQ 
CMP 
BEQ 
CLR 

CMP 
BNE 

SWSTK$ 

CLR 

CLRB 

m 

MOV 
BEO 
CLR 

MOU 

CALL 

RETURN 

MOV 

BEQ 

DECL$S 

MRKT$S 

WTSE$S 

TST 

BNE 

CMP 

BNE 

CALL 

BR 

CMP 

BNE 

CALL 

MOV 

CALL 

CALL 

MOV 

CLR 

SEC 

RETURN 


Z.DSP(R4)  ;  ZERO  DISPATCH  TABLE  ADDRESS 

Z.DSP+2(R4)  :  ZERO  RELOCATION  BIAS 

*ZF.LLC,Z.FLG(R4)  ;  IS  THIS  AN  LLC? 

20$  ;  IF  EQ,  NO 

Z.DAT(R4),R3  ;  GET  LINE  TABLE  ADDRESS 

20$  ;  IF  EQ,  NO  LINE  TABLE  ($XPRO) 

#-l,R3  ;  IS  THIS  AN  EMPTY  LLC  LINE  TABLE? 

19$  ;  IF  EQ,  YES 

..PDV  ;  DISCARD  ANY  PARTITION  LINE  TABLES 


#»fiEVL 
12$ 


,Z.NAM(R4) 


Rl 


810$ 

SLGPDV 

aLGSTT 

SLGDDB,RO 

11$ 

E$TCB(RO), 

11$ 

E$TCB(R0) 

R1,R0 

aEXRON 


aLGDDB,RO 
12$ 

*1,#1,#2 

#1 

E$STAT(RO) 

811$ 

#*RXPT,7.NAM(R4) 

15$ 

$DEAHC 

18$ 

/!''.'?ECL,Z.NAM(R4) 

18$ 

DEAECL 

R4,-(SP) 

GETIND 

XLT16 

(SP)+,R4 

Z.DAT(R4) 


ERROR  CONDITIONS 


101$: 
111$: 


CRASH 
CRASH 

.DSABL  LS8 


;  IS  THIS  EVL  ? 
IF  NO  -  BRANCH 

NO  EVENT  LOGGING  PROCESS  PRESENT  NOW 

CLEAR  LOGGING  STATS 

GET  ADDRESS  OF  LOGGING  DATABASE 

IF  EQ,  NOT  PRESENT 

GET  ADDRESS  OF  EVENT  COLLECTOR'S  TCB 

IF  EQ,  NOT  ACTIVE 

FORCE  COLLECTOR  TO  EXIT 

COPY  EVC  TCB  ADDRESS 

UNSTOP  EVENT  COLLECTOR 


GET  EVL  DDB  ADDRESS 

BR  Ir  NO  EVENT  LOGGING 

MAKE  SURE  EVC  GETS  SCI EDULED 

WAIT  1  SECOND  FOR  EVC  ..  TO  CLEAN  UP 

HAS  EVC...  GONE  AWAY  YET? 
BR  IF  NO 
;  IS  THIS  XPT? 
BR  IF  NO 

DEALLOCATE  MINHOP/MINCOST, COUNTERS 
CONTINUE 

;  IS  THIS  ECL? 
BR  IF  NO 

DEALLOCATE  ECL  NODE  COUNTERS 
SAVE  PDV  ADDRESS 
GET  PDV  INDEX 
DE-ALLOCATE  LINE  TABLE 
RESTORE  PDV  ADDRESS 
ZERO  LINE  TABLE  ADDRESS 
RETURN  WITH  C-BIT  SET 


NETLDR  LOGIC  ERROR 

SOMEBODY  UNLINKED  OUR  SUB-PCE 


uTiiiwi    -  wTi    iiwinin  BniiTiwF!; 
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780 

781  001524 

782  001526 
783 

784  001530 

785 

786 

787 

788 

789  001532 

790 

791 

792  001536 

793  001550 

794  001554 

795  001556 

796  001560 

797  001564 

798  "^01566 

799  001570 

800  001574 

801  001602 

802  001604 

803  001606 
804 

805  001612 

806  001614 

807  001616 

808  001620 

809  001622 

810  001624 

811  001626 
812 

813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
851 
832 
833 
834 
835 
836 


005000 
000445 

010004 


042704  000077 


016404  000126' 

011404 

010005 

042705  177700 

006205 

006205 

162705  OOOOOOG 

010420 
010520 


020001 
103004 
021002 
103402 
021003 
103741 


30$: 


40$: 


41$: 


CLR 

RO 

BR 

48$ 

MOV 

R0.R4 

.IF  DF 

R$$MPL 

BIC 

#1 60077,  R<.     ;; 

.IFF 

BIC 

*77, R4 

.ENDC 

ASR$ 

5,R4 

MOV 

NSITAB(R4),R4 

MOV 

(R4),R4 

MOV 

R0,r5          ;; 

BIC 

#«C<77>,R5 

ASR 

R5 

ASR 

R5 

ADD 

#PR7,R5 

MTPS 

#PR7 

MOV 

R4,(R0)+ 

MOV 

R5,(R0)+ 

MTPS 

*0 

CMP 

R0,R1         ;; 

BHIS 

40$ 

CMP 

(R0),R2 

BLO 

40$          ; ; 

CMP 

(R0),R3        ;; 

BLO 

30$          ;; 

_OCATE 

IC8(S) 

.IF  DF 

R$$MPL 

MOV 

FMASK.FMKTMP    ; ; 

ADD 

#2,FMKTMP 

BIT 

#F2.DAS,aFMI<;TMP  ;; 

BEQ 

46$           ;  ; 

MOV 

KR8A,R4 

MOV 

K.PRM(R4),R0 

BEQ 

44$ 

CLR 

K.PRM(R4) 

CLR 

-CSP) 

CMPB 

#1,SNCPU       ;; 

BHIS 

43i 

MOV 

#120000, (SP) 

MOV 

R0^R2 

BIC 

#7?77, R2 

BIC 

R2,R0         ;; 

SWAB 

R2 

.REPT 

3 

ASR 

R2          ;; 

.ENDR 

MOV 

K6TA8,K6TMP 

INDICATE  NO  VECTORS  FOUND 

COPY  VECTOR  ADDRESS 

CLEAN  OUT  MAPPING  BITS  AND  LOW  6  BITS 
DISCARD  LOW  6  BITS 


convert  to  a  word  index 

get  appropriate  vector  contents 

copy  vector  address  again 
get  low  6  bits 
divide  by  4 

givinc"default  priority 

DISABLE  interrupts 
restore  the  VECTOR 

RE-ENABLE  INTERRUPTS 

DONE? 

IF  HIS,  YES 

DOES  NEXT  VECTOR  POINT  AT  OUR  LINE  TABLE/KB? 

IF  LO,  NO 

DITTO? 

IF  LO,  YES 


GET  $FMA3K+2  ADDRESS 

IS'DATA  SPACE  ENABLED  ? 

IF  EQ,  NO 

GET  THE  KRB  ADDRESS 

GET  ADDRESS  OF  1ST  KB 

IF  tQ,  NO  ICB'S 

CLEAR  POINTER  TO  KB  CHAIN 

ASSUME  THE  KB  IS  NOT  FOR  A  CPU  PARTITION 

KB  POINTER  CONTAIN  A  CPU  NUMBER  ? 

IF  HIS,  NO 

GET  BIAS  BITS  FOR  APR5  ADDRESSING 

FORM  CPU  NUMBER  IN  UPPER  FOUR  BITS  OF  R2 

CLEAn'cPU  NUMBER  OUT  OF  POINTER 

FORM  CPU  NUMBER*2  OF  POOL  FOR  THE  KB 


GET  $K6TAB  ADDRESS 


F 
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NTLUNL  -  NTL  UNLOAD  ROUTINES 
XUMR  -  RELEASE  IIMR'S 

1381 

1582 

1383 

138A 

1385 

1586 

1387 

1588 

1389 

1590 

1591 

1592 

1595 

159^ 

i59S 

1396 

1597 

1598 

1599 

1400 

U01 

HG2 

H05 

U04 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 
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.SBTTL  XUMR  -  RELEASE  UMR'S 


XUMR  -  RELEASE  UMR'S  ON  A  MULTIPROCESSOR  SYSTEM 

INPUTS: 

R4  -  NUMBER  OF  PROCESSES 

OUTPUTS: 

UMR'S  ARE  RELEASED 


XUMR: 


10$: 


20$: 
30$: 


.IF  DF 

SWSTKi 

MOV 

ASL 

SUB 

BLT 

MOV 

ADD 

MOV 

MOV 

ADD 

MOV 

BEO 

MOV 

CALL 

MOV 

CALL 

BR 

MOV 

RETURN 


R$$MPL 

50$ 

aKSAR5,-CSP) 

R4 

#2,R4 

20i 

K6TAfa,K6TMP 

P'l.KaTMP 

aK6rHP,aKSAR!) 

UMRPT.RO 

#120000, RO 

(R0),R0 

10$ 

R0,R2 

DEUMR1 

#M.LGTH,R1 

$DECEX 

10$ 

(SP)+,aKSAR5 


ENTER  KERNEL  MODE 

SAVE  CURRENT  MAPPING 

CONVERT  NUMBER  OF  PROCESSORS  TO  WORD  INDEX 

DONE  FOR  ALL  PROCESSORS  ? 

IF  LT,  VES 

GET  $K6TA8  ADDRESS 

MAP  TO  CPU  PARTITION 
GET  $UMRPT  ADDRESS 

GET  POINTER  TO  UMR  ASSIGNMENT  BLOCK 

IF  EQ,  NONE  ..  KEEP  LOOKING 

COPY  UMR  BLOCK  ADDRESS 

DE-ASSIGN  MAPPING  REGISTERS 

GET  LENGTI'  OF  UMR  ASSIGNMENT  BLOCK 

DE-ALLOCATE  ASSIGNMENT  BLOCK 

LOOK  FOR  MORE 

RESTORE  PREVIOUS  MAPPING 

RETURN  TO  USER  MODE  AND  TO  CALLER 
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d'eallocve  pool  space  to  area  outside  task  space 


NTLUNL  -  NTL  ONLOAD  ROUTINES 
$DEAr2 


1894 
1895 
18q6 
'397 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 

1911  004302 

1912  004302 

1913  004504 

1914  004306 

1915  004310 

1916  004312 

1917  004314 

1918  004316 

1919  004320 

1920  004324 

1921  004326 

1922  004330 
i923  004332 

1924  004334 

1925  004336 

1926  004340 

1927  004344 

1928  004350 

1929  004352 

1930  004354 

1931  004356 

1932  004360 

1933  004362 

1934  004364 

1935  004366 

1936  004370 

1937  004372 

1938  004374 

1939  004376 

1940  004400 

1941  004402 

1942  00^404 

1943  004406 

1944  004412 

1945  004414 
1946 

1947  004416 

1948  004420 

1949  004422 
1950 


.SBTTL  $DEAC2  -  DEALLOCATE  POOL  SPACE  TO  AREA  OUTSIDE  TASK  SPACE 
"».*  -  $DEAC2  -  DEALLOCATE  POOL  SPACE  TO  AREA  OUTSIDE  TASK  SPACE 


INPUTS 


RO  =  ADDRESS  OF   THE   CORE  BUFFER  TO  BE   DEALLOCATED. 
R1    =  SIZE   OF    THE    CORE   BUFFER   TO  DEALLOCATE    IN  BYTES. 
R2   =  DISPLACEMENT  ADDRESS    (100000  OR  120000). 
R3   =  ADDRE3S   OF    CORE  ALLOCATION  LISTHEAD-2. 


OUTPUTS: 


061301 

042301 

001442 

010246 

010302 

011203 

001405 

042703 

051603 

020003 

103370 

010310 

010046 

060116 

016646 

052716 

022616 

103423 

020326 

10^417 

001002 

012310 

061301 

010246 

C10012 

061216 

020026 

001003 

061201 

011042 

010200 

010160 

012602 


005703 
001762 


DEAC2: 


20$: 


160000 


000002 
017777 


30$: 


000002 


40$: 


50$ 
60$ 
70$ 
80$ 


THE  CORE  BLOCK  IS  MERGED  INTO  THE  FREE  CORE  CHAIN  BY  CORE 
ADDRESS  AND  IS  AGLOMERATED  IF  NECESSARY  WITH  ADJACENT  BLOCKS. 


ADD 

BIC 

BEQ 

MOV 

MOV 

MOV 

BEQ 

BIC 

BIS 

CMP 

BHIS 

MOV 

MOV 

ADD 

MOV 

BIS 

CMP 

BLO 

CMP 

BLO 

BNE 

MOV 

ADD 

MOV 

MOV 

ADD 

CMP 

BNE 

ADD 

MOV 

MOV 

MOV 

MOV 

RETURN 

TST 
BEQ 
CRASH 


(R3),R1 

(R3)+,R1 

60$ 

R2,-(SP) 

R3,fi? 

(r5),R3 

30$ 

#160000, R3 

(SP),R3 

R0,fi3 

20$ 

R3,(R0) 

R0,-(SP) 

R1,(SP) 

2(SP),-(SP) 

#17777, (5P) 

(SP)+,(SP) 

80$ 

R3,(SP)+ 

70$ 

40$ 

(R3H,(R0) 

(R3),R1 

ft2,-(SP) 

R0,(R2) 

(R2),(Sf') 

RO,(SP)t 

50§ 

(R2),R1 

(R0).-(R2) 

R2,R0 

R1,2(R0) 

(SP)+,R2 


R3 
40$ 


ROUND  TO  NEXT  BOUNDARY 

CLEAR  EXCESS 

IF  EQ  NO  BLOCK  TO  RELEASE 

SAVE  DISPIACEMENT 

SAVE  ADDRESS  OF  CURRENT  BLOCK 

GET  ADDRESS  OF  NEXT  BLOCK 

IF  EQ  END  OF  CHAIN 

CLEAR  CURRENT  MAPPING  REG. 

USE  OUR  MAPPING  REG. 

BLOCK  GO  HERE? 

IF  HIS  NO 

ASSUME  NO  AGLOMERATION 

CALCULATE  ADDRESS  OF  NEW  BLOCK 

; CALCULATE  END  OF  APR  ADDRESSING 

•BIGGER  THAN  APR  ADDRESSING  RANGE? 

;IF  LO,  YES 

EQUAL  TO  NEXT  IN  CHAIN? 

;IF  LO,  DEALLOCATION  OVERLAPS 

IF  NE  NO 

MOVE  LINK  WORD  TO  BLOCK  RELEASED 

MERGE  TWO  BLOCKS 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

ASSUME  NO  AGLOMERATION 

CALCULATE  ADDRESS  OF  NEXT  BLOCK 

EQUAL  TO  BLOCK  BEING  RELEASED? 

IF  NE  NO 

MERGE  TWO  BLOCKS 

MOVE  LINK  WORD  TO  PREVIOUS  BLOCK 

SET  NEW  ADDRESS  OF  BLOCK 

SET  SIZE  OF  BLOCK  RELEASED 

RESTORE  ADDRESS  OF  LISTHEAD 


INSERT  AT  END  OF  LIST? 
IF  EQ  YtS,  OK 
ILLEGAL  DEALLOCATION 


F     4 
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SYMBOL    CROSS  REFERENCE 


E     5 

PAGE   6 

CREF        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

LN.STA 

=  000017 

#5-72 

LNSUB 

=  000360 

#5-72 

LN.TRI 

=  000006 

#5-72 

L.COST 

000015 

#5-72 

L.CTL 

000012 

#5-72 

18-1033 

18-1033 

L.CVA 

177776 

#5-72 

L.DDM 

000002 

#5-72 

14-570 

14-599 

14-637 

L.DDS 

OOOOOA 

#5-72 

♦  18-1036 

L.DLC 

000003 

#5-72 

11-443 

14-637 

14-642 

L.DLM 

000006 

#5-72 

»11-446 

*14-649 

L.DLS 

000010 

#5-72 

11-437 

*11-445 

14-639 

L.FLG 

000000 

#5-72 

*14-568 

»14-656 

19-1095 

L.KRBA 

C00016 

#5-72 

11-432 

»11-435 

14-576 

L.LEN 

=  000022 

#5-72 

L.MPF 

000022 

#5-72 

11-427 

18-1042 

L.NM5T 

000020 

#5-72 

L.NSTA 

OOOOU 

#5-72 

11-424 

18-1039 

L.OUNR 

000021 

#5-72 

M1-423 

»18-1038 

L.UNT 

000013 

#5-72 

MOSSAC 

=  000016 

#5-6c 

HOSSPR 

=  000012 

#5-66 

MOSSSV 

=  00001 A 

#5-66 

M0$25A 

=  000006 

#5-66 

HO$25P 

=  000002 

#5-66 

HOS25S 

=  000004 

#5-66 

M0$29S 

=  000010 

#5-66 

MSHIGH 

=  000003 

#5-66 

M$$MGE 

=  000000 

7-163 

14-602 

15-774 

19-1179 

28-1720 

28-1735 

28-1762 

29-1804 

M$3100 

=  000000 

#5-66 

M$3101 

=  000001 

#5-66 

H$3102 

=  000002 

#5-66 

H$3103 

=  000003 

#5-66 

5-66 

M.LGTH 

-    *♦*♦** 

GX 

19-1255 

19-1332 

NETPF 

=    **♦**♦ 

GX 

19-1076 

NSITAB 

000126 

R 

#7-179 

15-793 

NSC 

=    t***** 

GX 

7-179 

NSl 

r     **♦*♦♦ 

GX 

7-180 

NS2 

-    »♦**»* 

GX 

7-181 

NS3 

-    ****** 

GX 

7-182 

NS-; 

=    ****** 

GX 

7-183 

NS5 

=    ****** 

GX 

7-184 

NS6 

-    ****** 

GX 

7-185 

NS7 

-    ****** 

GX 

7-186 

NTLPT 

=    ****** 

GX 

19-1194 

19-1202 

19-1269 

27-1575 

N$ENC 

QO0OA2 

10-379 

10-381 

10-385 

OBJHD 

-    ****** 

GX 

23-U54 

OPSINI 

=  000000 

#5-66 

OPSTER 

=  000001 

#5-66 

O.LEN 

000012 

23-1455 

PD"ID 

=    ****** 

GX 

9-341 

PDVNM 

r     ****** 

GX 

19-1105 

18-1031 
14-646 
»14-648 
14-625 


18-1031 

18-1047 

♦18-1049 

15-680 


18-1047 


♦18-1037 


19-1267 


19-1318 


27-1574 


27-1621 


2'-1632 


28-1721 


NTLUNL 
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U2.DH1= 
U2.DJi= 
U2.DZ1= 
U2.ESC= 
U2.HFF= 
U2.HLD= 
U2.L0G= 
U2.LWC= 
U2.L3S= 
U2.l8S-= 


NTLIIM  -  RSX-11M  DEFINITIONS 
Symbol  table 


100000 
0^0000 
000100 
001000 
010000 
000040 
000400 
000001 
000004 
010000 
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004000 
000010 
020000 
100000 
000004 
000200 
000002 
010000 
100000 
040000 


E0:f 


5  Page  5-4 


ABS.   177776 
000000 
Errors  detected: 


OCO 
001 
0 


U2.NEC= 
U2.PRV= 
U2.RMT= 
U2.R04: 
U2.SCS= 
U2.SLV= 
U2.VT5: 
U2.7CH= 
U3.0PA= 
U3.PAR: 


(RW,I,GBL,ABS,OVR) 
(RW,1,LCL,REL,C0N) 


U3.UPC= 

020000 

$DEAC1= 

****** 

G 

$NS3  = 

****** 

G 

U4.CR  = 

000100 

$DEUMR= 

****** 

G 

$NS4  = 

****** 

G 

V$$CTR= 

001000 

$DEVHD= 

****** 

6 

$NS5  = 

****** 

b 

XS$n8T= 

000000 

$EXSIZ= 

****** 

G 

$NS6  = 

****** 

b 

$AL0C8= 

****** 

G 

$FMASK= 

****** 

G 

$NS7  = 

**'*** 

b 

$AL0C1= 

****** 

G 

SLBXL  = 

000340 

$PARHiJ  = 

****** 

b 

$ASUi1R= 

****** 

G 

$NS0  = 

****** 

G 

$rKTCB= 

****** 

G 

$CLKHD= 

****** 

G 

$NS1  = 

****** 

G 

$$$   = 

000062 

$CRAVL= 

****** 

G 

$NS2  = 

****** 

G 

.no  = 

****** 

b 

$DEACB= 

****** 

G 

»♦•  Assembler  statistic- 


0 

0 

14662  Words 

16552  Words 

RSX-11M/PLUS 


Work  file  reads: 
work  file  writes: 
Size  of  work  file: 
Size  of  core  Doot : 
Operating  systeii: 

SY:NfuiM!v2ic°3^?°34]NTLl1M/CR/-SP  =  SY:[1  J]RSXMCI*I.SI*IL/ML,[130J10]NETLI8/ML,[130J0]RSXMCM 


(  58  Pages) 
(  63  Pages) 


POLAL  - 
tXDEAC  - 

292 

293 
294 
295 
296 
297 
298 


NTLIIW 
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POLAL   - 
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SXDEAC   -  DEALLOCATE    CORE    BUFFER    IN  EXTENDED   POOL 


So:« 


292  000^10 

295  000A12 

294  0004U 

295  000A20 

296  000422 
297 

298 


012605 
012604 


MOV 
MOV 

RESMAP 
110$:   RESR6 
RETURN 

.ENDC 


(SP)+,R5 
(SP)t,R4 

<R3> 


RESTORE  REGISTERS 

RESTORE  APR  5  MAPPING 
RESTORE  R3 
AND  RETURN 


PRALL  - 
SALPRO 

157 
15? 
15S 
16C 
161 
162 
163 
16-: 
16: 

16f 
16( 
i6f 
16'; 


F     7 
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PRALL 


PRALL   - 
SALPRO 

157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 


NTL   PROCESS  ALLOCATION     MACRO   V05.03b  Saturday  29-Jun-85  00:36 
-   ALLOCATE    STORAGE    FOR   PROCESS 


000106 

000106 

000112     103002 

OOOIU 

000120 

000001 


SALPRO: 


10$: 


.S8TTL 
SALPRO 


CALL 
BCC 
CALL 
RETURN 


Page  7 

SALPRO  -  ALLOCATE  STORAGE  FOR  PROCESS 
TRy  TO  ALLOCATE  STORAGE  FOR  PROCESS 


SALP16 

10S 

SALL16 


TRY  TO  ALLOCATE  STORAGE  FROM  PROCESS  PARTITION 
IF  CC,  SUCCESS 
ELSE  TRY  TO  ALLOCATE  FROM  CEX/RSX  POOLS 


.END 


F  8 
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PSIO  -  READ  PROCESS   1N10   CORE 
PR.LBL   -   READ   LABEL   BLOCK 


264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 
284 

285  000156 

012700 

OOOOOO' 

286  000162 

287  000166 

103002 

288  000170 

289  000174 

290  000174 

032760 

040000  000030 

291  000202 

001002 

292  000204 

293 

294  000210 

016001 

000016 

295  000214 

010167 

000020' 

296  000220 

026001 

000020 

297  000224 

001402 

298  000226 

299 

300  000232 

301 
302 
303  000232 

005002 

304  000234 

022767 

114224  OOOOOOG 

305  000242 

306 

307  000244 

001405 

022701 

000200 

308  000250 

103002 

309  000252 

310 

311  000256 

312  G00256 

032767 

OOOOCCG  OOOOOOG 

313  000264 

001142 

314  000266 

022760 

120000  000010 

315  000V4 

001062 

316 

317 
318 
319  000276 

016002 

000352 

E  9 
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.S8TTL  PR.LBL  -  READ  LABEL  BLOCK 


PR.LBL  -  READ  LABEL  BLOCK 

THIS  ROUTINE  IS  CALLED  TO  READ  THE  PROCESS  LABEL  BLOCK  AND  TO  VERIFY 
THAT  THE  FILE  IS  A  VALID  PROCESS  IMAGE.  ON  EXIT,  THE  LOGICAL  BLOCK  I/O 
POINTERS  ARE  SETUP  TO  ACCESS  THE  FIRST  TEXT  BLOCK. 

INPUTS: 

NONE 

OUTPUTS: 

C-B1T=SUCCESS/FAILURE 

RO=LABEL  BLOCK  BUFFER  ADDRESS 

Rl,R2=DESTR0yED 

$LBN=FIRST  TEXT  BLOCK  LOGICAL  BLOCK  NUMBER 

$LLEN=PROCESS  SIZE  IN  BYTES 

BLOX=PROCESS  SIZE  IN  32.  'JORD  BLOCKS 


PR.LBL: 


2$: 


3$: 


4$: 


320 


MOV 
CALL 
BCC 
CALLR 

BIT 
BNE 
CALLR 

MOV 
MOV 
CMP 
BEQ 
CALLR 


CLR 
CMP 
BEQ 

CMP 
BCC 
CALLR 


BIT 
BNE 
CMP 
BNE 

.IFTf 

MOV 


#DSK8UF,R0 

SRLBL 

1$ 

101$ 


GET  BUFFER  ADDRESS 
READ  LABEL  BLOCK 
IF  CC,  SUCCESS 
IF  CS  -  BRANCH 


PRIO 
Symbo 

T2$CL 
T2$fM 
UBMPR 
UISAR 
UlSAR 
VSSCT 


.  ABS 

DATA 
.BUF 
Error 

*♦♦  A 


Work 
Work 
Size 
Size 
Opera 

ELaps 
SY:PR 


#TS$NHD,L$BFLG(RO)  ;  DOES  PROCESS  HAVE  A  HEADER? 


2$ 

111$ 

L$BLDZ(RO),Ri 

R1,$LDSIZ 

L$8MXZ(R0),R1 

3$ 

111$ 


.IF  DF  M$$MGE 


R2 

#'RXPT,$NAME 

4$ 

#200, R1 

4$ 

131$ 


IF  NE,  NO 

IF  YES  -  ERROR 

GET  LOAD  SIZE  IN  BLOCKS 
SAVE  LOAD  SIZE  FOR  LATER 
IS  PROCESS  OVERLAID? 
IF  EG,  NO 
IF  NE,  ERROR 


ASSUME  FOR  COMM  EXEC  -  NO  EXTEND  SIZE 

IS  IT  XPT  ? 

IF  YES  -  ANYTHING  GOES 

IS  PROCESS  >  4K  WORDS? 

IF  CC,  NO 

IF  CS  -  ERROR 


#Fl.CEX,$FLAGS  ; 
10$  ; 

*120000,L$BSA(RO) 
6$ 


IS  THIS  THE  COMM  EXEC? 

IF  NE,  YES 

;  WAS  PROCESS  BUILT  FOR  APR5? 

IF  NE,  NO 


L$GEXT(R0),R2 


GET  EXTEND  SIZE 


f  9 
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PRIO 


PRIO  -  READ  PROCESS  INTO  CORE 
Symbol  tab^e 


6  10 
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T2$CLI= 

000001 

X$$DBT=  000000 

T2$FMP= 

000002 

$CLDEQ=  **♦*•*  GX 

UBMCR  = 

170200 

$CL1CS=  «♦*•*•  GX 

UISARO= 

1776A0 

$CL0PE=  **♦**•  GX 

UI5AR1= 

177642 

$FLAGS=  **♦*♦♦  3X 

V$tCTR= 

001000 

SIOSB  =  ****♦•  GX 

.  ABS. 

001000 

000 

(RW,I,GBL,ABS,OVR) 

001656 

001 

(RW,I,LCL,REL,CON) 

DATA 

000022 

002 

(RW,D,LCL,REL,CON) 

..BUF 

000002 

0C3 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

$LBXL  =  000340 
SLDSIZ  000020RG 
SLLEN  =  •«****  GX 
$MUL  =  «*«»»»  GX 
$NAME  =  «♦*♦•*  GX 
SPNAME  OOOOKRG 


$PRCLN=  ******  GX 
002  $PREXT=  ******  GX 
$PRINC=  ******  GX 
SPRIO  OOOOOORG 
$PRLLN=  ******  GX 
002  $READX=  ******  GX 


SRLBL  =  ******  GX 

$XPAR  =  ******  GX 

$$EXT  =   ******  GX 

$$!NC  =  ******  GX 

$$PAR  =  ******  GX 
.BASEB=  140000 


PROAL 

SYMBO 

SYMBO 

M$$MG 
R$$11 
SALOC 
SDEAC 
SPRAV 


•**  Assembler  statistics 


Work   file  reads:  0 

Work  file  writes:  0 

Size  of  work  file:  13574  Words  (  54  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 
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PRIO 
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PROAI 


PROAL  CREATED  BY 

SYMBOL  CROSS   REFERENCE 

SYMBOL  VALUE 

MttMGE  =  000000 

R$$11M  =  000000 

$AL0C2  000006  RG 

$CiEAC2  000076  RG 

SPRAVL  000002  RG 


MACRO  ON  29-JUN- 


REFERENCE5 

5-69 

5-61 
#6-100 
*7-U5 
#5-64 


6-99 


AT  00:37 


7-160 


E  11 

PAGE  1 

CREF   04.00 


7-185 


PROAL 
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PROERR 
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SYMBOL   CROSS  REFERENCE 
SYMBOL      VALUE 


E  12 

PAGE   1 

CREf       04.00 


ERRBUf 
ERRMSG 
FMTO 

FMT4 

FMT4A 

FMT5 

FMT5A 
FMT58 
FHT9 
FM.O 

FM.i 

FM.4A 

FM.5 

FM.5A 

I$$AS 

PERR 


REP4A 
REP5A 
RTSPC 


002272  R 
002262   R 

002064  R 

002065  R 
002115  R 
002156  R 

002201  R 
C02240  R 
002243  R 
000000 

000000 
000000 
000000 
000000 

****** 
000000  R 


000066  R 
000154  R 
000064  R 


R$$MPL  =  »*••** 
R$$11D  =  »***•• 
S$$BAS  =  •»».<•♦ 


$C5TA 

-   ****** 

GX 

SERROX 

001506 

RG 

SERRQY 

001544 

RG 

SERRXQ 

001446 

KG 

SERRZA 

001402 

RG 

$ERR44 

000000 

RG 

$ERR45 

000036 

RG 

$ERR46 

000074 

RG 

$ERR47 

000122 

RG 

$ERR48 

000150 

RG 

$ERR49 

000234 

RG 

$ERR50 

000256 

RG 

$ERR51 

000322 

HG 

$ERR53 

000360 

RG 

$£RR54 

C00410 

RG 

$ERR55 

000462 

RG 

REFERENCES 

#6-150 
#6-148 

6-79 

6-120 

6-75 

6-80 

6-81 
#6-134 

6-91 
#6-136 
#6-140 
#6-79 
#6-120 
#6-75 
#6-80 
#6-81 
#6-91 

6-109 

6-75 

6-84 

6-95 

6-106 

6-80 

6-91 

6-79 

6-120 

6-115 

6-109 

6-75 

6-79 

6-84 

6-89 

6-95 

6-101 

6-106 

6-120 

8-213 
#6-107 
#6-108 
#6-106 
#6-105 
#6-75 
#6-76 
#6-77 
#6-78 
#6-79 
#6-80 
#6-81 
#6-82 
#6-83 
#6-84 
#6-85 


7-170 
7-182 
6-102 
6-121 
6-76 
#6-133 
6-82 

6-92 


#6-102 
#6-121 
#6-76 

#6-82 
#6-92 
6-137 
6-76 
6-85 
6-97 
6-107 
#8-205 
6-92 
6-102 
6-121 

6-137 

6-75 

6-80 

6-84 

6-91 

6-95 

6-102 

6-106 

6-121 

9-243 


6-103 
6-122 
6-77 

6-83 

6-93 


#6-103 
#6-122 
#6-77 

#6-83 
#6-93 

10-266 

6-77 

6-87 

6-98 

6-108 

6-93 

6-103 

6-122 

10-266 

6-76 

6-80 

6-85 

6-91 

6-97 

6-102 

6-107 

6-121 

9-246 


6-104 

#6-131 

6-78 

6-105 
#6-132 

6-106 

6-107 

6-10 

6-84 

6-85 

6-87 

6-88 

6-89 

6-94 

6-95 

6-97 

6-98 

6-99 

#6-104 

#6-78 

#6-84 
#6-94 

6-78 
6-88 
6-99 
6-119 

6-94 

6-104 

#7-190 


6-76 

6-81 

6-85 

6-92 

6-97 

6-103 

6-107 

6-122 


#6-105 


#6-85 
#6-95 

6-79 
6-89 
6-101 
6-120 

6-95 
6-105 


6-77 

6-81 

6-87 

6-92 

6-98 

6-103 

6-108 

6-122 


#6-106 


#6-87 
#6-97 

6-80 
6-91 
6-102 
6-121 

6-97 
6-106 


6-77 

6-82 

6-87 

6-93 

6-98 

6-104 

6-108 


#6-107 


#6-88 
#6-98 

6-81 
6-92 
6-103 
6-122 

6-98 
6-107 


6-78 

6-82 

6-88 

6-93 

6-99 

6-104 

6-119 


#6-108 


#6-89 
#6-99 

6-82 

6-93 

6-104 

#7-168 

6-99 
6-108 


6-78 

6-83 

6-88 

6-94 

6-99 

6-105 

6-119 


6-119 

6-101 
#6-135 

#6-119 
#6-101 


6-83 
6-94 
6-105 


#9-236 
6-119 


6-79 

6-83 

6-89 

6-94 

6-101 

6-105 

6-120 


PROERR 
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PROXPT  -  XPT  PROCESS  INITIALIZE  MACRO  V05.03b  Saturday  ?9-Jun-85  00:37 
tCKT    -  ALLOCATE  CIRCUIT  COUNTERS 


5  13 

00:37 


Page  9 


312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 

323  001062 

324  001066 

325  001072 
326 

327  001 07A 

328  001100 

329  001104 

330  001110 

331  001 1U 

332  001130 

333  001134 

334  001136 

335  001144 
336 

337  001146 

338  001152 

339  001154 

340  001164 

341  001170 
342 

343  001174 

344  001200 

345  001202 

346  001206 

347  001210 

348  001212 
349 

350 

351  001216 

352  001222 
353 

354  001226 

355  001230 
556 

357  001234 

358 

359  001240 

360 

361 

362 

363 

364 


.SBTTL  $CKT    -  ALLOCATE  CIRCUIT  COUNTERS 
$CKT  -  ALLOCATE  CIRCUIT  COUNTERS 
INPUTS: 


R2 


XPT  DDB  ADDRESS 


000100 


016200 
001462 


012701  000C46 


062701 
042701 


103004 

000435 

010062 
005000 

010062 
016200 

010203 

005000 
050200 
016301 


012720 
012703 

005020 


000077 
000077 


000102 


000104 
000102 


000100 


177777 
000022 


OUTPUTS: 

CIRCUIT 

COUNTERS  ALLOCATED 

KT::   CALL 

SSAVAL 

MOV 

N$TLC(R2),R0 

BEQ 

40$ 

MOV 

#T$LLEN,R1 

CALL 

$MUL 

ADD 

#77, R1 

SIC 

*77, Rl 

ASR$ 

6,R1 

CALL 

$AlN18 

BCC 

10S 

EMSG$ 

9D 

BR 

40$ 

)$:    MOV 

R0,N$TLC*2(R2) 

CLR 

RO 

BIAS 

RO 

MOV 

RC,N$TLC*-4(R2) 

MOV 

N$TLC+2(R2),R0 

20$: 
30$: 

40$: 


SUSTK$ 

MOV 

CALL 

CLR 

BIS 

MOV 


MOV 
MOV 


40$ 

R2,R3 

$MAPX 

RO 

R2,R0 

N$TLC(R3),R1 


#-1,(R0)t 
#«T$LLEN/2>-1>,R3 


CLR 
SOB 


(R0)  + 
R3,30$ 


000001 


SOB    R1,20$ 
RETURN 

.END 


SAVE  REGS 

CHECK  XPT  CHANNELS 

IF  NONE  -  BRANCH 

GET  COUNTER  LENGTH 
CALCULATE  BLOCK  NEEDED 
ROUND  UP 

CONVERT  TO  BLOCKS 

ALLOCATE  BLOCK  FROM  NON-UMR  POOL 

IF  SUCCESS  -  BRANCH 

PRINT  ERROR 

CONTINUE 

STORE  APR  BIAS 

STORE  VIRTUAL  ADDRESS 

SeTvIRTUAL  ADDRESS 

get  circuit  counter  apr  bias 

enter  system  state 
save  xpt  ddb  address 
map  to  counter  block 

set'up  vitual  address 
get  number  of  counters 


;;MARK  LINE  COUNTER  BLOCK  AS  FREE 
;;GET  REMAINING  SIZE  (IN  UORDS) 

;;ZERO  REMAINDER  OF  BLOCK 


;;INITIALISE  ALL  BLOCKS 
;;LEAVE  SYSTEM  STATE 
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25? 
238 
2-9 
2'iO 
241 
2A2 
243 
244 
245 
246 
247 
248 

249  000372 

250  000374 

251  000400 

252  000402 

253  000404 

254  000406 

255  000412 

256  000414 

257  000420 

258  000422 

259  000426 

260  000430 

261  000434 

262  000436 

263  000442 

264  000444 

265  000450 

266  000456 

267  000464 

268  000470 
269 

270 


005001 
062704 
020103 
001430 
010102 
062701 
060402 
122712 
001367 
132742 
001364 
026042 
001361 
026042 
001356 
005266 
016660 
016260 
162704 


000001 


LOOK  -  LOOK  FOR  SYMBOL  WITHIN  SYMBOL  TABLE  RECORD 

INPUTS: 

RO  =  SYM90L  BLOCK  ADDRESS 

R3  =  RECORD  LENGTH-2 

R4  =  RECORD  ADDRESS»2 

OUTPUTS: 

R1,R2  =  DESTROYED 

SB.DEF.SS.VAL  SET  IF  DEFINITION  IS  FOUND 


000005 

000010 

000004 

000004 

000006 

000004 

000014 
000014 
000006 
000005 


LOOK: 
10$: 


000002 
000010 


20$: 


CLR 

ADD 

CMP 

BEQ 

MOV 

ADD 

ADD 

CMPB 

BNE 

BITS 

BNE 

CMP 

BNE 

CMP 

BNE 

INC 

MOV 

MOV 

SUB 

RETURN 

.END 


SET  POINTER  TO  START  OF  RECORD 

DISPLACEMENT  TO  ENTRY  TYPE  FIELD 

AT  END  OF  RECORD  YET  ? 

YES  .. 

COPY  CURRENT  POINTER 

ADJUST  POINTER  BY  ENTRY  LENGTH 

GIVING  ADDRESS  WITHIN  RECORD  SUFFER 

GLOBAL  SYMBOL  VALUE  ? 

NO  .. 

NORMAL  DEFINITION  ? 

NO 

'    OF 


R1 

*5,R4 

R1,R3 

20i 

R1,R2 

#8.,R1 

R4,R2 

#4,(R2) 

lOi 

#4,-(R2) 

lOi  t  —  •• 

SB.SYMt2(R0),-(R2)  ;  SECOND  HALF 

10$  ;  NO  .. 

SB.SYM(R0),-(R2)  ;  FIRST  HALF  MATCH  ? 

10$  ;  NO  .. 

12.tSP)        ;  INDICATE  DEFINITION  FOUND 

12.(SP),SB.DEF(R0)  ;  MARK  SYMBOL  DEFINED 

6(R2),SB.VAL(R0)  ;  SET  SYMBOL  VALUE 

*5,R4         ;  RESTORE  R4 


TMPAC 


2' 
2' 
2 
Z 
2' 
2 
2' 
2' 
2' 
2 
2' 
2- 
2 
2 
2 
2 
2 
2 
2 


NAME  MATCH 


TMPAC 


IMPACT  - 

TEMPLATE  PROCESSING  AC  MAC 

23^, 

235 

236 

237 

238 

239 

2^0 

2l.^ 

2A2 

245 

244 

000304 

245 

000504 

005767 

OOOOOOG 

246 

000310 

100412 

247 

000312 

016700 

OOOOOOG 

248 

000316 

167700 

OOOOOOG 

249 

000522 

026700 

OOOOOOG 

250 

000326 

001405 

251 

000330 

252 

000536 

-85 


I   15 

00:3 


38  Page  12 


TMPA( 


$END1 
INPUTS 


.END"  JPERAND  1  ACTION  ROUTINE 


$VALUE=TEMPLATE  VERIFICATION  SIZE 

$5ZPTR=P0INTER  TO  SSIZE  VALUE  AT  START  Of  TEMPLATE 

OUTPUTS; 

ERROR  MESSAGE  PRINTED  IF  SIZE  DOESN'T  MATCH 


iENDI:: 


10$: 


TST 

SFLAGI 

BHl 

10$ 

MOV 

$SIZE,RO 

sue 

a$SZPTR,RO 

CMP 

$VALUE,RO 

BEQ 

10$ 

EMSG$ 

14 

HAS  ANY  ERROR  OCCURRED? 

IF  MI,  YES  -  DON'T  COMPARE 

GET  CURRENT  SIZE 

LESS  VALUE  AT  START  OF  TEMPLATE 

DO  SIZES  MATCH? 

IF  EQ,  YES 

LENGTH  OPERAND  NOT  SAME  AS  $SIZE 


RE'URN 
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So:38 


607 

+ 

608 

SNOMOD   -  ACTION  ROU 

609 

610 

INPUTS; 

611 

NONE 

612 

613 

OUTPUTS: 

61A 

$D!FF=0 

615 

616  0013A2 

iNOMOD :  : 

617  0013A2 

005C67 

OOOOOOG 

CLR            SDIFF 

618  0013^6 

RETURN 

;  ZERO  THE  MODIFICATION  VALUE 
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^^^8 


NTLUNL  -  NTL  UNLOAD  ROUTINES 
$XPRO  -  CLEAN  UP  PROCESS 

320 
321 


F      , 
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uT' iiwi    -  MTi    iiwinAh  RniiTtwF'; 
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NTLUNL  -  NITL  UNLOAD  ROUTINES    MACRO  V05.03b  Saturday  29-Jun-85  00 
VECT  -  RESET  INTERRUPT  VECTOR(S) 

837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
86? 
864 
865 
866 
867 


:^4 


001626  016701  000006' 
001632  00U03 
0ri634  010200 


869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 


881  001650 

882  001652 


001636 

001642  010066  000002 
001646 

001650 


001654 


-33 
884 
885 
886 
887 

888  C01656 

889  C01660 


005700 
001402 


ADD 

R'',K6TMP 

MOV 

a<6TMP,aKSAR5 

43$: 

MOV 

(SP)t,R2       ;; 

ASL 

RO 

MOV 

(RO),-(SP) 

TST 

-(ROJ 

MOV 

ICBSZ.RI 

MOV 

KAVL,R3 

SUB 

#2,R3         ;; 

CALL 

DEAC2 

MOV 

(SP)+,RC 

BEQ 

44$ 

MOV 

R2,-(SP) 

BNE 

41$ 

CRASH 

44$: 

MOV 

PC,RO 

45$: 

MOV 

(SP)+,aKSAR5    ;; 

BR 

48$          ;  ; 

.JFTF 

;  DF    R$$MPL 

46$: 

MOV 

ICBSZ.RI       ;; 

BEQ 

48$          ;  ; 

MOV 

R2,fiO 

.IFT 

;  DF    R$$MPL 

CMP 

-CRO),-(RO)     ;; 

.ENDC 

;  DF    R$$MPL 

CALL 

$DECEX 

48$: 

MOV 
RETURN 

R0,2(SP)       ;; 

50$: 

.IF  DF 

R$$MPL 

TSTB 

aNCPU         ; 

BEO 

55$ 

RMAF$S 

.ENDC 

;  DF  R$$MPL 

55$: 

TST 

RO 

BEQ 

1 1 1  $ 

60$: 

RETURN 

;  ERROR  CONDITIONS 

l01$: 

CRASH 

111$: 

CRASH 

; 

Page  15-3 


MAP  TO  THE  KB  POOL 
GET  BIAS  BITS 

FORM  VIRTUAL  ADDRESS  OF  KB 
SAVE  POINTER  TO  NEXT  KB 
INCLUDE  KB  NUMBER  AND  SIZE  FIELD 
GET  LENGTH  OF  AN  KB 
GET  $ICAVL-2  ADDRESS 
POINT  AT  POOL  LISTHEAD 
DE-ALLOCATE  THE  KB 
IS  THERE  ANOTHER  KB  ? 
IF  EQ,  NO 

DOES  POINTER  CONTAIN  A  CPU  NUMBER 
IF  NE,  YES 
**•  SHOULDN'T  EVER  GET  HERE  ?  ***♦; 
ONLY  ONE  KB  PER  CONTROLLER  I 
INDICATE  SUCCESS 
RESTORE  PREVIOUS  MAPPING 

AND  RETURN  TO  USER  MODE 


GET  SIZE  OF  KB  BLOCK 
IF  EQ,  NO  KB  BLOCK 
COPY  ADDRESS  OF  KB 


DON'T  FORGET  LINK  POINTER  AND  COUNT  FIELDS 


DE-ALLOCATE  KB  BLOCK 

UPDATE  USER  MODE  RO 
BACK  TO  USER  MODE 


IS  THIS  A  MULTIPROCESSOR  SYSTEM  ? 

IF  EQ,  NO 

ELSE,  REMOVE  PROCESSOR  AFFINITY 


WAS  AT  I  EAST  1  VECTOR  FOUND? 
IF  EQ,  NO 


lINE  table  NOT  FOUND  WITHIN  UNLOAD  DATA 
NC  VECTORS  POINTED  AT  LINE  TABLE; 


WTI     ilNI  riAD    ROUT  INFS 


MACRO  V05.03b  Saturday  29-Jun-85 


NTLUNL  -  NTL  UNLOAD  ROUTINES 
XUMR  -  RELEASE  UMR'S 

1416 
K17 
1418 
1419 
1420 
1421 
14?2 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 


F  3 
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.SBTTL  DEUMR1  -  DEASSIGN  UNIBUS  HAPPING  REGISTERS 


DEUMR1  -  DEASSIGN  UNIBUS  MAPPING  REGISTERS 

INPUTS: 

R2  -  UMR  BLOCK  ADDRESS 

OUTPUTS: 

UMR'S  ARE  OEASSIGNED 


DEUMR1:  TST 
MOV 


ADD 

10$: 

CMP 

BEQ 

MOV 

BNE 

8R 

^0$: 

MOV 

<()$: 

RETURN 

.ENDC 

(R2)  + 

UMRHD,R3 

#120002, R3 

-(R3),R^ 

20$ 

(R3),R3 

10$ 

30$ 

-(R2),(R3) 


SKIP  OVER  LINK  WORD 

POINT  AT  ASSIGNMENT  LISTHEAD+2 

is' IT  THE  NEXT  ONE  ? 

IF  EQ,  YES 

POINT  TO  NEXT  IN  LIST 

IF  NE,  MORE  IN  LIST 

ELSE  MAPPING  ASSIGNMENT  BLOCK  NOT  IN  LIST 

UNLINK  THE  BLOCK  FROM  LIST 

RETURN  TO  CALLER 
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1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 


004424 
004430 
004434 
004436 

004440 
004442 
004444 
004446 
004452 
004454 

004456 
004^-60 
004464 
004466 

004470 
004474 


011346 
005013 

012600 
001412 
010046 

012602 
011246 


000764 


.SBTTL  DEALST  -  DEALLOCATE  LIST  OF  DATA  BLOCKS 

h 

DEALST  -  DEALLOCATE  LIST  OF  DATA  BLOCKS 

INPUTS: 

Rl  -  LENGTH  OF  BLOCK  TO  DEALLOCATE 
R3  -  ADDRESS  OF  I  1ST  lEAD 

^    ALL  BLOCKS  IN  THE  LIST  ARE  DEALLOCATED  AND  THE  LISTHEAD  IS  ZEROED 
R0,R2  DESTROYED 


30$  ;;  ENTER  SYSTEM  STATE 

(R3),-(SP)  ;;  STACK  FIRST  BLOCK  ADDRESS 

(R3)  ;;  AND  ZERO  LISTHEAD 

(SP)+,RO  ;;  GET  THE  NEXT  BLOCK  IN  LIST 

20$  ;;  IF  EQ,  END  OF  LIST 

RO,-(SP)  ;;  SET  BLOCK  ADDRESS 

SCEACX  ;;  GET  ACCESS  TO  BLOCK 

(SP)+,R2  ;;  GET  MAPPED  ADDRESS  OF  BLOCK 

(R2),-(SP)  ;;  GET  THE  NEXT  BLOCK  IN  LIST 

<R1>  ;;  SAVE  LENGTH  OF  BLOCK 

$XDEAC  ;;  DE-ALLOCATE  THE  BLOCK 

<R1>  ;;  RESTORE  LENGTH  OF  BLOCK 

10$  ;;  AND  GO  AGAIN 


DEALST: 

:SUSTK$ 
SAVMAP 
MOV 
CLR 

10$: 

MOV 
BEQ 
MOV 
CALI 
MOV 
MOV 

SAVRG 
CALL 
RESRG 
BR 

20$: 
30$: 

RESMAP 
RETURN 

NTIIIWI      -    NTI     IIWinAh    RnilTINFS 


G  A 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

POVTA 

=       ****** 

GX 

13-523 

19-1103 

PHSHDE 

=  OOOOOA 

#5-66 

PHSLOC 

=  000002 

#5-66 

PHSMTS 

=  000003 

#5-66 

PH$UMP 

=  000000 

#5-66 

PHSUCS 

=  000001 

#5-66 

PR7 

-    ****** 

GX 

13-518 

15-799 

15-800 

19-1079 

PS 

-    ****** 

GX 

*13-518 

•13-543 

*15-800 

♦15-803 

»19-1079 

*19-1087 

P.REL 

=    ****** 

GX 

29-1838 

RDBLH 

=    ****** 

GX 

19-1U1 

RESADC 

=  OOOOOA 

#5-66 

RESADF 

=  000017 

#5-66 

RESADR 

=  000007 

#5-66 

RE$9LK 

=  000010 

#5-66 

RESCAF 

=  oooou 

#5-66 

RESDAT 

=  000001 

#5-66 

RESORP 

=  000016 

#5-66 

RESlDT 

=  000013 

#5-66 

RESLSN 

=  000012 

#5-66 

RESNML 

=  000001 

#5-66 

RESOPE 

=  OOOOOA 

#5-66 

RESOPR 

=  000000 

#5-66 

RESRCV 

=  000001 

#5-66 

RESSED 

=  000011 

#5-66 

RESSKW 

=  000006 

#5-66 

RESSTA 

=  000002 

#5-66 

RESSUM 

=  000003 

#5-66 

RESSYN 

=  000000 

#5-66 

RESTME 

=  000021 

#5-66 

RESTMO 

=  000000 

#5-66 

RESTMR 

=  000020 

#5-66 

RESUPT 

=  000002 

#5-66 

RESURE 

=  000003 

#5-66 

REIVER 

--  000005 

#5-66 

RESVRQ 

=  000015 

#5-66 

RF.LOO 

=  100000 

#5-71 

RTSINI 

=  000002 

#5-66 

RTSOFF 

=  000001 

#5-66 

RTSON 

=  000000 

#5-66 

R$RO 

=  000002 

#6-110 

R$R1 

=  000004 

#6-111 

R$R2 

=  000006 

#6-112 

R$R3 

=  000010 

#6-113 

R$R4 

=  000012 

#6-1U 

R$R5 

=  oooou 

#6-115 

R$$EIS 

-    ****** 

10-384 

15-792 

R$$MPL 

=    ****** 

5-83 

7-139 

8-244 

11-412 

U-579 

14-592 

14-610           15-685 

15-712 

15-786 

15-815 

15-875 

16-912 

17-962 

17-1004 

19-1132         19-1180 

19-1234 

19-1243 

19-1319 

21-1395 

R$$11D 

—     ****** 

10-384 

15-792 

27-1645 

28-1777 

R$$MM 

=  000000 

19-1178 

19-1179 

19-1266 

27-1577 

28-1722 

28-1764 

29-1806 

R.ADD 

000010 

#5-71 

rRFATFD  RV   MACRO  ON  29-JUN-85  AT  00:35 
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CREF   OA.OO 


SYMBOL  VALUE 


DV.MNT 

D.DSP 

D.NAM 

D.PCB 

D.UCB 

O.UCBL 

D.UNIT 

D.VPWF 

FE.CEX 

FE.EXT 

FE.EXV 

FE.PLA 

LSBEXT 

LSBFLG 

LSBHRB 

LSBLDZ 

LSBMXZ 

L$BSA 

MSSMGE 

M.BFVH 

M.BFVL 

M.LGTH 

M.UMRA 

M.UHRN 

PS.COM 

PS.NSF 

PS. SYS 

P. ATT 

P.BLKS 

P. BUSY 

P.LGTH 

P. MAIN 

P.NAM 

P.  PRO 

P.REL 

P. SIZE 

P.STAT 

P.  SUB 

P.SWSZ 

P. WAIT 

R$$MPL 

S.CON 

S.LHD 

TSSNHC 

T.LDV 

UC.PWF 

US.BSY 

US.MNT 

U.CTL 

U.CW1 

U.DCB 

U.RED 


=  100000 

000012 

OOOOOA 

00003A 

000002 

000010 

000006 

=  000006 

=  020000 

=  000001 

=  OOOOOA 

=  000020 

000352 

000030 

000356 

000016 

000020 

000010 

=  000000 

00001 1 

000012 

=  oooou 

000002 
OOOOOA 
=  000200 
=  000400 
=  OOOOAO 
=  ****** 

000016 
000024 

-  ♦*■*♦♦* 

000012 
OOOOOA 

-  ****** 

OOOOH 
000016 
000030 


000010     G 


000022 

000020 

=  ****** 

000010 

000000 

=  OAOOOO 

OOOOAA 

=  000020 

^  000200 

=  000100 

OOOOOA 

000010 

000000 

000002 


REFERENCES 

5-109 

5-68 

5-68 

5-68 

5-68 

5-68 

5-68 

5-68 

5-74 

5-74 

5-74 

5-74 

5-81 

5-81 

5-81 

5-81 

5-81 

5-81 

5-117 

5-96 

5-96 

5-96 

5-96 

5-96 

5-87 

5-87 

5-89 

5-117 

5-116 

5-89 

5-116 

5-87 

5-87 

5-117 

5-116 

5-116 

5-87 

5-87 

5-116 

5-87 

5-75 

5-96 

5-96 

5-81 

5-102 

5-108 

5-109 

5-108 

5-108 

5-109 

5-108 

5-108 


5-88 


POLAL  - 
SLINKX   • 

300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
33C 
331 
332 
333 
334 
335 
33(5 
337 
33J 
33^ 


NTl  11M 
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tLINKX  -  LINK/UNLINK  BLOCK  IN  EXTENDED  POOL 


301 

302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

31A 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32'.  000^24 

325 

326  00042A 

327  0O0A26 

328  000432 

329  000436 

330  000440 

331  000442 

332  000446 

333  000450 

334  000454 

335  000456 

336  000460 

337  000462 

338  000464 

339  000466 


.SBTTL  SLINKX  -  LINK/UNLINK  BLOCK  IN  EXTENDED  POOL 

**-$LINKX-LINK/UNLINK  BLOCK  IN  EXTENDED  POOL 

THIS  ROUTINE  IS  CALLED  TO  LINK  OR  UNLINK  A  BLOCK  IN  A  LIST  THAT  MAY 
INCLUDE  ALLOCATIONS  FROM  EXTENDED  POOL. 

INPUTS: 

TO  LINK  BLOCK  INTO  LIST: 

MOV  X,-{SP)  ;  ADDRESS  OF  BLOCK  TO  BE  LINKED  INTO  LIST 
MOV  Y,-(SP)  ;  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 
CALL  $LINKX 

TO  UNLINK  BLOCK  FROM  LIST: 

MOV  X,-(SP)  ;  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 

MOV  Y,-(SP)  ;  ADDRESS  OF  BLOCK  TO  BE  UNLINKED  FROM  LIST 

CALL  SLINKX 


OUTPUTS: 

BLOCK  IS  LIMKED/UNLINKED, 


010046 

016646  000004 

012600 

011046 

016610  000010 

011046 

012600 
012610 
012600 
012616 
012616 


REGISTERS: 

NO  REGISTERS  ARE  MODIFIED 

INKX:: 

MOV 

RO,-(SP) 

MOV 

4(SP),-(SP) 

CALL 

SCEACX 

MOV 

(SP)+,RO 

MOV 

(RO),-(SP) 

MOV 

10(SP),(R0) 

MOV 

(RO),-(SP) 

CALL 

SCEACX 

MOV 

(SP)+,RO 

MOV 

(SP)-t-,(RO) 

MOV 

(SP)+,RO 

MOV 

(SP)+,(SP) 

MOV 

(SP)+,(SP) 

RETURN 

ADDRESSES  ARE  REMOVED  FROM  THE  STACK. 


SAVE  RO 

set  block  address  for  sceacx 

map  to  block 

get  mapped  address 

save  address  of  next  block  in  list 

set  new  link  word  into  block 

copy  address  of  block  for  sceacx 

map  to  block 

get  mapped  address 

set  new  link  word 

restore  ro 

Clean  off  stack  (saving  return 

...  ADDRESS) 
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A$$CH<= 
A$$CPS= 
A$$PRI= 
A$STRP= 

c$$ck;p= 

C$$ORE= 
CURSH= 
[)$$BU&= 
D$$1SK= 
D$$L11= 
D$$YNC= 
D$$yNM= 
EtSXPR= 
F$$LVL= 


000000 
000000 
000000 
000000 
000000 
OOOAOO 
17756A 
177514 
000000 
000001 
000000 
000000 
000000 
000001 


G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

HEADR 

I$$RAR: 

I$$RDN= 

K$$CNT: 

K$$CSR: 

K$$LDC: 
K$$TPS; 
LDSLP  ■- 
L$$ASG: 


000000 

000000 

000000 

000000 

******  Gx 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000000 


L$$DRV= 
L$$Pn  = 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
H$$MGE= 
M$$NET= 
M$$0VR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 


000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 


N$$MLL= 
N$$M0V= 
N$$NCT= 
N$$PEM= 
P$$?45= 
P$$WRD= 
Q$$0PT= 
R$$DER= 
R$$Kn  = 
R$$SND= 
R$$11M= 
S$$WRG= 
S$$YSZ= 


000001 
000010 
000001 
000001 
000000 
000000 
000010 

ooocoo 

000001 
000000 
000000 
000000 
007600 


T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT=: 

Z.AVL  = 

$ALL16= 

$AL0C2= 

SALPRO 

$ALP16 

SBIAS  = 

$MAPX  = 

$PDVA  = 

$PRAVL= 


000000 
000000 
001000 
000000 
******  GX 
******  GX 
******  GX 
0001 06RG 
OOOOOORG 
******  GX 
******  GX 
******  GX 
******  GX 


.  ABS.   000000 
000122 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,0VR) 
(RU,I,LCL,REL,C0N) 


*♦♦  Assembler   statistics 


0 

0 

8941    Words      (   35   Pages) 

14440  Words     (    55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file; 
Sii'e  of  core  pool  : 
Operatirrg      system; 

SY:pRAu!v2!n32;°34%RALL/CR/-SP=SY:(:i,nRSXMCM.SML/ML,Ll30,110]NETLIB/ML,[130,10]RSXMCM'PA: 


,[132,10:PRALL 


P_BALL 
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PR.LBL   -  READ   LABEL  BLOCK 


321 
322 
323 

32^. 

325  000302 

326  000306 

327  000310 

328  000312 

329  000316 

330  000322 

331  000326 

332  000332 

333  00033A 

334  0003A2 
335 

336 
337 

338  OC03AA 

339  000350 

340  000352 

341  000354 

342  000360 

343  000364 

344  000370 

345  000376 

346  000376 
347 

348 

349 

350  000400 

351 

352  000400 

353 

354 

355 

356 

337 

358 

359 

360 

361 

362  000404 

363  000406 

364  000414 
365 

366  000416 

367  000422 

368  000426 

369  000432 

370  000434 
000440 
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005767 
001412 
010146 
016701 
016700 

010167 
012601 
032767 
001016 


005767 
001473 
010146 
016701 
016700 

060167 
012601 
000460 


000002G 

OOOOOOG 
OOOOOOG 

000006' 

OOOOOOG  OOOOOOG 


000002G 


.IfT 
CALCULATE  LINE  TABLES  SIZE 


5$: 


TSl 

BEQ 

MOV 

MOV 

MOV 

CALL 

MOV 

MOV 

BIT 

BNE 


$PRINC*2 

5$ 

R1,-(SP) 

$$INC,R1 

$PRLLN,RO 

$MUL 

Rl, EXTEND 

(SP)+,R1 

#fL.LLC,$FLAGS 

7$ 


DDM/DLC  PROCESS 


OOOOOOG 
OOOOOOG 

000006' 


TST 

BEQ 

MOV 

MOV 

MOV 

CALL 

ADD 

MOV 

BR 

LLC  PROCESS 


h: 


016700  OOOOOOG 


.IFTF 

MOV 

.IFF 

BIT 
BEQ 
ASL$ 

.ENDC 


371 

372 

573  000442 

374 

375  000444 

376 

377  000452 


060002 
022767 
001066 


017701 
016100 
001404 
005367 


114224  OOOOOOG 


OOOOOOG 
000060 


000004' 


000526  6$: 

116167  000040  000004'  15$: 


ADD 
CMP 
BNE 

SWSTKS 

MOV 

MOV 

BEQ 

DEC 

RETURN 

BR 

MOVB 

RETURN 


$PREXT+2 

9$ 

R1,-(SP) 

$$EXT,R1 

$PfiCLN,RO 

$MUL 

Rl, EXTEND 

(SP)+,R1 

9$ 


;  OF  M$$HGE 

$$EXT,RO 

;  DF  M$$HGE 

#FL.LLC,$FLAGS 

9$ 

6,R0 

;  DF  M$$HGE 

R0,R2 

#"RXPT,$NAME 

10$ 

12$ 

aDECPT,R1 

D$NN(R1) ,R0 

15$ 

LNKS 

121$ 
D$MLL(R1),LNKS 


WAS  THE  LINE  TABLE  SIZE  SPECIFIED  ? 

IF  EQ,  NO  ..  ASSUME  NO  LINE  TABLES 

SAVE  LOAD  SIZE 

GET  THE  LINE  TABLE  COUNT 

GET  THE  LINE  TABLE  SIZE 

GET  SIZE  IN  BYTES  OF  LINE  TABLES  IN  PROCESS 

SAVE  THE  SIZE  OF  THE  LINE  TABLES 

RESTORE  THE  LOAD  SIZE 

IS  THIS  AN  LLC  PROCESS  ? 

IF  NE,  YES 


WAS  THE  CONTROLLER  SIZE  GIVEN  ? 

IF  EQ,  NO  ..  ASSUME  NO  CONTROLLERS 

SAVE  LOAD  SIZE 

GET  THE  CONTROLLER  COUNT 

GET  THE  CONTROLLER  TABLE  SIZE 

GET  SIZE  IN  BYTES  OF  CONTROLLER  TABLES 

ADD  IN  THE  SIZE  OF  THE  CONTROLLER  TABLES 

RESTORE  THE  LOAD  SIZE 

AND  SKIP  LLC  PROCESS  EXTENSION 


GET  THE  EXTEND  SIZE 


IS  THIS  AN  LLC  PROCESS  ? 

!F  EQ,  NO 

CONVERT  BLOCKS  TO  BYTES 


ADD  IN  THE  PROCESS  EXTENSION 
IS  THIS  XPT  ? 
IF  NE,  NO 

ENTER  SYSTEM  STATE 

GET  DECNET  HOME  BLOCK  ADDRESS 

ENDNODE  ? 

IF  YES  -  BRANCH 

SET  ROUTING  FLAG 


CONTINUE 

COPY  MAX  LOGICAL  LINKS 
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SYMBOL 

VALUE 

REFERENCES 

ALOCB 
BLOX 

~       ****** 

000000 

GX 

11-599 
#7-146 

«9-414 

♦9-415 

10-527 

11-609 

11-631 

11-645 

BUFUMP 

=   17235A 

#5-74 

BYTES 

000002 

^ 

#7-147 

♦9-420 

CMODE 

=  UOOOO 

#5-74 

C$LEN 

000012 

9-386 

DEACB 

=      ****** 

GX 

11-667 

DECPT 

-      ****** 

GX 

9-367 

DS<BUF 

000000 

■? 

#7-192 

9-285 

9-432 

D$MLL 

000040 

9-375 

D$NN 
ERROR 

000060 
000010 

[^ 

9-368 
#7-160 

♦8-222 

8-235 

8-244 

♦8-258 

♦8-260 

♦9-440 

♦9-442 

♦9-445 

V  V  W  V     'V 

*9-447 

♦9-449 

10-553 

♦10-561 

♦10-563 

♦10-565 

♦10-567 

♦10-569 

♦10-572 

♦11-662 

♦11-665 

♦13-793 

ERR10 

000012 

#6-118 

9-442 

ERR12 

COOOU 

#6-119 

9-445 

^ 

ERRU 

000016 

#6-120 

9-447 

ERR16 

000020 

#6-121 

9-449 

ERR18 

000022 

#6-122 

10-561 

ER°2 

000002 

#6-114 

8-258 

ERR20 

000024 

#6-123 

10-563 

ERR22 

000026 

#6-124 

10-565 

ERR24 

000030 

#6-125 

10-567 

ERR26 

000032 

#6-126 

19-5^^ 

ERR28 

000034 

#6-127 

10-572 

ERR30 

000036 

#6-128 

11-662 

ERR32 

000040 

#6-129 

11-665 

ERR34 

000042 

#6-130 

13-793 

ERR36 

000044 

#6-131 

ERR38 

000046 

#6-132 

ERR4 

00C004 

#6-115 

ERR6 

000006 

#6-116 

8-260 

ERRS 

000010 

#6-117 

9-440 

EXTE'iD 

000006 

R 

#7-154 

♦9-331 

♦9-344 

9-405 

FE.EXV 

-      ****** 

GX 

10-520 

FE.PLA 

-      **♦♦** 

GX 

8-249 

FL.CEX 

-      ****** 

GX 

9-312 

10-499 

10-503 

FL.LLC 

=      **♦*♦♦ 

GX 

9-333 

FL.TOP 

-      ****** 

GX 

11-636 

11-647 

FMASK 

r     ****** 

GX 

8-249 

10-520 

1$$AS 

-     ****** 

5-74 

13-773 

K I  SARD 

=   172340 

#5-74 

KISAR6 

=   172354 

#5-74 

LNKS 

000004 

R 

#7-148 

•9-370 

♦9-375 

9-381 

9-385 

LSBEXT 

000352 

9-319 

LSBFLG 

000030 

9-290 

LSBLDZ 

000016 

9-294 

LSBMXZ 

000020 

9-296 

L$BPAR 

000004 

10-478 

10-479 

L$BSA 

000010 

9-314 

10-508 

MPAR 

=  172100 

#5-74 

MPCSR 

=   177746 

#5-74 

PROAL 

MACRC 

MACRt 

CRASI- 
RETUF 


PRIG 
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CRASH 
RETURN 


7-207 
6-12A 


7-203 


PROERI 

SYMBOl 

SYMBOl 

$ERR5( 
$ERR5' 
$ERR5( 
$ERR5< 
$ERR6I 
$ERR6 
$ERR6: 
$ERR6 
$ERR6' 
$ERR6 
$ERR6( 
$ERR6 
$ERR6 
$ERR6 
$ERR7 
$ERR9 
$ERR9 
$ERR9 
$ERR9 
SFNDU 

$NAME 
$PNAM 
$PRV. 
$REP. 

SSAVA 
STIOU 
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PROER 
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CREF   O'i.OO 


SYMBOL 

VALUE 

REFFRENCES 

$ERR56 

000524 

RG 

#6-87 

$ERR57 

000560 

RG 

#6-88 

$ERR58 

000616 

RR 

#6-89 

$ERR59 

000662 

RG 

#6-91 

$ERR60 

000710 

RG 

#6-92 

$ERR61 

0007A6 

RG 

#6-93 

$ERR62 

000770 

RG 

#6-94 

$ERR63 

OOIOU 

RG 

#6-95 

$ERR64 

001032 

RG 

#6-97 

$ERR65 

001064 

RG 

#6-98 

$ERR66 

001130 

RG 

#6-99 

$ERR67 

001160 

RG 

#6-101 

tERR68 

001216 

RG 

#6-102 

$ERR69 

001260 

RG 

#6-103 

$ERR70 

001332 

RG 

#6-104 

$ERR9C 

001700 

RG 

#6-120 

$ERR9D 

001726 

RG 

#6-121 

$ERR9E 

002006 

RG 

#6-122 

$ERR99 

001622 

RG 

#6-119 

tFNOUT 

=  ****** 

GX 

6-75 
6-88 

6-76 
6-89 

6-77 
6-101 

6-78 

6-82 

$NAME 

=  ****** 

GX 

8-212 

SPNAME 

=   ****** 

GX 

9-242 

9-244 

SPRV.N 

-      **  V*** 

GX 

6-75 

6-76 

6-82 

6-84 

6-101 

SREP.P 

-     ****** 

GX 

6-77 
9-236 

6-78 

6-81 

6-83 

6-85 

SSAVAL 

=    ****** 

GX 

7-168 

STIOUT 

=    ****** 

GX 

7-185 

6-83 


6-87 


6-84 


6-88 


6-85 


6-89 


6-87 


8-205 


PROERR 
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AT$ACL= 

000100 

DSMAXH 

000066 

AT$ADN= 

OOOOAO 

OSMAXV 

000070 

AT$AUP= 

000020 

DSMLL 

000040 

ATtcyc= 

000004 

DSMNOD 

000041 

AT$LV1= 

000002 

D$NA 

000062 

AT$LV2= 

000001 

DSNBEA 

000056 

AT$NEX= 

000200 

DSNBRA 

000054 

AT$UP  = 

000010 

D$NEND= 

000054 

AJCIR 

000003 

DSNLN 

000030 

A$LEN 

000004 

D$NN 

000060 

A$NIO 

000000 

DSOUTT 

000043 

A$TM 

000003 

DSRETF 

000050 

ASTMl 

000002 

DSRNN 

000002 

A$TSZ 

000000 

D$RTMR 

000076 

ASTYP 

000002 

DSSEG 

000036 

A$$CHK= 

000000 

DSSER 

000032 

A$$CPS= 

000000 

DSSQRL 

000052 

A$$PRI= 

000000 

D$$BUG= 

177514 

A$$rRP= 

000000 

d$$isk;= 

000000 

C$LEN 

000012 

D$$L11= 

000001 

C$NID 

000000 

D$$YNC= 

000000 

C$NXH 

000002 

D$$YNM= 

000000 

CSTIM 

000010 

ESNBR 

000014 

C$$CKP= 

000000 

ESNBS 

000020 

C$SORE= 

000400 

E$NCR 

000034 

CS$RSH=: 

177564 

ESNCS 

000036 

DECPT  = 

»♦*«»*  GX 

ESNIC 

000044 

DSAMXC 

000072 

ESNLEN 

000050 

DSAMXH 

000074 

ESNLLA 

000012 

D$ANN 

000000 

ESNLNK 

000000 

DSBRPR 

000102 

ESNML 

000040 

DSBRTM 

000100 

ESNMR 

000024 

DSDELF 

000045 

ESNMS 

000030 

DSDELW 

000046 

ESNNOD 

000002 

DSEND  = 

000104 

ESNRT 

000042 

D$FNB 

000034 

ESNRTP 

000005 

DSHIOR 

000024 

ESNSEG 

000010 

DSHOST 

000022 

ESNTIM 

000046 

DSINAC 

000044 

ESNUSE 

000004 

OSINCT 

000042 

ESSTRT 

000006 

D$IPL 

000051 

E$$XPR= 

000000 

D$LID 

000020 

F$$LVL= 

000001 

DSL NAM 

000006 

G$$TPP= 

000000 

DSLNUM 

000014 

G$$TSS= 

000000 

DSLST 

000047 

G$$TTK= 

000000 

DSMAXC 

000064 

G$$WRD= 

000000 

.  ABS.  000124    000 
001242    001 
Errors  detected:   0 

•»•  Assembler  statistics 
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(RW,I,LCL,REL,C0N) 


Work  file  ^fiJ-f'  0 
Work  file  ^rice'-  0 
Size  of  wo-k  f''e:  14528  Words  f  57  Pages) 


I$$f<AR= 

000000 

NSLVC 

000036 

TSLIFL 

000013 

$$RON= 

000000 

NJLVI 

000002 

TSLIFO 

000013 

KSAR5  = 

*«»*♦*  GX 

N$LV2 

000010 

TSLIFS 

000013 

K$$CNT= 

177546 

NSMBXQ 

000050 

T$LIN 

000000 

K$$CSR= 

177546 

NSMHCI 

000036 

T$LIPS 

000006 

K$$LDC= 

000000 

N$MHC2 

000044 

T$LLD 

000012 

K$$TPS= 

000074 

NIPLD 

000016 

TSLLDC 

000045 

LDSLP  = 

000000 

N$PLLT 

000030 

TSLLDL 

009S]? 

L$$ASG= 

000000 

NSPRI 

000076 

TSLLDO 

000012 

L$$DRV= 

000000 

NSROAI 

000022 

TSILDS 

000012 

L$$P11= 

000001 

N$R0A2 

000030 

tsllen 

0000^6 

L$$11R= 

000000 

NSRTMX 

000014 

TSLOPR 

000002 

M$$CRB= 

000124 

NSRTMI 

000014 

tsltcl 

000024 

M$$CRX= 

000000 

N$RTM2 

000015 

TSLTIM 

000026 

M$$FCS= 

000000 

N$RT1 

000000 

TS.TPR 

ooSSli 

M$$MGE= 

000000 

N$RT2 

000006 

tsltps 

000020 

M$$NET= 

000000 

NSSLA 

000016 

TSNAPL 

000004 

M$$OVR= 

000000 

NSSNOD 

000012 

TSNFE 

000000 

NF$8LK= 

000100 

NSTCTL 

000112 

T$NLEN 

000010 

NF$DMO= 

000010 

NSTIM 

000004 

TSNNUL 

000002 

NF$HOU= 

000040 

NSTLC 

000100 

TSNOPL 

000006 

NF$RST= 

000002 

N$TNC 

000114 

TSNRNI 

000042 

NF$SCN= 

000020 

NSTRC 

000106 

TSNRPL 

000005 

NF$SHU= 

000004 

NSTTCB 

000110 

TSNRUL 

000007 

NF$TIM= 

000200 

N$VCB 

000010 

TSNVR 

000001 

NSACQ 

000000 

NSVER 

000066 

TSRPRl 

000040 

NSACTL 

000032 

NSXLEN 

000124 

TSSVC 

00821^ 

NSADJI 

000072 

N$$ACC= 

000001 

T$T5 

000030 

N$ADJ2 

000074 

N$$BUF= 

000001 

T$T6 

000032 

NSCACH 

000062 

N$$LDV= 

000001 

T$$KMG= 

000000 

NSCIR 

000034 

N$$MCP= 

000001 

T$$MIN= 

000000 

NSCRC 

000120 

N$$MLL= 

000001 

V$$CTR= 

001000 

NSDLA 

000020 

N$$MOV= 

000010 

X$$DBT= 

000000 

NIDLY 

000014 

N$$NCT= 

000001 

Z.DSP  = 

,***♦.  GX 

NSELEN 

000054 

N$$PEM= 

000001 

Z.LLN  = 

«*»«♦«  GX 

N$ENC 

000042 

P$$P45= 

000000 

$ADJ 

0001 72RG 

NSERRC 

000022 

P$$WRD= 

000000 

$ALN18= 

«♦.**♦  GX 

NSFLG 

000005 

Q$$OPT= 

000010 

$CKT 

001062RG 

NSFNC 

000006 

R$$DER= 

000000 

$ERR9D= 

******  6X 

NSGENO 

000052 

R$$K11= 

000001 

SMAPX  = 

*»♦.*♦  GX 

NSGTM 

000015 

R$$SND= 

000000 

$MUL  = 

******  GX 

N$HC1 

000052 

R$$11M= 

000000 

SNICAH 

OOOOOORG 

N$HC2 

000056 

S$$WRG= 

000000 

SPDVA  = 

******  GX 

NSHIGH 

000033 

S$$YSZ= 

007600 

$R0L 

000466RG 

N$LLT 

000026 

TSFLAG 

000044 

$SAVAL= 

******  GX 

NSLLTM 

000024 

TSLIF 

000013 
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S^'IBL  - 

SYMBOL  TABLE  FILE  LOOKU 

MACRO  V05.03b  Sa 

Symbol 

table 

AttCHK= 

000000 

E.ORUN 

000006 

A$$CPS= 

000000 

E.READ 

000004 

AS$PRI= 

000000 

F$$LVL= 

000001 

A$$TRP= 

000000 

F.DFNB= 

**♦»*•  GX 

CHECK 

000326R 

G$$TPP= 

000000 

CL.OPN= 

»»»»*.  GX 

G$$TSS= 

000000 

C$tCKP= 

000000 

G$$TTK= 

000000 

C$$ORE= 

OOOAOO 

G$$WRO= 

000000 

Ct$RSH= 

177564 

1E.E0F= 

**♦•♦*  GX 

D$$BUG= 

177514 

IE.RBG= 

«♦»***  GX 

D$$1SK= 

000000 

I$$RAR= 

000000 

D$tLll= 

000001 

I$$RDN= 

000000 

D$$yNC= 

000000 

K$$CNT= 

177546 

D$$YNM= 

000000 

K$$CSR= 

177546 

E$$XPR= 

000000 

K$$LDC= 

000000 

E.BAD 

000010 

K$$TPS= 

000074 

E.OPEN 

000002 

LD$LP  = 

000000 

.  ABS. 

000012 

000 

(RW,I,GBL,ABS,OVR) 

000472 

001 

(RW.l.LCL.REL.CON) 

DATA 

000174 

OOr^ 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

•«•  Assembler  statistics 

Work   f 

ile  reads 

:  0 

Work   f 

i le  writes 

:  U 

f  u 
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LOOK 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

M$$CRB= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

MSSNET--: 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 


000372R 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 


N$$NCT= 

N$$PEM= 

N.FTyP= 

P$$P45= 

P$$WRD= 

Q$$OPT= 

READ 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SB.DEF 

SB.LNK 

S8.SYM 

SB.VAL 

ST8BF 

S$$WRG= 


000001 

000001 

♦**♦*♦  GX 

000000 

000000 

000010 

000222R 

000000 

000001 

000000 

000000 

000002 

000000 

000004 

000010 

OOOOOOR 

000000 


002 


S$$YSZ= 

007600 

T$$KMG= 

000000 

r$$MIN= 

000000 

V$$CTR= 

001000 

X$$D8T= 

000000 

$CLBUF= 

****** 

GX 

$CLDEQ= 

****** 

GX 

$CLFDB= 

****** 

GX 

$CLFLG= 

****** 

GX 

$CLIOS= 

****** 

GX 

$CLQUE= 

****** 

GX 

$CLSAV= 

****** 

GX 

$CLSIZ= 

****** 

GX 

$GCLEP= 

****** 

GX 

$SAVAL= 

****** 

GX 

T'YMBL 

OOOOOORG 

S'ze  of  work  file:  8951  Words  (  35  Pages) 
Size  of  core  pool:  14440  Words  (  55  Pages) 
Operating  system:  RSX-11M/PLUS 

SYfsYM8L!J2!ci32;?34]5YM8L/CR/-SP=SY:[1,1JRSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10JRSXMCM/PA:1,[132,10]SYMBL 


SYMBL 
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TMPA 


25^ 
255 
256 
257 
258 
259 
260 
261 
262 

263  0003A0 

264  00C340 

265  000346 

266  000352 

267  000560 

268  000362 

269  000366 

270  000370 

271  000376 

272  000400 
273 

274 
275 
276 

277  000402 

278  000410 


$END2  -  ".END"  OPERAND  2  AC  ION  ROUTINE 

INPUTS: 

$VALUE=TEMPLATE  POINTER  OFFSET 

OUTPUTS: 

$OFF=CURRENT  COPY  OF  SVALUE 


016767  OOOOOOG  OOOOOOG 

032767  OOOOOOG  OOOOOOG 

001010 

005767  OOOOOOG 

100404 

026767     OOOOOOG  OOOOOOG 

103004 


iEND2: 


MOV 

$VALUE,$OFF 

CALL 

$VFLV1 

BIT 

#FL.MUX,$FLAGS 

BNE 

101$ 

TST 

SFLAGI 

BMI 

10$ 

CMP 

$VALUE,$SIZE 

BHJS 

111$ 

10$: 

RETURN 

;  ERROR 

CONDITIONS 

101$: 

EMSG$R 

2 

111$: 

EMSG$R 

15 

COPY  OFFSET   VALUE 

MAKE   SURE    IT'S   LEVEL    1    TEMPLATE 

MUX  LINE? 

IF  NE,  YES  -  OFFSET  NOT  ALLOWED 

HAS  ANY  ERROR  OCCURRED? 

IF  MI,  YES  -  DON'T  CHECK 

IS  OFFSET  WITHIN  LINE  TABLE? 

IF  HIS,  NO 


OFFSET  NOT  ALLOWED  FOR  MUX  LINES 
OFFSET  VALUE  NOT  WITHIN  LINE  TABLE 


G  15 
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620 
621 
622 
623 
62^ 
625 
62ft 
62  < 
628 
629 
630 
631 

632  001350 

633  001350 
63^  00135^ 

635  001360 

636  001 36A 

637  001370 

638  001372 

639  001 37A 
6^0  OOUOO 
6A1  00U02 
6A2  00K06 

643  00H10 

644  00U16 
645 

646 

647 

648 

6'.9  001420 

650  001426 


SFNAME  -  FILE  NAME  ACTION  ROUTINE 

INPUTS: 

.PSTPT=FILE  NAME  ADDRESS 
.PSTCN=FILE  NAME  LENGTH 

OUTPUTS: 

R0,R1,R2=DESTR0YFD 
$FILEN=ASCI2  FILE  NAME 
F2.FIL  SET 


016700 
012701 
016702 
022702 
103413 
112011 
122721 
001412 

105011 
052767 


OOOOOOG 
OOOOOOG 
OOOOOOG 
000011 


000056 


§FNAME:: 


10$: 


OOOOOOG  OOOOOOG 


MOV 

MOV 

MOV 

CMP 

BLO 

M0V8 

CMP8 

BEQ 

SOB 

CLR8 

BIS 

RETURN 


.PSTPT,RO 

#$FILEN,R1 

.PSTCN,R2 

#9.,R2 

lOli 

(R0)+,(R1) 

#'.,(R1)t 

mi 

R2,10$ 

(Rl) 

#F2.FIL,$FLAG2 


ERROR  CONDITIONS 


101$: 
111$: 


EMSG$R  20 
uMSG$R  52 


GET  SOURCE  ADDRESS 

TARGET  ADDRESS 

AND  LENGTH 

9  CHARACTERS  OR  LESS? 

IF  LO,  NO  -  ERROR 

COPY  FILE  NAME 

IS  IT  A  PERIOD? 

IF  EQ,  YES  -  ERROR 

MAKE  IT  AN  ASCIZ  STRING 
INDICATE  VALID  FILE  NAME  SEEN 


FILE  NAME  IS  TOO  LONG 

FILE  NAME  CONTAINS  A  PERIOD 
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NTLUNL   -  NTL  UNLOAD   ROUTINES 
$XPRO  -   CLEAN  UP  PROCESS 


323 

32A 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 

338  000356 

339  000342 

340  000346 

341  000352 

342  0003'^  J 

343  000362 
344 

345  000364 

346  000370 
347 

348  000372 

349 

350  000376 

351 

352  000400 

353  000404 

354  000406 

355  000414 
356 

357  000416 

358 

359  000420 

360 

361 
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.SBTTL  SDSINI   INIT/TERM  PROCESS  VIA  DIRECT  CALL 


SDSINI  -  CALL  PROCESS  AT  INIT  OR  TERM  DISPATCH  ADDRESS 


INPUTS: 
R1 
$$PD!N 


PDV  ADDRESS 
FUNCTION  CODE 


OUTPUTS: 

PROCESS  CALLED  AT  INIT/TERM  DISPATCH 
C-8IT   -  SUCCESS/FAILURE 


016102  OOOOOOG 

016105  OOOOOOG 

016746  OOOOOOG 
010603 


005726 

010566  000002 


032710  000001 
001004 

000771 

000241 


SDSINI 


10$: 


20$: 


:SWSTK$ 
MOV 
MOV 
CALL 
MOV 
MOV 

CALL 
TST 

MOV 

RETURN 

BIT 
BNE 

WSIGSS 
BR 

CLC 

RETURN 


10$ 

Z.NAM(R1),R2 

Z.DAT(R1),R5 

SPDVID 

$$PDIN,-(SP) 

SP,R3 

aLLCAL 
CSP)  + 

R5,2(SP) 


#INIFL,(RO) 
20$ 


10$ 


ENTER  SYSTEM  STATE 

COPY  PROCESS  NAME 

COPY  PROCESS  DATA  BASE  ADDRESS 

GET  PDV  INDEX 

GET  ADDRESS  OF  FUNCTION  CODE 

STORE  ADDRESS  OF  FUNCTION  CODE 

DISPATCH  TO  PROCESS 
CLEAN  UP  STACK 

LOAD  DDB  STATUS  ADDRESS  INTO  USER  RO 


HAS  PROCESS  COMPLETED 
IF  YES  -  BRANCH 
IF  NO  -  WAIT 
TRY  AGAIN 

SET  SUCCESS  STATUS 


NTi    iiMi  nan  RniiTiNFS 
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§0.2 


34  Page  16 


891 

892 

893 

89A 

895 

896 

897 

898 

899 

900 

901 

902 

903 

90A 

905 

906 

907 

908 

909 

910 

911 

912 

913 

9U 

915 

916 

917 

918 

919 

920 

921 

922 

923 

92A 

925 

926 

927 

928 

929 

930 

931 

932 

933 


.SBTTL 
♦♦»  -  ICBSC  • 
INPUT; 


ICBSC  -  DETERMINE  IF  VECTOR  POINTS  AT  IC8 
DETERMINE  IF  VECTOR  POINTS  AT  ICB 


RO  =  VECTOR  ADDRESS 

R1  =  HIGH  LIMIT  FOR  LEGAL  VECTORS 

R2  =  LINE  TABLE  START  ADDRESS 

R3  =  ADDRESS  OF  END  OF  LINE  TABLE 

SBIAS  =  BIAS  FOR  THIS  PROCESS 


OUTPUT: 

C-8IT 

SUCCESS/FAILURE 
IF  SUCCESS: 

R2  = 

START  ADDRESS  OF  ICB 

R3  = 

ENH  ADDRESS  OF  ICB 

R4,R5 

=  DESTROYED 

NTLUNl 
XOBJTE 

U^ 

^^ 
^^ 
u^ 

14! 
14! 
14' 
14' 
14' 
14' 
14 
14 


001662 


ICBSC: 


.IF  DF  R$$MPL 


001662  020227  120000 

001666  103412 

001670  032710  000001 

001674  001007 

001676  011004 
001700 

001704  103404 

001706  011002 

001710  060203 

001712  000401 

001714  000261 
001716 


5$: 


10$: 
20$: 


MOV 
ADD 
BIT 
BNE 
.ENDC 

CMP 
BLO 

BIT 

BNE 

MOV 

CALL 

BCS 

MOV 

ADD 

BR 

SEC 
RETURN 


FMASK,FMKTMP 
#2,FMKTMP 
#F2.DAS,aFMKTMP 
5$ 


R2, #120000 
10$ 

#1,(R0) 

10$ 

(R0),R4 

ICBLEN 

20$ 

(R0),R2 

R2,R3 

20i 


GET  $FMASK+2  ADDRESS 

;'is  DATA  SPACE  ENABLED  ? 
IF  NE,  YES 


PARTITION  LINE  TABLE? 
IF  LO,  NO  -  NOT  AN  ICB 

ICB  ON  WORD  BOUNDARY? 
IF  NE,  NO  -  NOT  AN  ICB 
GET  ADDRESS  OF  ASSUMED  ICB 
CALCULATE  LENGTH  IF  THIS  IS  AN  ICB 
IF  CS,  LEAVE 

GET  START  ADDRESS  OF  ICB  IN  R2 
CALCULATE  END  ADDRESS  OF  ICB 
AND  LEAVE 

INDICATE  FAILURE 
RETURN  TO  CALLER 
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NTLUNL  - 
XOBJTB  - 

HA4 
K45 
U46 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 


NIL  UNLOAD  ROUTINES    MACRO  V05.03b  Saturday  29-Jun-85 
OE-ALLLOCATE  OBJECT  TABLE 
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003124  016703  OOOOOOG 
003130  012701  000012 
003134 
003140 


.SBTTL  XOSJTB  -  DE-ALLLOCATE  OBJECT  TABLE 

I- 

XOBJTB  -  DE-ALLOCATE  THE  OBJECT  TABLE 

INPUTS: 

NONE 

OUTPUTS: 

ALL  OBJECT  BLOCKS  ARE  DE-ALLOCATED 


XOBJTB:  MOV  08JHD,R3 

MOV  #0.LEN,R1 

CALL  DEALST 
RETURN 


;  POINT  AT  START  OF  OBJECT  TABLE  LIST 
;  GET  THE  LENGTH  OF  AN  OBJECT  BLOCK 
;  DEALLOCATE  THE  OBJECT  BLOCK  TABLE 


H     3 
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1988 

.SBTTL 

XSERTB  DEALLOC 

ATE  SERVICE  BLOCKS 

1989 

+ 

1990 

XSERTB  -  DEALLOCATE  SERVICE 

BLOCKS 

1991 

1992 

INPUTS  - 

1993 

NONE 

1994 

1995 

OUTPUTS  - 

1996 

SERVICE 

BLOCKS  DEALLOCATED 

1997 
1998 
1999  004476 

- 

012701 

000052 

(SERTB: 

MOV 

*S.LENG,R1 

;  GET  BLOCK  LENGTH 

2000  004502 

017703 

OOOOOOG 

MOV 

aDECPT,R3 

;  GET  DECNET  HOME  BLOCK  ADDRESS 

2001  004506 

001404 

BEQ 

10$ 

;  IF  PSI  ONLY  SYSTEM  -  BRANCH 

2002  004510 

2003 

2004  004514 

062703 

000032 

ADD 

#D$SER,R3 

;  GET  SERVICE  BLOCK  LISTHEAD 

CALL 

DEALST 

;  DEALLOCATE  ALL  BLOCKS 

2005 

2006  004520 

0$: 

RETURN 

2007 

2008 

2009 

2010 

+ 

2011 

•  XFILTB  -  DEALLOCATE  FILENAME 

BLOCK 

2012 

2013 

■  INPUTS  - 

2014 

NONE 

2015 

2016 

;  OUTPUTS  - 

2017 

ALL  FILENAME  BLOCKS  DEALLOCATED 

2018 
2019 
2020  004522 

;- 

017703 

OOOOOOG 

XFILTB: 

MOV 

aDECPT,R3 

;  GET  DECNET  HOME  BLOCK  ADDRESS 

2021  004526 

001436 

BEQ 

30$ 

;  IF  PSI  ONLY  SYSTEM  -  BRANCH 

2022  004530 

2023 

2024  004534 

062703 

000034 

ADD 

#D$FNB,R3 

;  GET  FILENAME  BLOCK  LISTHEAD 

SWSTK$ 

30$ 

;  ENTER  SYSTEM  STATE 

2025  004540 

SAVMAP 

;  SAVE  MAPPING 

2026 

2027  004544 

011300 

10$: 

MOV 

(R3),R0 

;  GET  NEXT  FILENAME  BLOCK  ADDRESS 

2028  004546 

2029 

2030  004550 

001424 

BEQ 

20$ 

;  IF  END  OF  LIST  -  BRANCH 

010046 

MOV 

RO,-(SP) 

;  SET  UNMAPPED  ADDRESS 

2031  004552 

CALL 

$CEACX 

;  GET  ACCESS  TO  BLOCK 

2032  004556 

012604 

MOV 

(SP)+,R4 

;  GET  MAPPED  ADDRESS 

2033  004560 

2034 

2035  004562 

011413 

MOV 

(R4),(R3) 

;  SET  NEW  LISTHEAD  ADDRESS 

010401 

MOV 

R4,R1 

;  COPY  MAPPED  ADL.Rt.^S 

2036  004564 

005002 

CLR 

R2 

;  INIT  REG 

2037  004566 

062701 

000003 

ADD 

#F.USEt1,R1 

;  CALCULATE  SIZE  OF  BLOCK 

2038  004572 

111102 

MOVE 

(R1),R2 

;  GET  LENGTH  OF  FIRST  FILED 

2039  004  574 

060201 

ADD 

R2,R1 

;  GET  ADDRESS  OF  NEXT  FIELD  LENGTH 

2040  004576 

2041 

2042  004600 

005046 

CLR 

-(SP) 

;  INIT  STACK  LOCATION 

111116 

M0V8 

(R1),(SP) 

;  GET  NEXT  FIELD  LENGTH 

2043  004602 

061601 

ADD 

(SP),R1 

;  GET  ADDRESS  OF  NEXT  FIELD  LENGTH 

2044  004604 

111116 

M0V8 

(R1),(SP) 

;  GET  NEXT  FIELD  LENGTH 

I  iMi  nAh   Dnur  i  Mf; 
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CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

R.FLAG 

000012 

#5-71 

R.LEN 

000014 

#5-71               25-1518 

R.LNK 

000000 

#5-71 

R.NAM 

000002 

#5-71 

SCAN 

=   ♦*»*««      GX 

14-569 

SCSOFF 

=  000001 

#5-66 

SCSON 

=  000000 

#5-66 

SCSRST 

=  000003 

#5-66 

SCSSHU 

=  000002 

#5-66 

SDBLH 

=   ****»»     GX 

19-1144 

SF.ALT 

=  000200 

#5-72 

SF.CIR 

=  000010 

#5-74 

S'^.DEV 

=  000020 

#5-74 

SF.DIA 

=  004000 

#5-74 

SF.DPA 

=  000100 

#5-74 

SF.DPC 

=  000200 

#5-74 

SF.DUM 

=  010000 

#5-74 

SF.ENA 

=  000100 

#5-72 

SF.HAD 

=  000004 

#5-74 

SF.HST 

=  000002 

#5-74 

SF.LOA 

=  002000 

#5-74 

SF.LPB 

=  000004 

#5-72 

SF.MFL 

=  000040 

#5-72 

SF.PAC 

=  000020 

#5-72 

SF.PH3 

=  020000 

#5-74 

SF.PSS 

=  000040 

#5-74 

SF.REA 

=  000010 

#5-72 

SF.SEC 

=  000400 

#5-74 

SF.SER 

=  000001 

#5-72 

SF.SVC 

=  000002 

#5-72 

SF.TER 

=  001000 

#5-74 

SF.UNL 

=  000040 

#5-72 

SLTMA 

=   ♦*♦*»♦     GX 

18-1027         19-1090 

SLTNM 

=   «»»»**      GX 

18-1029         19-1091 

SVSDUM 

=   000001 

#5-66 

SV$LOA 

=  000000 

#5-66 

S.ADD 

000004 

#5-74 

S.CIR 

000016 

#5-74 

S.COST 

000001 

#5-72 

S.CEV 

000020 

#5-74 

S.DIA 

000046 

#5-74 

S.DPA 

000032 

#5-74 

S.DPC 

000056 

#5-74 

5.DUM 

000050 

#5-74 

S.FLAG 

000002 

#5-74 

S.FLG 

000000 

#5-72 

S.HAD 

D00010 

#5-74 

S.HST 

000006 

#5-74 

S.LEN 

000004 

#5-72               11-429 

S.LENG 

000052 

#5-74               32-1999 

S.LNK 

000000 

#5-74 

S.LOA 

000044 

#5-74 

18-1044 


NTl  IINI 
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SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


U.SCB 

U.STS 

J. UNIT 

SALOCB 

SALOCl 

SASUMR 

SCLKHD 

SCRAVL 

SDEACB 

SDEACT 

SOEUMR 

SDEVHD 

SEXSIZ 

$FMAS< 

$NSO 

$NS1 

$NS2 

$NS3 

$NS4 

$NS5 

$NS6 

$NS7 

SPARHD 

STKTCB 

.TTO 


000020 
000005 
000006 

-  *  tiT*  t  * 
~  ****** 

-  ****** 
~  ****** 

-  ****** 
~  ****** 
r  ****** 


~     ****** 


:r     ****** 

=    ****** 


-    ****** 
r     ****** 


****** 


~     ****** 
-     ****** 


-     ****** 


REFERENCES 

5-108 
5-108 
5-108 
5-1K 
5-1K 
5-117 
5-115 
5-1U 
5-1H 
5-1U 
5-117 
5-1U 
5-1U 
5-lU 
5-115 
5-115 
5-115 
5-115 
5-115 
5-115 
5-115 
5-115 
5-1U 
5-115 
5-115 
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POLAL  - 
SCEACX 
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PC5LAL 


POLAL  - 
SCEACX 


NETWORK 
-  ACCESS 


3A1 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360  000470 

361 

362 

363  000470 

364  000476 

365  000500 

366  000502 

367  000506 
368 

369 

370 

371  000514 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394  V0C542 

395  000550 
396 

397  000554 


6  7 
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BLOCK  IN  EXTENDED  POOL 

.SBTTL  SCEACX  -  ACCESS  BLOCK  IN  EXTENDED  POOL 


»*-$CEACX-ACCESS  BLOCK  IN  EXTENDED  POOL 

THIS  SUBROUTINE  MAPS  TO  A  BLOCK  IN  EXTENDED  SINGLE  WORD  POOL, 
AND  RETURNS  A  VIRTUAL  ADDRESS  TO  ACCESS  THE  BLOCK. 

INPUTS: 

2(SP)  =  ADDRESS  OF  BLOCK  TO  BE  ACCESSED 

OUTPUTS: 

2(SP)  =  VIRTUAL  ADDRESS  OF  MAPPED  BLOCK 

NOTE:  MAPPING  WILL  BE  MODIFIED  IF  THE  BLOCK  IS  WITHIN  THE  EXTENDED  POOL 
(KISAR5  FOR  M/S/M-PLUS;  UPARO+4  FOR  IAS) 


SCEACX: 


032766  000001  000002 
001427 

016600  000004 

042766  177701  000004 


052766  120000  000004 


000006 


000536  042700  176000 


017777  OOOOOOG  OOOOOOG 
060077  OOOOOOG 


.IF  DF  M$$MGE 


BIT 

BEQ 

SAVRG 

MOV 

BIC 


ASH 

.IFF 

.REPT 

ROR 

.ENDR 

.ENDC 

BIC 


MOV 
ADD 


#1,2CSP) 

100$ 

<R0> 

4(SP),R0 

#177701, 4(SP) 


.IF  DF  R$$11M 

BIS     *120000,4(SP) 


.IFF 

BIS 

.ENDC 

.IF  DF  R$$EIS 


#040000, 4(SP) 


#-6,R0 


6 
RO 


#176000, RO 


aXBIAS,aKSAR5 
R0,SKSAR5 


IS  THE  BLOCK  IN  EXTENDED  POOL  ? 
IF  EQ,  NO  -  ALREADY  MAPPED  TO  IT 
ELSE,  SAVE  RO 
COPY  BLOCK  ADDRESS 
RETURN  VIRTUAL  ADDRESS 


MAPPED  THROUGH  KISAR5 


MAPPED  THROUGH  APR2 


CONVERT  ADDRESS  TO  BLOCK  BIAS 


CLEAR  EXTRANEOUS  BITS 


MAP  TO  BASE  ADDRESS  OF  POOL 
...  UPDATE  TO  PROPER  BLOCK 


RESRG   <R0> 


RESTORE  RO 
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SYMBOL  CROSS  REFERENCE 


G  8 

PAGE  1 

CREF   0^.00 


SYMBOL 

VALUE 

REFERENCES 

HEAOR 

^ 

****** 

GX 

6-10^ 

I$$AS 

- 

****** 

5-60 

"l$$MGE 

- 

ooocoo 

6-86 

«$11D 

r 

****** 

5-60 

«$11M 

- 

000000 

6-80 

Z.AVL 

~ 

****** 

GX 

6-84 

$ALL16 

= 

****** 

GX 

7-166 

$AL0C2 

= 

****** 

GX 

6-93 

SALPRO 

000106 

RG 

#7-163 

$ALP16 

000000 

RG 

#6-79 

SB  IAS 

- 

****** 

GX 

6-89 

SMAPX 

^ 

****** 

GX 

6-90 

IPDVA 

- 

****** 

GX 

6-83 

tPRAVL 

= 

****** 

GX 

»6-84 

*6-113 


7-I61!, 


6-92 


*6-n4 


6-113 


PRAI  I 
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PR.LBL  -  READ  LABEL  BLOCK 


378 

379 

380  000454 

105534 

381  000456 

005767 

000004' 

382  000462 

100443 

383 

384  000464 

385  000466 

016700 

000004' 

386  000472 

012701 

000012 

387  000476 

388  000502 

010100 

389  000504 

390 

391  000506 

062700 

000077 

392  000512 

042700 

000077 

393 

394 

395 

396  000516 

397 

398 

399 

400  000532 

060002 

401  000534 

060067 

000020' 

402 

403  000540 

404 

405  000540 

016700 

000006' 

406  000544 

062700 

000077 

407  000550 

042700 

000077 

408 

409  000554 

410  000570 

060002 

411 

412 

413 

414  000572 

010167 

000000' 

415  000576 

060267 

000000' 

416  000602 

417  000616 

418  000632 

010167 

OOOOOOG 

419  000636 

060102 

420  000640 

010267 

000002' 

421 

422 
423 
424  000644 

022767 

114224  OOOOOOG 

425  000652 

001403 

426 

427  000654 

022702 

020000 

428  000660 

103427 

429  000662 

430 

431 

432  000662 

012700 

000000' 

4  33  000666 

000241 

4  34  000670 

12$: 


9$: 


10$: 


20$: 


BCS 
TST 
BMI 

SAVRG 

MOV 

MOV 

CALL 

MOV 

RESRG 

ADD 
BIC 

.JF  DF 

ASR$ 

.IFTF 

ADD 
ADD 

.IFT 

MOV 
ADD 
BIC 

ASR$ 
ADD 

.ENDC 

MOV 

ADD 

ASL$ 

ASL$ 

MOV 

ADD 

MOV 


142$ 
LNKS 
10$ 

<R1> 

LNKS,RO 

#C$LEN,R1 

$MUL 

RI.RO 

<R1> 

#77, RO 
#77, RO 

M$$MGE 

6,R0 

;  DF  M$$MGE 

R0,R2 
R0,$LDS1Z 

;  DF  M$$MGE 

EXTEND, RO 
#77, RO 
#77, RO 

6,R0 
R0,R2 

;  DF  M$$MGE 

R1,SL0X 

R2,BL0X 

6,R1 

6,R2 

R1,$LLEN 

R1,R2 

R2, BYTES 


.IF  DF  M$IMGE 


CMP 
BEQ 

CMP 
BLO 

.ENDC 

MOV 
CLC 
RETURN 


#»RXPT,$NAME 
20$ 

#20000, R2 
141$ 


#DSK8UF,R0 


Page  9-2 


IF  ECL  MISSING 

ENDNODE  ? 

IF  NO  -  BRANCH 


BRANCH 


SAVE  REG 

GET  MAX  LINKS 

CALCULATE  NI  CACHE  ENTRY  LENGTH 


RESTORE  REG 

ROUND  UP  TO  NEXT  BLOCK 

CONVERT  BYTES  TO  BLOCKS 


INCREASE  EXTEND  SIZE 
AND  LOAD  SIZE 


GET  THE  EXTEND  SIZE 
ROUND  UP  TO  NEXT  BLOCK 


CONVERT  BYTES  TO  BLOCKS 
INCREASE  THE  EXTEND  SIZE 


SET  PROCESS  SIZE  IN  BLOCKS 

CONVERt'FROM  BLOCKS  TO  BYTES 
BY  SHIFTING  LEFT  6  PLACES 
SET  TRANSFER  SIZE  IN  BYTES 
ADD  LOAD  SIZE  TO  EXTEND  SIZE 
SET  PROCESS  SIZE  IN  BYTES 


XPT  ? 

IF  YES  -  BRANCH 

IS  PROCESS  EXTENSION  >  4K  WORDS? 
IF  10,  YES 


RESTORE  ADDRESS  OF  LABEL  BLOCK  BUFFER 
INDICATE  SUCCESS 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


M$$MGE 

PARHD 

PCBA 

PIRQ 

PLGTH 

PMODE 

PR.LBL 

PR. PAR 

PR. SUB 

PR.XFR 

PRO 

PRl 

PR2 

PR3 

PR4 

PR5 

PR6 

PR7 

PS 

PS.COM 

PS.NSF 

PS. SYS 

P.BLKS 

P.  BUSY 

P. MAIN 

P.NAM 

P. PRO 

P.REL 

P.STAT 

P.  SUB 

R$$EIS 

R$$MPL 

R$$11D 

R$$11M 

SWR 

TPS 

TSSNHD 

UBMPR 

UISARO 

UISARl 

X$$MDB 

SCLDEQ 

SCLIOS 

SCLOPE 

SFLAGS 

$inso 

iLDSIZ 

SLLEN 

SMUL 

SNAME 

SPNAME 

SPRClN 


GX 


GX 


=  000000 

-   ****** 

000012  R 
=  177772 

=   ****** 

=  030000 
000156  R 
000752  R 
001332  R 
001620  R 

=  000000 

=  000040 

=  000100 

=  000140 

=  000200 

=  000240 

=  000300 

=  000340 

=  177776 

=  000200 

=  000400 

=  000040 
000016 
000024 
000012 
000004 

=   ****** 

000014 
000030 
000010 

-  ****** 

-  ****** 
=   ****** 

=  000000 
=  177570 
=  177564 
=  040000 
=■-  170200 
=  177640 
=  177642 

r  ****** 

=  ******  cx 

=  ******  GX 

=  .**•*»  GX 

=  ******  GX 
--  »»»»**  GX 

000020  RG 
=  ******  GX 
=  ******  GX 
=  ******  GX 

000014  RG 
=  ******  GX 


GX 


REFERENCES 

5-74 

10-481 
#7-166 
#5-74 

11-598 
#5-74 

8-228 

8-231 

10-501 

8-233 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 
#5-74 

10-539 

11-619 

10-497 

10-510 

10-541 

10-543 

10-484 
*8-251 

10-505 

10-497 

11-627 

9-396 

5-74 

5-74 

7-162 
#5-74 
#5-74 

9-290 
#5-74 
#5-74 
#5-74 

10-513 

8-234 

8-224 

8-223 

9-312 

9-439 
#7-184 
*9-418 

9-330 

9-304 
#7-171 

9-342 


7-153 

•8-221 

11-602 

#9-285 
#10-475 
#11-598 
#13-758 


11-619 

11-619 
10-527 
10-544 
•11-608 
10-486 

11-626 
10-539 
•11-635 
9-409 
5-74 
13-773 
10-474 


9-439 

9-333 
13-792 
•9-295 

9-345 
9-363 

•10-475 


9-301 
8-238 
11-666 


•11-609 
10-546 

•11-606 

11-629 
•11-619 
•11-652 

9-416 

5-74 

13-759 


13-792 

10-499 

•9-401 

9-387 

9-424 

♦10-476 
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CREF       04 

00 

9-394 

9-422 

9-443 

10-495 

10-571 

11-596 

•8-242 

8-246 

•10-551 

13-760 

11-640 
•10-546 

11-643 
10-547 

•10-547 

•11-607 

•11-634 

•  n-638 

11-642 

•11-651 

13-761 

•11-655 
9-417 
10-489 

10-507 
11-611 

10-503 


11-607 
•10-478 


11-636 


O0-479 


11-647 


10-484 


10-486 
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G  n 


"FILE««ID«*PROERR 


PPPPPPPP 

PPPPPPPP 

PP     PP 

PP     PP 

PP     PP 

PP     PP 

PPPPPPPP 

PPPPPPPP 

PP 

PP 

PP 

PP 

PP 

PP 


RRRRRRRR 
RRRRRRRR 
RR      RR 
RR      RR 
RR      RR 
RR      RR 
RRRRRRRR 
RRRRRRRR 
RR  RR 
RR  RR 
RR    RR 
RR    RR 
RR      RR 
RR      RR 


PROER 

MACRO 

MACRO 

CALL 
NTLER 

RETUR 


000000 
000000 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000000 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


EEEEEEEEEE 

EEEEEEEEEE 

EE 

EE 

EE 

EE 

EEEEEEEE 

EEEEEEEE 

EE 

EE 

EE 

EE 

EEEEEEEEEE 

EEEEEEEEEE 


RRRRRRRR 
RRRRRRRR 
RR      RR 
RR      RR 
RR      RR 
RR      RR 
RRRRRRRR 
RRRRRRRR 
RR  RR 
RR  RR 
RR    RR 
RR    RR 
RR      RR 
RR      RR 


RRRRRRRR 
RRRRRRRR 
RR      RR 
RR      RR 
RR      RR 
RR     RR 
RRRRRRRR 
RRRRRRRR 
RR  RR 
RR  RR 
RR    RR 
RR    RR 
RR      RR 
RR      RR 


SSSSSSSS 

IiTTT 

TTTTT 

SSSSSS5S 

TTTTT 

TTTTT 

SS 

SS 

SS 

T 

SS 

r 

SSSSSS 

T 

SSSSSS 

T 

SS 

T 

SS 

T 

SS 

T 

SS 

T 

LLLLLLLLLL 

SSSSSSSS 

T 

LLLLLLLLLL 

SSSSSSSS 

T 
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6  12 

PAGE  3 

CREF   04.00 


MACRO  NAME 

CALL 
NTLERS 


RETURN 


REFERENCES 

7-168 
#5-59 
6-8A 
6-97 
6-108 
7-190 


7-172 

6-75 

6-85 

6-98 

6-119 

8-221 


7-185 

6-76 

6-87 

6-99 

6-120 

9-251 


7-188 

6-77 

6-88 

6-101 
6-121 


8-205 

6-78 

6-89 

6-102 

6-122 


8-213 
6-79 
6-91 
6-103 


9-236 
6-80 
6-92 
6-10'i 


9-243 
6-81 
6-93 
6-105 


9-216 
6-82 
6-94 
6-106 


6-83 
6-95 
6-107 


PROXP 
Symbo 

Size  I 
Opera 

E  lapsi 
SY-.PRi 
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'»F!LE*MD»«PR0XPT 


PROXP 


G  13 

PROXPT  -  XPT  PROCESS   INITIALIZE  MACRO  V05.03b  Saturday  29-Jun-85  00:37     Page  9-2 
Symbol    table 

Size  ot   core   pool:    15A96  Words      (    59  Pages) 
Operating     system:    RSX-IIM/PLUS 

si:^ROXPr!v!;[°5^?°3l]PROXPr/CR/-SP=Sy:[1J]RSXMCM.SML/MLjn0J10]NETLI8/MLj130J0]RSXMCM/^^ 


PROXPT 
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SYMBOL  CROSS  REFERENCE 


G  U 

PAGE    1 

CREF        04.00 


TMPAC 


SYMBOL 

VALUE 

REFERENCES 

CHECK 

000326 

R 

6-139 

#8-219 

CL.OPN 

~      ****** 

GX 

6-1  U 

E.BAD 

000010 

#5-68 

7-200 

f.OPEN 

000002 

#5-65 

6-164 

:.ORUN 

000006 

#5-67 

7-194 

;.READ 

000004 

#5-66 

7-197 

■.DFNB 

-    ****** 

GX 

6-116 

IE. EOF 

r    ****** 

GX 

7-198 

lE.RBG 

-    ****** 

GX 

7-195 

LOOK 

000372 

R 

6-146 

#9-249 

*J.FTYP 

=  ****** 

GX 

6-117 

^EAD 

000222 

R 

6-137 

#7-181 

SB.DEF 

000002 

#5-77 

•6-127 

6-144 

SB.LNK 

000000 

#5-76 

SB.SYM 

000004 

#5-78 

9-260 

9-262 

SB.VAL 

000010 

#5-79 

•6-128 

•9-266 

STBBF 

000000 

R 

#5-91 

7-181 

7-188 

SCLBUF 

-    ****** 

GX 

*7-181 

SCLDEQ 

r     ****** 

GX 

6-153 

SCLFDB 

=    ***-** 

GX 

6-116 

SCLFLG 

-    ****** 

GX 

•6-114 

SCLIOS 

~    ****** 

GX 

6-134 

7-184 

SCLOUE 

z:      ****** 

GX 

6-133 

SCLSAV 

-      **»■*** 

GX 

6-113 

SCLSIZ 

-      ****** 

GX 

*7-182 

SGCLEP 

-      ****** 

GX 

7-183 

SSAVAL 

-      ****** 

GX 

6-115 

$SYMBL 

000000 

RG 

#6-112 

•9-265 


SYMBL 
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TMP« 


280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 

294  000416 

295  000416 

296  000424 

297  000430 

298  000432 

299  000432 

300  000436 

301  000444 

302  000450 

303  000454 

304  C00454 

305  000460 

306  000462 

307  000466 
708  000474 
309 

310 


SLFLHD  -  ".LFLHD"  ACTION  ROUTINE 
SMPLHD  -  ".MPLHD"  ACTION  ROUTINE 
SLSTHD  -  ".LSTHD"  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

$LFLD/$MPLD=CURRENT  VALUE  OF  $SIZE 


.ENABL  LS8 


016767 
012700 
000407 


016767 
012700 


103405 
112712 
062767 


SLFLHD: 


OOOOOOG 

OOOOOOG 

MOV 

$size,$lfld 

OOOOOOG 

SMPLHD: 

MOV 
BR 

'call 

#fi.lfl,ro 

10$ 

$vfdlc 

OOOOOOG 

OOOOOOG 

MOV 

$size,$mpld 

OOOOOOG 

MOV 

#fi.mpl,ro 

10$: 

CALL 

$VFSPC 

SLSTHD. 

'call 

BCS 

$RQ1 
20$ 

OOOOOOG 

MOVE 

*. LSTHD, (R2) 

000004 

OOOOOOG 

20$: 

ADD 

RETURN 

#4,$SIZE 

SAVE  CURRENT  DISPLACEMENT 
GET  $FLAG1  BIT  CODE 


MAKE  SURE  IT'S  A  DLC 

SAVE  CURRENT  DISPLACEMENT 

GET  $FLAG1  BIT  CODE 

MAKE  SURE  THIS  IS  THE  FIRST  AND  ONLr 

REQUEST  BINARY  FILE 
IF  CS,  NO  ACCESS 
STORE  FUNCTION  CODE 
ADJUST  DATA  BASE  SIZE 


.DSABL  LSB 


TMP 
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SVXLLC  -  VERIFY  NOT  LLC  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

ERROR  IF  LLC  BEING  LOADED 


652 

653 

65A 

655 

656 

657 

658 

659 

660     .  i    r- 

662  00K3^  C32767  OOOOOOC  OOOOOOG  ^^''^    '    BIT     #FL.DDMIFL.DLC,$FLAGS  •  IS  IT  EITHER  DDM  OR  DLC? 

M,'^   nnu/.?  niOO"?  BNE     10$  ;  IF  NE,  YES 

AM   Oo\tli  EMSG$   80  ;   DDM/DLC  OPERATOR  IN  LLC  TEMPLATE 

665  OOU52  101:    RETURN 

666 

667 

668       000001  .END 
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363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 

379  000422 

380  000426 

381  000432 

382  000436 

383  000442 

384  000446 

385  000462 

386  000466 

387  000470 

388  000474 


016301  000044 

062701  000050 

166301  000042 

062701  000077 

042701  000077 

016300  000046 
001402 


.SBTTL  DEAECL  -  DEALLOCATE  ECL  NODE  COUNTERS 


DEAECL  -  DEALLOCATE  ECL  NODE  COUNTER  BLOCK 

INPUTS: 

R3  -  ADDRESS  OF  LINE  TABLE 
R4  -  ADDRESS  OF  ECL'S  PDV 

OUTPUTS: 

R3  -  PRESERVED 
R4  -  PRESERVED 
ECL  NODE  COUNTER  BLOCK  IS  DEALLOCATED 


DEAECL:  MOV 
ADD 
SUB 
ADD 
BIC 
ASR$ 
MOV 
BEQ 
CALL 


10$: 


RETURN 


N$ENC+2(R3),R1 

#E$NLEN,R1 

N$ENC(R3),R1 

#77, R1 

*77,R1 

6,R1 

N$ENC+4(R3),R0 

10$ 

$DEA18 


GET  START  OF  LAST  NODE  COUNTER  BLOCK 
POINT  TO  END  OF  COUNTER  BLOCK 
CALCULATE  NUMBER  OF  PYTES 
ROUND  TO  NEXT  BLOCK  biJNDARY 

CONVERT  TO  BLOCK  COUNT 

GET  APR  BIAS 

NO  COUNTERS  ALLOCATED 

DEALLOCATE  MINHOP/COST  MATRIX 


NTI 


NTlllNI    -  NTL   UNLOAD  ROUTINES  MACRO   V05.03b   Saturday   29-Jun-85 


005005 

0227?^,     013746 

0010^3 

022A2A 


NTLUNL   -  NIL   UNLOAD  ROUTINES 
ICBLEN  -   CHECK    KB  FOR   LENGTH 


935 
936 
937 
938 
939 
940 
941 
9A2 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 

956  001720 

957  001720 

958  001722 

959  001726 

960  001730 
961 

962 

963 

964 

965 

966 

96^ 

968 

969 

970 

971 

972  001732 

973 

974 

975 

976  001736 

977  001740 
978 

979 
980 
981 
982 
983 
984 
985 
986 

987  001742 

988  00174/ 

989  00174 

990  001750 
991 


:i 
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.SBTTL  ICBLEN  -  CHECK  KB  FOR  LENGTH 

■♦*  -  KSLEN  -  CHECK  KB  FOR  LENGTH 

INPUT: 

R2  =  START  ADDRESS  OF  LINE  TABLE 

R3  =  END  ADDRESS  OF  LINE  TABLE 

R4  =  START  ADDRESS  OF  ASSUMED  KB 

$BIAS  =  BIAS  FOR  PROCESS  (FOR  NGN  RSX-11M+  SYSTEMS) 

BIAS  =  BIAS  FOR  PROCESS  (RSX-11M+) 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 
IF  SUCCESS: 

R3  =  LENGTH  OF  KB  BLOCK 
ICBSZ  =  SIZE  OF  KB  BLOCK 
R4,R5  =  DESTROYED 


ICBLEN: 
10$: 


15$: 


026724  OOOOOOu 


001007 
022424 


17$: 


021402 
103404 
022403 
101002 


CLR 
CMP 
BNE 
CMP 

.IF  DF 

MOV 

ADD 

BIT 

8EQ 

CMP 

CMP 

.IFF 

CMP 

.IFTF 

BNE 

CMP 

.IFT 

BIT 
BEQ 
ADD 

.ENDC 

CMP 
BLO 
CMP 
BHI 


R5 

#13746, (R4)+ 

20$ 

(R4)+,(R4)+ 

R$$MPL 

FMASK,FMKTMP 

#2,FMKTHP 

#F2.DAS,aFMKTMP 

15$ 

(F(4)  +  ,(R4)  + 

B1AS,(R4)+ 


$8IAS,(R4)t 


20$ 
(R4)+,(R4)+ 


#F2.DAS,aFMKTMP 

17$ 

*6,R4 


(R4),R2 
20$ 

(R4)t,R3 
20$ 


CLEAR  NUMBER  OF  MATCHES  FOUND 
IS  IT  REALLY  AN  KB? 
IF  NE,  NO 
SKIP  TO  BIAS 


GET  $FMASK+2  ADDRESS 

EXTRA  APR  SAVED  ? 
IF  EQ,  NO 
SKIP  TO  REAL  BIAS 
BIAS  MATCH? 


BIAS  MATCH? 


IF  NE,  NO  -  NOT  AN  KB 
SKIP  TO  LINE  TABLE  ADDRESS 


IS  DATA  SPACE  ENABLED  ? 

IF  EQ,  NO  -  NO  EXTRA  APR  TO  SET  UP 

SKIP  TO  LINE  TABLE  ADDRESS 


JMP  ADDRESS  INSIDE  LINE  TABLE? 
IF  LO,  NO 

JMP  ADDRESS  INSIDE  LINE  TABLE? 
IF  HI,  NO 


I  2 
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XALITB  -  DE-ALLOCATE  ALIAS  TABLE 
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K59 

K60 

1461 

146? 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 


.SBTTL  XALITB  -  DE-ALLOCATE  ALIAS  TABLE 


XALITB  -  DE-ALLOCATE  THE  ALIAS  TABLE 

INPUTS: 

NONE 

OUTPUTS: 

ALL  ALIAS  NAME  BLOCKS  ARE  DE-ALLOCATED 


NTLUNI 
XSERTI 

20' 
20' 
20' 
20 
20 
20 
20 
20 
20 
20 
20 


003142 
003146 
003150 
003154 
003160 
003164 
003166 
003170 
003172 
003176 
003200 
003202 
003204 
003210 
00^212 
003214 
003216 
003220 
003222 
003224 
003226 
003232 
003234 
003240 


017703     OOOOOOG 

001434 

062703  000000 


011300 
001422 
010046 

012604 
011413 
010401 
062701 
112102 
060201 
112102 
060201 
112102 
060201 
160401 


000020 


000754 


XALITB: 

MOV 

aDECPT,R3 

BEQ 

30$ 

ADD 

#D$ANN,R3 

SWSTK$ 

30$ 

SAVMAP 

10$: 

MOV 

(R3),R0 

BEQ 

20$ 

MOV 

RO,-(SP) 

CALL 

$CEACX 

MOV 

(SP)+,R4 

MOV 

(R4),(R3) 

MOV 

R4,R1 

ADD 

#A.ACC,R1 

MOVB 

(R1)+,R2 

ADD 

R2,R1 

MOVB 

tR1)t,R2 

ADD 

R2,R1 

MOVB 

(R1)+,R2 

ADD 

R2,R1 

SUB 

R4,fil 

CALL 

$XDEAC 

BR 

10$ 

20$: 

RESMAP 

30$: 

RETURN 

POINT  AT  DECNET  HOME  BLOCK 
IF  PSI  ONLY  SYSTEM  -  BRANCH 
POINT  AT  ALIAS 
ENTER  SYSTEM  STATE 
SAVE  CURRENT  MAPPING 
GET  THE  NEXT  OBJECT  IN  LIST 
IF  EQ,  END  OF  LIST 
SET  BLOCK  ADDRESS 
GET  ACCESS  TO  BLOCK 
GET  HAPPED  ADDRESS  OF  BUFFER 
GET  THE  NEXT  ALIAS  IN  LIST 
COPY  ADDRESS  OF  ALIAS  BLOCK 

POINT  AT  START  OF  ACC.  INFO. 
LENGTH  OF  FIRST  FIELD 

LENGTH  OF  SECOND  FIELD 

LENGTH  OF  THIRD  FIELD 

TOTAL  L;"'GTH  of  ALIAS  BLOCK 
DE-ALLOCATE  li'E  ALIAS  BLOCK 
AND  GO  AGAIN 
RESTORE  PREVIOUS  MAPPING 


NTLUNL  -  NTL  UNLOAD  ROUTINES 
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NTLUN 


H  4 

NTLUNL  -  NTL  UNLOAD  ROUTINES    MACRO  V05.03b  Saturday  29-Jun-85  00:34 
XSERTB  DEALLOCATE  SERVICE  BLOCKS 


2045  004606 

062601 

2046 

2047  004610 

160401 

2048  004612 

2049  004616 

000752 

2050 

2051  004620 

2052  004624 

2053 

2054 

2055 

2056 

000CO1 

20$: 
30$: 


ADD 

sue 

CALL 
BR 

RE  SWAP 
RETURN 


.END 


(SP)+,R1 

R4,R1 

$XDEAC 

10$ 


Page  32-1 


GET  LAST  ADDRESS  Of  BLOCK 

CALCULATE  BLOCK  LENGTH 
DEALLOCATE  FILENAME  BLOCK 
GET  NEXT  BLOCK 

RESTORE  MAPPING 


I  A 
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CREF        OA.OO 


SYMBOL      VALUE 


S.NMST 

S.OWNR 

S.PSS 

S.SEC 

S.TER 

TSFLAG 

T$LIF 

TSLIFL 

TSLIFO 

TSLIFS 

T$LIN 

TSLIPS 

TSLLD 

TSLLDC 

TSLLDL 

TILLDO 

TSLLDS 

TSLLEN 

T$LOPR 

TSLTCL 

TSLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

T$NFE 

TSNLEN 

TSNNUL 

T$NOPL 

TSNRNI 

TSNRPL 

TSNRUL 

TSNVR 

TSRPRl 

TSSVC 

T$T5 

T$T6 

T1SCL 

T100C 

T100Q 

UBA 

UBIAS 

UPTR 

URHTMP 

VECT 

XALITB 

XDCB 

XFILTB 

XFLTTB 

XF.CAN 

XF.DDM 

XF.DLC 

XF.LLC 


000002 
000003 
000022 
000040 
0000A2 
000044 
000013 
000013 
000013 
000013 
000000 
000006 
000012 
00004S 
000012 
000012 
000012 
0OOOA6 
000002 
000024 
000026 
000014 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 

:  ****** 
:  ****** 
:     ****** 

000012 
000010  R 


GX 
GX 
GX 


000114 
000004 


001412  RG 


003142 

003046 

004522 

003272  R 

000200 

000001 

000002 

000004 


REFERENCES 

#5-72 

#5-72 

#5-74 

#5-74 

#5-74 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 
19-1083 
13-539 
13-517 

#7-148 

#7-147 

#7-158 

#7-136 
14-621 
19-1154 
12-493 
19-1158 
19-1156 

#5-77 

#5-77 
#5-77 
#5-77 


*11-428 


*18-1043 


NTLllM 

MACRO  ( 

MACRO  I 

DCBDFS 
HWDDFS 
LBLDFS 
PCBDFS 
SCBDFS 
TCBDFS 
UCBDFS 


13-531 

15-699 

♦27-1633 

»28-1670 

#15-679 
19-1297 
19-1123 

#32-2020 
19-1299 


♦27-1572 
28-1716 
28-1710 


#24-1473 
#20-1364 

#26-1537 


♦27-1630 
28-1730 
28-1755 


28-1665 
28-1745 


28-1763 


NTLUNL 
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♦♦FILE 


NTL11M  CREATED  BY 

MACRO   CROSS  REFERENCE 


MACRO     ON  29-JUN-85  AT   00:36 


H  6 

PAGE  3 

CREF   0^.00 


MACRO  NAME 

REFERENCES 

DCBDF$ 

#5-58 

5-67 

HWDDFS 

#5-58 

5-73 

LBLDFJ 

#5-58 

5-80 

PCBDFS 

#5-58 

5-86 

SCBDFS 

#5-58 

5-95 

TCBDFS 

#5-53 

5-101 

UCBDFS 

#5-58 

5-107 

POLAL  - 
SCEACX 

39S 
39S 
40C 
iOI 
40^ 
^0! 


•«FILE*»ID*»POLAL 


I  6 


POLAL 


H  7 

POLAL  -  NETWORK  POOL  ALLOCATION  MACRO  V05.03b  Saturday  29-Jun-85  00:36  Page  10-1 
SCEACX  -  ACCESS  BLOCK  IN  EXTENDED  POOL 


398 
399 

iOl  000556 

402 

403       000001 


.ENDC 
100$:   RETURN 
.END 


;  RETURN  TO  THE  CALLER 


PRALL 

MACRO 

MACRO 

CALL 

RETURN 

SWSTKt 
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»*FIL[ 


PRALL      CREATED  BY  MACRO  ON  29-JUN-85  AT  00:36 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


CALL 

6-82 

6-90 

RETURN 

6-125 

7-167 

SWSTKS 

6-82 

6-93 


7-16^ 


H  8 

PAGE  2 

CREF   0^.00 
7-166 


PRIO 
PR. LB 

i, 

A 

A 
A 
A 
A 
A 
A 
A 
A 
i 
L 
L 
L 
L 
A 
L 


I  8 


**F1LE««1D*»PRI0 


PRIO 


H 


PRIG  -   READ  PROCESS    INTO   CORE 
PR.LBL    -  READ   LABEL   BLOCK 
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:?6 


435 
436 
437 
438 
439  000672 

;•  ERROR  CONDITIONS 

116777 

OOOOOOG 

OOOOOOG 

1oi$ 

M0V8 

$I0S8,a$CLI0S 

440  000700 

012767 

000010 

000010' 

MOV 

#ERR8, ERROR 

441  000706 

000417 

BR 

142$ 

442  000710 

012767 

000012 

000010' 

111$ 

MOV 

#ERR10, ERROR 

443 

.IF  DF 

M$$MGE 

444  000716 

000415 

BR 

142$ 

445  000720 

012767 

000014 

000010' 

121$ 

MOV 

#ERR12, ERROR 

446  000726 

000407 

BR 

142$ 

447  000730 

012767 

000016 

000010' 

131$ 

MOV 

#£RR14, ERROR 

448  000736 

000403 

BR 

142$ 

449  000740 

012767 

000020 

000010' 

141$ 

MOV 

#ERR16, ERROR 

450 

.ENDC 

451  000746 

000261 

142$ 

SEC 

452  000750 

RETURN 

453 

i54 

COPY  ERROR  CODE 

LABEL  BLOCK  READ  FAILURE 

INVALID  PROCESS  IMAGE 


PROCESS  NOT  BUILT  FOR  APR5 
PROCESS  EXCEEDS  4K  WORDS 
PROCESS  EXTENSION  EXCEEDS  4K  WORDS 
INDICATE  FAILURE 


PRIO 

SYMBi 

SYMBi 

$PRE 
$PRI' 
$PRIi 
$PRL 
$REA 
$RLB 
$XPA 
$$EX 
$$IN 
$$PA 
.BAS 
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PRIC 
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PRIG 

SYMBOL  CROSS  REFERENCE 

SYMBOL   VALUE 


SPREXT 
SPRINC 
SPRIG 
SPRLLN 
SREADX 
SRLBL 
SXPAR 
$$EXT 
SSINC 
$$PAR 
BASEB 


««»*«»  GX 
♦•*«»♦  GX 
000000  R6 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


=  **t  **» 


-  ****** 

-  ****** 


=  ****** 


KOOOO 


H  10 

PAGE  3 

CREF   0^.00 


PROE 

Tabl 


REFERENCES 

9-338 

9-325 
#8-220 

9-329 

13-770 

9-286 

8-240 

9-341 

9-328 

10-475 
#5-74 


9-352 
10-476 


PRIO 
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PROI 


H  11 

PROERR  -  PROCESS  RELATED  ERRORS  MACRO  VO5.03b  Saturday  29-Jun-85  00:37 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAl  DATA 

PERR  -  PRINT  ERROR  MESSAGE 

REPAA  -  REPLACE  PROCESS  NAME 

REP5A  -  REPLACE  PARTITION  NAME 

REP5B  -  REPLACE  REGION  NAME 


s- 

ss 

(S- 

ftl 

7- 

1S(S 

H- 

19? 

9- 

??', 

10- 

i'^i 

H  12 


«F1LE«MD««PR0XPT 


PPPPPPPP 

RRRRRRRR 

000000 

XX      XX 

pppppppp 

TTTTT 

TTTTT 

pppppppp 

RRRRRRRR 

000000 

XX      XX 

pppppppp 

TTTTT 

TTTTT 

pp    pp 

RR      RR 

00 

OD 

XX      XX 

pp    pp 

pp    pp 

RR      RR 

00 

00 

XX      XX 

pp    pp 

pp    pp 

RR      RR 

00 

00 

XX  XX 

pp    pp 

pp    pp 

RR      RR 

00 

no 

XX  XX 

pp    pp 

PPPHPPPP 

RRRRRRRR 

00 

00 

XX 

pppppppp 

pppppppp 

RRRRRRRR 

00 

00 

XX 

pppppppp 

pp 

RR  RR 

00 

00 

XX  XX 

pp 

pp 

RR  RR 

00 

00 

XX  XX 

pp 

pp 

RR    RR 

00 

ou 

XX      XX 

pp 

pp 

RR    RR 

00 

00 

XX      XX 

pp 

! 

pp 

RR      RR 

000000 

XX      XX 

pp 

T 

! 

pp 

RR      RR 

000000 

XX      XX 

pp 

T 

T 

S5SS5SSS 

TTTTTl 

TTTT 

SSSSSSSS 

TTTTT 

Mil 

SS 

1 

ss 

SS 

ss 

3SSSSS 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 
LLLLLLLLLL 

SSSSSSSS 
SSSSSSSS 

PROXPT  -  XPT  PROCESS 
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SYMBOL  CROSS  REFERENCE 


H  13 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

A$LEN 

000004 

7-158 

CSLEN 

000012 

6-104 

OECPT 

=   .»♦»»•     Gx 

6-93 

6-100 

7-149 

8-226 

DtLNUM 

OOOOK 

7-185 

DSMLL 

000040 

6-102 

D$NA 

000062 

8-230 

8-234 

8-255 

DSNBEA 

000056 

7-157 

PSNBRA 

000054 

7-156 

DSNN 

000060 

6-94 

7-150 

8-227 

8-249 

EtNBR 

000014 

#5-67 

ESNBS 

000020 

#5-67 

ESNCR 

000034 

#5-67 

E$NCS 

000036 

#5-67 

EtMC 

000044 

#5-67 

ESNLEN 

000050 

#5-67 

ESNLLA 

000012 

#5-67 

ESNLNK 

000000 

#5-67 

E$NML 

000040 

#5-67 

E$NMR 

000024 

#5-67 

E$NMS 

000030 

#5-67 

ESNNOD 

000002 

#5-67 

E$NRT 

000042 

#5-67 

ESNRTP 

000005 

#5-67 

ESNSEG 

000010 

#5-67 

ESNTIM 

000046 

#5-67 

ESNUSE 

000004 

#5-67 

ESSTRT 

000006 

#5-67 

I$$AS 

=  ****** 

7-164 

7-196 

8-240 

9-331 

KSAR5 

=   ******      GX 

6-109 
8-302 

6-112 

6-116 

6-123 

6-128 

8-282 

M$$MGE 

=  000000 

8-253 

9-339 

NSADJI 

000072 

*7-172 

♦7-205 

N$ADJ2 

000074 

7-182 

7-191 

♦7-203 

♦7-206 

NSCACH 

000062 

♦6-107 

6-110 

♦6-131 

♦6-132 

NSRDAI 

000022 

♦8-248 

♦8-249 

♦8-250 

♦8-254 

8-258 

8-261 

N$R0A2 

000030 

♦8-258 

♦8-259 

♦8-260 

♦8-261 

♦8-264 

8-275 

N$TLC 

000100 

•8-307 

9-324 

♦9-337 

♦9-340 

9-341 

9-348 

N$TNC 

000114 

8-283 

8-284 

R$$EIS 

~      «*fr + . * 

7-164 

7-196 

8-240 

9-331 

R$$11D 

_      ****** 

7-164 

7-196 

8-240 

9-331 

R$$11M 

=  000000 

8-253 

9-339 

TSFLAG 

000044 

#5-67 

T$L!F 

000013 

#5-67 

TSLIFL 

000013 

#5-67 

TSLIFO 

000013 

#5-67 

T$l  IFS 

000013 

#5-67 

T$LIN 

000000 

#5-67 

TSLIPS 

000006 

#5-67 

TSLLD 

000012 

#5-67 

TSLLDC 

000045 

#5-67 

rSLLDL 

000012 

#5-67 

rSLLOO 

000012 

#5-67 

SYMBL 

MACRO 

MACRO 

CALL 
RETUR 


8-286 


8-262 


8-290 


8-267 


8-298 


8-274 


PROXPT 
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MACRO   CROSS   REFERENCE 
MACRO   NAME  REFERENCES 


H  14 

PAGE   2 

CREF        Qii.OQ 


TMPA' 


CALL 
RETURN 


6-113 
6-157 


6-115 
7-189 


6-133 
7-202 


6-137 
8-233 


6-139 
9-268 


6-U6 


6-153 


7-183 


I  U 


••F1LE**ID»«TMPACT 


TMP; 


TMPACI    -   TEMPLATE   PROCESSING  AC  MACRO  V05.0?b   Saturday  29-JurT 


■85   00:' 


8     Page  15 


3T? 
313 
3H 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A 
325 
326 


$LTAB 

INPUTS: 

NONE 


OUTPUTS: 

R2=DESTR0YED 


.LTA8"  ACTION  ROUTINE 


0001^76 

000476 

000502  103405 

000504  112712  OOOOOOG 

000510  062767  000002  OOOOOOG 


ilTAB: 


000516 


10$: 


CALL 

BCS 

MOVB 

ADD 

RETURN 


$RQ1 

10$ 

#.LTAB,(R2) 

#2,$SIZE 


REQUEST  BINARy  BUFFER  ACCESS 
IF  CS,  ACCESS  DENIED 
STORE  FUNCTION  CODE 
ADJUST  LINE  TABLE  SIZE 
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00:38 


IMPACT  - 

TEMPLATE 

PROCESSING  AC 

MACRO  V05.05b 

Saturday 

H  16 

?9-Jun-85  00:38 

Page  27 

-1 

Symbol  table 

A$$CHK= 

000000 

LF.REA= 

010000 

N$$ACC= 

000001 

SDPRB 

000742RG 

$SZPTR= 

«*»**•  GX 

A$$CPS= 

\J    \/    \J    \J    *ml    \J 

000000 

LF.SER= 

000040 

N$$BUF= 

000001 

SDPRW 

000770RG 

$TERR  = 

»*♦«♦*  GX 

A$SPRI= 

000000 

LF.T1M= 

000010 

N$$LDV= 

000001 

SDVCHA 

000230RG 

$TIME 

001002RG 

A$$TRP= 

000000 

LF .UNL= 

020000 

N$$MCP=: 

000001 

$EL1NE= 

«**«•«  GX 

$TWARN= 

******  GX 

C$tCKP= 

\J  \J  \J  \J  \J  \/ 

000000 

LF.X2P= 

000000 

N$$MLL= 

000001 

$END1 

000304RG 

$UN8 

000626RG 

Ct$ORE= 

000^00 

LN.CL0= 

000000 

N$$MOV= 

000010 

$END2 

000340RG 

$UNW 

000704RG 

Ct$RSH= 

177564 

LN.DUM= 

000005 

N$$NCT:= 

000001 

$ERR14 

000042R 

002 

$VALUE= 

«♦»**«  GX 

D$$BUG= 

1775U 

LN.L0A= 

000004 

N$$PEM= 

000001 

$ERR15 

000106R 

002 

$VFDDM= 

»»***«  GX 

Dt$!SK= 

000000 

LN.LOO= 

000003 

P$$P45= 

000000 

$ERR18 

000146R 

002 

$VFDLC= 

******  GX 

0$$Ll 1= 

000001 

LN.0AU= 

000003 

P$$WRD= 

000000 

$ERR19 

00021 2R 

002 

$VFLV1= 

»♦««*♦  GX 

D$$YNC- 

^  \J  V  V  V  ' 

000000 

LN.0FF= 

000001 

Q$$OPT= 

000010 

$ERR2 

OOOOOOR 

002 

$VFSPC= 

««*»**  GX 

D$$¥NM= 

000000 

LN.ON  = 

000000 

R$$DER= 

000000 

$ERR20 

000260R 

002 

SVXLLC 

001434R 

E$tXPR= 

000000 

LN.OOP= 

000004 

R$$K11= 

000001 

$ERR52 

000314R 

002 

SWORD 

001032RG 

FL  DDM= 

W  v  w  W  V  V 

GX 

LN.OPE= 

000001 

R$$SND= 

000000 

$ERR80 

000370R 

002 

SZBYTE 

000076RG 

fl!dlc= 

****** 

GX 

LN.REF= 

000002 

R$$11M= 

000000 

$FILEN= 

******  GX 

SZWORD 

001'.'26RG 

FL ]mUX= 

****** 

GX 

LN.SER= 

000002 

SF.ACT= 

000200 

$FLAGS= 

*»*»»*  GX 

$$PRI  = 

******  GX 

FMT2 

000422R 

002  LN.STA= 

000017 

SF.ENA= 

000100 

$FLAG1= 

»**♦*»  GX 

.ADDR8= 

*♦•»*♦  GX 

FM.2   = 

000000 

LN.SUB= 

000360 

SF.LP8= 

000004 

$FLAG2= 

»*«»**  GX 

.ADORW= 

******  GX 

Ft$LVL= 

000001 

LN.TRI= 

000006 

SF.MFL= 

000040 

SFNAME 

001350RG 

.APR  = 

******  GX 

Fl .LFL= 

****** 

GX 

L$$ASG= 

000000 

SF.PAC= 

000020 

SLFLD  = 

******  GX 

.BLK8  = 

******  GX 

F1  MPL= 

****** 

GX 

L$$DRV= 

000000 

SF.REA= 

000010 

SLFLHD 

000416RG 

.BLKW  = 

******  GX 

F2.ByT= 

****** 

GX 

L$$P11= 

000001 

SF.SER= 

000001 

SLSTHD 

000454RG 

.BYTE  = 

******  GX 

F2  F1L= 

****** 

GX 

L$$11R= 

000000 

SF.SVC= 

000002 

$LTA8 

000476RG 

.CSR  = 

******  GX 

f2!neg= 

****** 

GX 

L.COST 

000015 

SF.UNL= 

000040 

$MDD 

001260RG 

.CTIM  = 

******  GX 

F2.SUB= 

****** 

GX 

L.CTL 

000012 

S$$URG= 

000000 

$MPLD  = 

»***»«  GX 

.DPRB  = 

******  GX 

GSSTPP= 

000000 

L.CVA 

177776 

S$$YSZ= 

007600 

SMPLHD 

000432RG 

.DPRW  = 

******  GX 

G$$TSS= 

000000 

L.DDM 

000002 

S.COST 

000001 

$NOD 

001064RG 

.D\/CHA= 

******  GX 

G$$TTK= 

000000 

L.DDS 

000004 

S.FLG 

000000 

SNOMOD 

001342RG 

.LSTHD= 

**♦*«♦  GX 

G$$WRD= 

000000 

L.DLC 

000003 

S.LEN 

000004 

$NUM 

001154RG 

.LTAB  = 

******  GX 

!$$RAR= 

000000 

L.DLM 

000006 

S.NMST 

000002 

$ODD 

000520RG 

.NODE  = 

******  GX 

!$$RDN= 

000000 

L.DLS 

000010 

S . OWNR 

000003 

$OFF  = 

**.♦*»  GX 

.PECHA= 

******  GX 

K$$CNT= 

177546 

L.FLG 

000000 

T$$KMG= 

000000 

SPECHA 

000256RG 

.PNUMB= 

******  GX 

K$$C5R= 

177546 

L.KRBA 

000016 

T$$MIN= 

000000 

$PRI 

000556RG 

.PNUMH= 

******  GX 

K$$LDC= 

000000 

L.LEN  = 

000022 

V$$CTR= 

001000 

$PR11 

000552RG 

.PRI  = 

******  GX 

K$$TPS= 

000074 

L.MPF 

000022 

X$$D8T= 

000000 

SPROV 

001106RG 

.PRTOV= 

******  GX 

LD$LP  = 

000000 

L.NMST 

000020 

SADDRB 

000604RG 

$REP.C= 

»*»**»  GX 

.PSTCN= 

******  GX 

LF .ACT= 

100000 

L.NSTA 

000014 

$ADDRU 

000654RG 

$RQ1   = 

*»*•«*  GX 

.PSTPT= 

******  GX 

LF.BRO= 

000400 

L . OWNR 

000021 

$APR 

000734RG 

$RQ2  = 

******  GX 

.SLN8  = 

******  GX 

LF.BWT= 

000007 

L.UNT 

000013 

$8LK8 

OOOOOORG 

$RQ3  = 

»*»«**  GX 

.SLNW  = 

******  GX 

LF.ENA= 

002000 

MAXOV  = 

******  GX 

$BLKW 

000014RG 

SSJZE  = 

»«***«  GX 

.STNB  = 

******  GX 

LF.LPB= 

001000 

M$$CRB= 

000124 

$BYTE 

000102RG 

$SLN8 

000620RG 

.STNW  = 

******  GX 

LF.MDC= 

000100 

H$$CRX= 

000000 

$CN8 

000126RG 

SSLNW 

000676RG 

.TIME  = 

******  GX 

LF .MFL= 

004000 

M$$FCS= 

000000 

$CNW 

0001 50RG 

SSLTA  = 

******  GX 

.  L'NB  = 

******  GX 

LF .MTP= 

000020 

M$$MGE= 

000000 

SCSfi 

000176RG 

$STN8 

00061 2RG 

.UNW  = 

******  GX 

Lf .PAC= 

000200 

M$$NET= 

000000 

$CTM 

000662RG 

$STNW 

000670RG 

.WORD  = 

******  GX 

LF.RDY= 

040000 

M$$OVR= 

000000 

$DIFF  = 

******  GX 

.  A8S. 

177776 
001454 

000  (RW,I,GBL,ABS,OVR) 

001  (RW,I,LCL,REL,CON) 

DATA 

000442 

002   {RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

*••  Asseiibler 

;  t  a  t  i  s  1 1  c  s 

Work   f 

lie  reads 

:  0 

Work   t 

lie  wri 

tes 

:  0 

11^ 


IMPACT 
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NTLUNL  -  NIL  UNLOAD  ROUTINES 
$XLIN  -  CLEAN  UP  LINE 


591 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409  00Os76 

410  000476 

016705 

OOOOOOG 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423  000502 

105065 

000021 

424  000506 

116500 

000014 

425  000512 

001411 

426  000514 

010501 

427  000516 

062701 

000022 

428  000522 

105061 

000003 

429  000526 

062701 

000004 

430  000532 

431 

432  000536 

016500 

000016 

433  000542 

001404 

434  000544 

435  000550 

005065 

000016 

436 

437  000554 

016503 

000010 

438  000560 

001417 

439  000562 

032767 

OOOOOOG  OOOOOOG 

440  000570 

001003 

441  000572 

442 

443  000600 

016767 

OOOOOOG  000152' 

116504 

000003 

444  000604 

445  000610 

005065 

000010 

446  000614 

005065 

000006 
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.SBTTL  SXLIN  -  CLEAN  UP  LINE 

SXLIN  -  CLEAN  UP  AFTER  AN  UNSUCCESSFUL  "SET  LINE" 

THIS  ROUTINE  IS  CALLED  IF  A  "SET  LINE"  FAILS  IN  TRANSFERRING  EITHER  THE 
DLC  OR  DDM  PROCESS  INTO  CORE,  INITIALIZING  THE  DLC  LINE  TABLE,  OR  LOADING 
THE  DDM  MICRO-CODE.  IN  NO  CASE  HAS  THE  DDM  LINE  TABLE  BEEN  INITIALIZED. 

INPUTS: 

$SLTA=SLT  ADDRESS 

$DLCPV=DLC  PDV  ADDRESS 

$DDMPV=DDM  PDV  ADDRESS 

FL.PX1  OF  SFLAGS  SET  IF  DLC  WAS  TRANSFERRED 

FL.PX2  OF  SFLAGS  SET  IF  DDM  WAS  TRANSFERRED 

OUTPUTS: 

C-8IT=:SET 


SXLIN: 


MOV 


SSLTA,R5 


.IF  OF 

RSSMPL 

MOV 

$DDMPV.R4 

BEQ 

111$ 

CALL 

FNCT8 

MOVB 

L.CTL(R5),R0 

ASL 

RO 

ADD 

RO.RI 

CLR 

L.KRB(RI) 

CALL 

SHRCIN 

.ENDC 

3$: 


5$: 


10$: 


CLRB 

MOVB 

BED 

MOV 

ADD 

CLRB 

ADD 

SOB 

MOV 
BEQ 
CALL 
CLR 

MOV 
BEQ 
BIT 
BNE 
MOV 

MOVB 
CALL 
CLR 
CLR 


L.0WNR(R5> 

L.NSTA(R5),R0 

3$ 

R5,fi1 

#L.MPF,R1 

S.OWNR(RI) 

#S.LEN,R1 

R0,1S 

L.KR8A(R5),R0 

5$ 

XKR8 

L.KR8A(R5) 

L.DLS(R5),R3 

20$ 

#FL.PX1, SFLAGS 

10$ 

$DLCPV,..PDV 

L.DLC(R5),R4 
XLT16 
L.DLS(R5> 
L.DLM(R5) 


GET  SLT  ADDRESS 


GET  THE  DDM  PDV  ADDRESS 
IF  EQ,  LOGIC  ERROR 
FIND  THE  CTB  ADDRESS 
GET  THE  CONTROLLER  NUMBER 
CONVERT  TO  A  WORD  INDEX 
POINT  AT  KRB  ADDRESS  IN  CTB 
ZERO  KRB  POINTER 
RE-INITIALIZE  HRC... 


CLEAR  THE  LINE  OWNER 

GET  THE  NUMBER  OF  STATIONS 

IF  EQ,  NONE 

POINT  TO  START  OF  TRIBUTARIES 

CLEAR  STATION  OWNERS 
NEXT  STATION 
CLEAR  ALL  STATIONS 

GET  THE  KRB  ADDRESS 
IF  EQ,  THERE  IS  NONE 
OE-ALLOCATE  THE  KRB 
CLEAR  THE  KRB  POINTER 

AND  DLC  LINE  TABLE  ADDRESS 

IF  ZERO,  NO  WORK  TO  DO 

WAS  DLC  TRANSFERRED  INTO  CORE  ? 

YES  ..  DISCARD  PARTITION  LINE  TABLES 

NO  ..  HOUSEKEEP  THE  DE-ALLOCATIONS 

GET  THE  DLC  PDV  INDEX 
DE-ALLOCATE  DLC  LINE  TABLE 
ZERO  LINE  TABLE  ADDRESS 
AND  LINE  TABLE  BIAS 


-  MTi    jiMi  nsn   oniiT  rwRc 


J      1 

MArpn  uns.n3h  <;sti;rriflv  ?9-.Jun-85  00:34     Paae   11-1 


I  2 

NTLUNL  -  NTL  UNLOAD  ROUTINES    MACRO 

V05.03b 

Saturday 

29-Jun-85  00:34  f 

IC8LEN  -  CHECX 

KB  FDR 

LENGTH 

992 

;  VALID  KB  FOUND 

993 

; 

99A  001752 

005205 

INC 

R5 

995  001 75A 

996 

997  001756 

000762 

BR 

10$ 

005705 

20$: 

TST 

R5 

998  001760 

00U11 

BEQ 

50$ 

999  001762 

005003 

CLR 

R3 

1000  00176^ 

066703 

OOOOOOG 

30$: 

ADD 

$ICBLN,R3 

1001  001770 

005305 

DEC 

R5 

1002  001772 

003374 

BGT 

30$ 

1003  00177'!, 

010367 

000006' 

MOV 

R3,ICBSZ 

100^ 

.IF  DF 

R$$MPL 

1005 

ADD 

#4,KBSZ 

1006 

.ENDC 

1007  002000 

0002A1 

40$: 

CLC 

1008  0U2002 

000401 

BR 

60$ 

1009 

1010  00200A 

000261 

50$: 

SEC 

1011  002006 

60$: 

RETURN 

Page  17-1 


INCREMENT   THE  NUMBER  FOUND 
CONTINUE   UNTIL   NO  MORE 

ANV   ICB'S   FOUND? 
IF   EQ,    NO 

CLEAR   SIZE   OF    DE-ALLOC"  'ON 
ADD    IN   SIZE   OF    EACH   KB 
FOR  EACH   KB   FOUND 

SAVE    THE    KB  BLOCK   SIZE 

INCLUDE    THE   LINK  POINTER  AND   COUNT   FIELDS 

CLEAR   CARRY   TO   SHOW  SUCCESS 
AND   LEAVE 

SHOW  FAILURE   -   NOT   AN   KB 


NTI  UNI     -   NTI     IINI  OAD   ROUTINES 


J  2 
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XREMTB  -  DE-ALLOCATE  REMOTE  TABLE 


1A98 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 


.SBTTL  XREMTB  -  OE-ALLOCATE  REMOTE  TABLE 


XREMTB  -  DE-ALLOCATE  THE  REMOTE  TABLE 

INPUTS: 

NONE 

OUTPUTS: 

ALL  REMOTE  NAME  BLOCKS  ARE  DE-ALLOCATED 


003242  017703  OOOOOOG 

003246  001410 

003250  062703  000002 

003254  011303 

003256  001404 

003260  012701  000014 

003264 

003270 


XREMTB: 


10$: 


MOV 
BEQ 
ADD 
MOV 
BEQ 

MOV 

CALL 

RETURN 


aDECPT,R3 

10$ 

#D$RNN,R3 

(R3),R3 

10$ 

#fi.LEN,Rl 
DEALST 


POINT  AT  DECNET  HOME  BLOCK 
If  PSI  ONLY  SYSTEM  -  BRANCH 
CREATE  REMOTE  LISTHEAO  ADDRESS 

IF"eC1,  COMM  EXEC  -  NOT  LOADED  YET 

GET  LENGTH  Of  A  REMOTE  BLOCK 
DEALLOCATE  THE  REMOTE  BLOCK  LIST 


J  3 


NTI     lINi  DAD   RnilTINFS 
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ACSDNT= 

AC$X25= 

AE$C1R= 

AE$LIN= 

AE$MOD= 

AT$ACL= 

AT$ADN= 

AT$AUP= 

AT$CYC= 

AT$LV1= 

AT$LV2= 

AT$NEX= 

ATSUP  = 

ASCIR 

A$LEN 

ASNID 

A$TM 

A$THI 

ASTSZ 

A$TYP 

A$$CHK= 

A$$CPS= 

A$$PR!= 

A$$TRP= 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

BLKSIZ= 

BLOCK 

CB.CCB= 

CB.DDM= 

CB.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CCBLH  = 

CCBSZ  = 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 

CE.ILN= 

CE.LTO= 

CE.MOP= 

CE.NTE= 

CE.RTE= 

CE.SRC= 

CE.STP= 

CE.rME= 

CE.TMO= 

CE.UNS= 

CF.CHN= 


000002 

000001 

000003 

000001 

000004 

000100 

000040 

000020 

000004 

000002 

000001 

000200 

000010 

000003 

000004 

000000 

000003 

000002 

000000 

000002 

000000 

000000 

000000 

000000 

000020 

000000 

000002 

000010 

000012 

000010 

000001 

00001 4R 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

***♦♦♦  GX 

»«»»*»  GX 

000200 

100362 

100346 

100366 

100370 

100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

000001 


CF. 
CF. 
CF. 
CF. 


CF.EOM= 
CF.HDR= 
CF.LB  = 
.L1N= 
.SOM= 
.SYN= 
.TRN= 
CLKHD  = 
CL$ASZ= 
CL$DLL= 
CL$ECL= 
CL$LDN= 
CL$MAN= 
CL$PAZ= 
CL$PLH= 
CL$PLL= 
CL$PRT= 
CLSROU- 
CL$SES= 
CL$SGE= 
CL$SSE= 
CL$TRN= 
CL$XL2= 
CL$XL3= 
CL$X2S= 
CM.CIR= 
CM.FMT= 
CM.HRD= 
CM.L1N= 
CM.LOO= 
CM.XLO= 
002  COUNT 
CP.DCF= 
CP.HDL= 
CP.PS  = 
CP.PSI= 
CP.XCF= 
CP.2FR= 
CS.ABO= 
CS.8R0= 
CS.BUF= 
CS.CES= 
CS.CHN= 
CS.CMP= 
CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.DIS= 
CS.ENA= 
CS.ENB= 
CS.EftR= 
CS.FTL= 
CS.HCR= 
CS.HFE= 
CS.LST= 
CS.MTL= 
CS.RNG= 


000004 

000020 

100000 

000002 

000010 

000040 

000100 

*«*«*«  GX 

01C500 

000500 

000300 

010400 

000000 

034100 

034000 

000600 

034200 

010000 

000200 

035000 

035100 

000400 

013700 

013600 

013500 

000002 

100000 

000002 

000000 

000001 

000004 

0001 20fi 

000040 

000007 

177400 

000200 

000100 

000030 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 


CS.ROV= 

CS.RSN= 

CS.SHU= 

CS.S]D= 

CS.STR= 

CS.SUC= 

CS.TMO= 

CS.XUR= 

CXOPT  = 

C$$CKP= 

C$$0RE= 

C$$RSH= 

C.ADD 

C.BID 

C.BUF 


..8UF1 
C.BUF2 
C.CNT 
C.CNT1 
C.CNT2 
C.FLG 
C.FLG1 
C.FLG2 
C.FNC 
C.LIN 
C.LNK 
C.MOD 
C.NSP 
C.PRO 
C.RSV 
C.STA 
002  C.STS 
C.URM 
C.XACP 
C.XID 
C.XLEN 
C.XPLl 
C.XPT 
C.XSVC 
C.XTC 
C.X25 
DDMAC 
DEAC2 
DEAECL 
DEALST 
DECPT 
DEUMR 
DEVHD  = 
OLCAC 
DL$AST= 
DL$HLT= 
DL$IST= 
DL$MAI= 
DL$OFF= 
DL$ON  = 
DL$RUN= 
DL$SHU= 


000004 
01000U 
000001 
000002 
000004 
000001 
020000 
000004 
******  GX 
000000 
000400 
=  177564 
000034 
000003 
000014 
000014 
000024 
000020 
000020 
000030 
000022 
000022 
000032 
000010 
000006 
000000 
000011 
000004 
000042 
000002 
000007 
000012 
177776 
000004 
000035 
000044 
000040 
000034 
000042 
000037 
000036 
000124RG 
004302R 
000422R 
004424RG 

::  ******  GX 
******  GX 

******  GX 

000122RG 

000002 

000000 

000001 

000004 

000001 

000000 

000003 

000002 


DL$SYN= 

000005 

EV$HCE= 

035114 

DQCLK 

000766R 

EV$HCI= 

035113 

DSAMXC 

000072 

EV$HFE= 

000506 

DSAMXH 

000074 

EV$IFL= 

000413 

DSANN 

000000 

EV$IF0= 

000415 

DSBRPR 

000102 

EV$IFS= 

000414 

DSBRTM 

000100 

EV$INF= 

000515 

DSDELF 

000045 

EV$LDL= 

000407 

DSDELU 

000046 

EV$LDN= 

010416 

D$END  = 

000104 

EV$LDO= 

000411 

DSFNB 

000034 

E\/$LDS  = 

000410 

DSHIOR 

000024 

EV$LSC= 

000500 

DSHOST 

000022 

EV$LUP= 

000412 

DSINAC 

000044 

EV$NOL= 

000402 

DSINCT 

000042 

EV$NRC= 

000416 

DSIPL 

000051 

EV$NSC= 

000200 

D$LID 

000020 

EV$NUL= 

000401 

DSLNAM 

000006 

EV$NVR= 

000406 

DSLNUM 

000014 

EV$0PL= 

000403 

D$LST 

000047 

EV$PCC= 

034000 

DSMAXC 

000064 

EV$PCI= 

034001 

DSMAXH 

000066 

EV$PCM= 

034002 

DSMAXV 

000070 

EV$PFE= 

000404 

D$MLL 

000040 

EV$PPC= 

034003 

DSMNOD 

000041 

EV$RCF= 

000517 

D$NA 

000062 

EV$RDC= 

010001 

DSNBEA 

000056 

EV$RDR= 

010002 

DSNBRA 

000054 

EV$RJE= 

035106 

D$NEND= 

000054 

EV$RSC= 

000501 

DSNLN 

000030 

EV$RUL= 

000405 

D$NN 

000060 

EV$SNA= 

035000 

DSOUTT 

000043 

EV$SNF= 

000516 

DSRETF 

000050 

EV$SPE= 

035001 

D$RNN 

000002 

EV$XCE= 

034110 

DSRTMR 

000076 

EV$XDI= 

013600 

D$SEG 

000036 

EV$XGW= 

034111 

0$SER 

000032 

EV$XMX= 

000514 

DSSQRL 

000052 

EV$XRS= 

000512 

D$$BUG= 

177514 

EV$XSC= 

000513 

D$$ISK= 

000000 

EV$X2S^ 

013500 

D$$L11= 

000001 

EV.CCB= 

000001 

002  D$$YNC= 

000000 

EV.CIR= 

000020 

D$$YNM= 

000000 

EV.LCB= 

000100 

D.DSP  = 

******  GX 

EV.LIN= 

000004 

D.PCB  = 

******  GX 

EV.MAP= 

000002 

EF$ACT= 

000001 

EV.M0D= 

000040 

EV$ACF= 

000201 

EV.N0D= 

000010 

EV$ADR= 

000420 

EV.PRT= 

000200 

002  EV$ADU= 

000417 

EXRQN  = 

******  GX 

EV$APL= 

000400 

ESDATA 

000020 

EV$ARC= 

000421 

ESEVTS 

000000 

EV$AUC= 

000010 

e$LCN 

000016 

EV$AUS= 

000003 

ESLIN 

000000 

EV$CDF= 

000520 

E$MOD 

000012 

E>/$COZ  = 

000011 

E$NBR 

000014 

EV$D6R= 

000302 

E$NBS 

000020 

EVSGAS: 

035101 

E$NCR 

000034 

NTl  UNI 


NTL  UNLOAD  ROUTINES 
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CREF        O-i.OO 


SYMBOL 

VALUE 

REFERENCES 

XKRB 

I   .»«*«*     GX 

11-434 

14-626 

XLIN 

001106  R 

#14-568 

19-1099 

XLT 

003564  R 

14-628 

#28-1665 

XLT16 

003560  R 

8-307 

11-444 

14-647 

#28-1664 

XOBJTB 

0031 2A  R 

19-1153 

19-1296 

#23-1454 

XPRO 

000022  R 

#8-233 

11-452 

11-457 

12-494 

14- 

636 

XREMTB 

0032A2  R 

19-1155 

19-1298 

#25-1512 

XSERTB 

004A76  R 

19-1157 

#32-1999 

X.FLAG 

000003 

#5-77 

X.ID 

000002 

#5-77 

13-525 

X.LINK 

000000 

#5-77 

X.RTMR 

000006 

#5-77 

X.TMR 

000004 

#5-77 

ZDDS 

002010  R 

14-629 

#18-1026 

ZF.INI 

=   *»»*«*     GX 

8-233 

12-483 

19-1113 

20-1364 

ZF.LLC 

=   »«**♦*     GX 

8-266 

ZF.MFL 

=   »»»***     GX 

12-495 

14-634 

14-653 

ZF.PSE 

=  *♦«**»     GX 

14-572 

Z.AVL 

=   ******     GX 

29-1851 

Z.DAT 

=   ******     GX 

8-268 

*8-309 

9-340 

Z.OSP 

=   ******     GX 

•8-264 

*8-265 

14-608 

Z.FLG 

=   ******     GX 

8-233 

8-266 

12-483 

•12-495 

14- 

■572 

Z.NAM 

=   ******     GX 

8-274 

8-297 

8-302 

9-339 

14- 

-631 

Z.PCB 

i   ******     GX 

8-238 

♦8-240 

12-485 

•12-491 

19- 

■1110 

SBIAS 

=   ******     GX 

*14-608 

17-972 

tCCEX 

002134  RG 

#19-1069 

SCEACX 

=   ******     GX 

24-1481 

26-1544 

31-1975 

32-2031 

SCLIN 

001102  RG 

#14-566 

SCPRO 

000674  RG 

#12-482 

SDDMPV 

=   ******     GX 

11-455 

SDEAHC 

=   ♦*»♦**     GX 

8-299 

$DEA16 

=   ******     GX 

19-1139 

19-1172 

19-1199 

19-1290 

29- 

-1891 

fDEAIS 

I   ******     GX 

10-387 

28-1698 

28-1718 

SDECEX 

=   ******     GX 

15-870 

19-1256 

19-1333 

SDLCPV 

=   ******     GX 

11-441 

11-450 

SDSINI 

000336  RG 

#9-338 

12-490 

19-1120 

SFLAGS 

-   ******     GX 

8-228 

11-439 

11-448 

11-453 

$1CBLN 

=   «♦**♦*     GX 

17-1000 

SMAPX 

;   ,»..»♦     GX 

19-1195 

19-1203 

19-1272 

27-1581 

28 

-1725 

SMXVCT 

=   ******     GX 

15-697 

SNAME 

=   ******     GX 

*14-631 

$PC8 

-   ******     GX 

8-250 

8-235 

*12-485 

.19-1117 

•20 

-1366 

SPDVA 

=   ******     GX 

8-227 

12-482 

SPRAVL 

=   ******     GX 

29-1850 

29-1856 

SSAVRG 

=   .»*.**     GX 

18-1026 

$SLTA 

=   ******     GX 

11-410 

14-567 

*19-1097 

SXDEAC 

=    ,.♦*♦,     GX 

24-1493 

26-1549 

31-1980 

32-2048 

SXLBR 

=   ***«♦*     GX 

28-1707 

SXLIN 

000476  RG 

#11-409 

SXPAR 

-    ««***»     GX 

8-241 

19-1223 

19-1237 

19-1308 

SXPRO 

000000  RG 

#8-226 

SXPSI 

=    *..♦**      GX 

19-1161 

19-1163 

19-1301 

14-655 


19-1124 


14-634 


14-653 


19-1117       *19-1121 


19-1113 
20-1366 


20-1364 
29-1824 


28-1767         29-1847 


20-1372 
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AAAAAA 

PPPPPPPP 
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AAAAAA 

pp    pp 
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00 

AA 

AA 
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00 

AA 

AA 

pp    pp 

nn 

00 

AA 

AA 

pp    pp 

nn 

00 

AA 

AA 

PPPPPPPP 

nn 

00 

AA 

AA 

PPPPPPPP 

nn 

00 

AA 

AA 

pp 

nn 

00 

AAAAAAAAAA 

pp 

nn 

00 

AAAAAAAAAA 

pp 

nn 

00 

AA 

AA 

pp 

00 

00 

AA 

AA 

pp 

000000 

LLLLLLLLLL 

AA 

AA 

LLLLLLLLLL 

pp 

000000 

LLLLLLLLLL 

AA 

AA 

LLLLLLLLLL 

POLAL  ■ 
Symbol 

ALOCB  : 
ASSCHK: 
AStCPS: 
A$$PRr 
A$$Tf^^ 
CSSCKP^ 
C$$0RE^ 
C$$RSH 
DEACB  ■ 
D$$BUG 
DSSISK 
D$$L11 
D$$YNC 
DS$YNM 

.  ABS. 

Errors 

•  ♦♦  As 


Work 
Work 
Size  0 
Size  0 
Operat 

E lapse 
SY:POL 


SSSSSSSS 

TTTTl 

TTTTT 

SSSSSSSS 

TTTT 

TTTTT 

SS 

ss 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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ALOCB  - 

«»♦*«*  Gx 

E$$XPR= 

000000 

LDSLP  = 

000000 

N$$LDV= 

000001 

S$$WRG= 

000000 

A$$CHK- 

000000 

F$$LVL= 

000001 

L$$ASG= 

000000 

N$$MCP= 

000001 

S$$YSZ= 

007600 

ASSCPS- 

000000 

G$$TPP= 

000000 

L$$DRV= 

000000 

N$$MLL= 

000001 

T$$KMG= 

000000 

A$$PRI- 

000000 

G$$TSS= 

000000 

L$$P11= 

000001 

N$$M0V= 

000010 

T$$MIN= 

000000 

ASST""^- 

000000 

G$$TTK= 

000000 

L$$11R= 

000000 

N$$NCT= 

000001 

V$$CTR= 

001000 

CSSCKP- 

000000 

G$$WRD= 

000000 

M$$CRB= 

000124 

N$$PEM= 

000001 

XAVL  = 

******  GX 

C$$ORE- 

000400 

1$$RAR= 

000000 

M$$CRX= 

000000 

P$$P45= 

000000 

XAVLL 

000002R 

C$$RSH- 

177564 

I$$RDN= 

000000 

M$$FCS= 

000000 

P$$WRD= 

000000 

X8IAS  = 

******  GX 

OEACB  ~ 

******  GX 

KSAR5  = 

******  GX 

M$$MGE= 

000000 

0$$OPT= 

000010 

X$$DBT= 

000000 

DliRIIG- 

1775K 

K$$CNT= 

177546 

M$$NET= 

000000 

R$$DER= 

000000 

ICEACX 

0004 70RG 

D$$!SK- 

000000 

K$$CSR= 

177546 

M$$0VR= 

000000 

R$$K11= 

000001 

SLINKX 

000424RG 

DSSLl"- 

000001 

K$$LDC= 

000000 

N$$ACC= 

000001 

R$$SND= 

000000 

SXALOC 

000006RG 

0$$VNC= 

000000 

K$$TPS= 

000074 

N$$BUF= 

000001 

R$$11M= 

000000 

SXDEAC 

0001 34RG 

DS$yNM= 

000000 

.  ABS. 

000000 
000560 

000 
001 

(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 

Errors 

detected: 

0 

*♦*  Assembler  statistics 

Work   f 

ile  reads 

0 

Work   f 

lie  writes 

0 

Si2e  of 

work  file 

9106 

Words 

(  36  Pages) 

Size  of 

core  pool 

14A40  Words 

(  55  Pages) 

Operati 

rig  system 

RSX- 

IIM/PLUS 

SYt^OLAL!v2!n32;°34]p6LAL/CR/-SP=SY:C1,l]RSXMCM.SML/ML,[130J10]NETLIB/l«IL,[130J0]RSXMCM/PA:1,[13^ 
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PP 

RR      RR 

I  8 
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PR.p; 


iiini 

000000 

mill 

000000 

II 

00      00 

II 

00      00 

II 

00     00 

11 

00      00 

II 

00      00 

II 

00      00 

II 

00      00 

II 

00      00 

II 

00      00 

II 

00     00 

iiiiii 

000000 

iiiiii 

OOOOOD 

ssssssss 

TTTTTTTTTT 

SS5SSSSS 

TTTTTTTTTT 
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PRIO  -  READ  PROCESS  INTO  CORE 
PR. PAR  -  HND  PARTITION 

458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 

475  000752  016767  000002G  000016' 

476  000760  016767  OOOOOOG  000014" 

477  000766  001006 

478  000770  016067  000004  000014' 

479  000776  016067  000006  000016' 

480  001004 

481  001010  016705  OOOOOOG 
48?  001014  011505 

483  001016  001515 

484  001020  026765  000014"  000004 

485  001026  001372 

486  001030  026765  000016'  000006 

487  001036  001366 
488 
489 
490 
491 
492 
493 
494 
495 
496 

497  001040  032765  000040  000030 

498  001046  001407 

499  001050  032767  OOOOCuG  OOOOOOG 

500  001056    oonn 

501  001060 

502  001064  000462 

503  001066  032767  OOOOOOG  OOOOOOG  25$: 

504  001074  001430 

505  001076  016501  OOOOU 

506  001102  010102 

507  001104 

508  001120  026001  000010 

509  001124  001056 

510  001126  066502  000016 

511  001132  022702  001000 
512 
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PR. PAR  -  FIND  PARTITION 

THIS  ROUTINE  IS  CALLED  TO  FIND  THE  PROCESS  PARTITION.  IF  THE  PARTITION  IS  A 
SYSTEM  CONTROLLED  PARTITION,  A  SUB-PARTITION  PCB  WILL  BE  CREATED. 

INPUTS: 

RO=LABEL  BLOCK  BUFFER  ADDRESS 
$$PAR=PARTITION  NAME  (OPTIONAL) 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
$PNAME=PARTITION  NAME 
PCBA=PfiOCESS  PCB  ADDRESS 


IF  DF 
PR. PAR:  MOV 
MOV 
BNE 
MOV 
MOV 
SWSTKS 
MOV 
MOV 
BEQ 
CMP 
BNE 
CMF 
BNE 


10$: 
20$: 


BIT 

BEQ 

BIT 

BNE 

CALL 

BR 

BIT 

BEQ 

MOV 

MOV 

ASL$ 

CMP 

BNE 

ADD 

CMP 


R$$11M 

$$PAR*-2,$PNAME+2 

$$PAR,$PNAME 

10$  ; 

L$BPAR(RO),$PNAME 


L$8PAR+2(r6),$PNAME+2  ; 


COPY  PARTITION  OVERRIDE  NAME 

IF  NE/uSE  OVERRIDE  NAME 

ELSE  USE  PARTITION  FROM  PROCESS  FILE 


PRIO 

MACR 

MACR 

ASL$ 
ASR$ 
CACD 
CALL 

CALL 
CRAS 
DHBC 
ECPC 
LBLC 
NHWC 
PCBC 
RESP 
RETC 
RETL 

SAVF 
SOB 

5WS1 


60$ 

PARHD,R5 

(R5),R5 

101$ 

$PNAME,P.NAM(R5) 

20$ 


$PNA|v|Et2,P.NAM+2(R5) 
20$ 


ENTER  KERNEL  MODE 

*  GET  POINTER  TO  FIRST  PCB 

*  GET  NEXT  PCB 

*  IF  ZERO,  END  OF  LIST 

;*  LOOK  FOR  MATCH  BETWEEN  $PNAME 

*  AND  PARTITION  NAME  FROM  PCB 


.IF  DF 

CALL 

.IFF 

.IF  DF 


R$$MPL 
PR. SUB 


;*  CREATE  SUB-PARTITION 


M$$MGE 


#PS.SYS,P.STAT{R5)  ;*  SYSTEM  CONTROLLED  PARTITION? 


25$ 

#FL.CEX,$FLAGS 

131$ 

PR.  SUB 

40$ 

#FL.CEX,$FLAGS 

30$ 

P.REL(R5),R1 

R1,R2 

6,R1 

L$8SA(R0),R1 

111$ 

P.8LKS(R5),R2 

#1000, R2 


IF  EQ,  NO 

*  IS  THIS  THE  COMM  EXEC? 
'  IF  NE,  YES 

*  CREATE  SUB-PARTITION 

»  IS  THIS  THE  COMM  EXEC? 

*  IF  EQ,  NO 

*  GET  PARTITION  START  IN  BLOCKS 

*  COPY  IT 

*  CONVERT  TO  BYTES 

*  WAS  CEX  BUILT  FOR  THIS  PARTITION? 

*  IF  NE,  NO 

«  ADD  SIZE  TO  START  ADDRESS 

*  IS  PARTITION  WITHIN  FIRST  16K? 
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PROE 


MACRO  NAME 

REFERENCES 

ASL$ 

#5-83 

9-416 

9-417 

10-507 

ASR$ 

#5-93 

9-396 

9-409 

CACDFS 

#5-60 

5-67 

CALL 

8-223 

8-228 

8-231 

8-233 

8-234 

8-240 

9-387 

10-480 

10-501 

11-599 

13-770 

CALLR 

#5-62 

9-288 

9-292 

9-298 

9-309 

11-667 

CRASH 

8-262 

DHBDFS 

#5-62 

5-66 

ECODBS 

#5-60 

5-68 

LBLDFS 

#5-62 

5-64 

NHWDFS 

#5-60 

5-74 

PCBDFS 

#5-62 

5-65 

RESRG 

#5-60 

9-389 

RETC 
RETURN 

#5-60 
8-253 
13-794 

9-371 

9-377 

9-434 

9-452 

10-552 

SAVRG 

#5-60 

9-384 

SOB 

11-605 

SWSTKS 

9-366 

10-480 

9-286 


9-330 


9-343 


9-366 


10-556 


11-657 


11-663 


13-787 
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3 

5 
6 

7 

8 
9 

10 
11 
12 
15 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
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49 
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CREf   04.00 


•FlL 


SYMBOL 

VALUE 

REFERENCES 

TSLLDS 

000012 

#5-67 

rSLLEN 

000046 

#5-67 

9-327 

9-352 

TSLOPR 

000002 

#5-67 

TSLTCL 

000024 

#5-67 

TSLTIM 

000026 

#5-67 

TSLTPR 

000014 

#5-67 

T$LTPS 

000020 

#5-67 

T$NAPL 

000004 

#5-67 

T$NFE 

000000 

#5-67 

T$NLEN 

000010 

#5-67 

T$NNUL 

000002 

#5-67 

TSNOPL 

000006 

#5-67 

TSNRNI 

000042 

#5-67 

TSNRPL 

000005 

#5-67 

TSNRUL 

000007 

#5-67 

TSNVR 

000001 

#5-67 

TSRPRI 

000040 

#5-67 

T$SVC 

000034 

#5-67 

T$T5 

000030 

#5-67 

T$T6 

000032 

#5-67 

Z.DSP 

-   ****** 

GX 

6-112 

8-286 

Z.LLN 

=   ****** 

GX 

7-154 

8-225 

lADJ 

000172 

RG 

#7-148 

$ALN18 

=   ****** 

GX 

7-166 

7-197 

8-242 

9-332 

$CKT 

001062 

RG 

#9-323 

SERR9D 

r  ****** 

GX 

7-168 

7-199 

8-244 

9-334 

$MAPX 

-  ****** 

GX 

7-175 

8-270 

9-345 

$MUL 

-  ****** 

GX 

6-105 

7-159 

9-328 

SNICAH 

000000 

RG 

#6-92 

SPDVA 

-  ****** 

GX 

6-96 

7-152 

8-223 

$ROL 

000466 

RG 

#8-222 

SSAVAL 

-   ****** 

GX 

6-92 

7-148 

8-222 

9-323 

TTTTl 
TTTTl 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLL 

LLLL 
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LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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328 
329 
330 
331 
332 
333 
33-; 
335 
336 
337 
338 
339 
3'!.0 
3A1 
3^2 
343 
344 
34  5 


$ODD  -  ".ODD"  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

R2=DESTR0VED 


TMP 
Sym 

Si2 

Ope 

Ela 
SV: 


000520  iODD:: 

000520  032767  000001  OOOOOOG       BIT 

000526  001010  BNE 

000530  CALL 

00053A  103405  BCS 

000536  112722  OOOOOOG  M0V8 

000542  105012  CLRB 

000544  005267  OOOOOOG  INC 

000550  10$:    RETURN 


#1,$SIZE 

loi 

$RQ2 

10$ 

#.8YTE,(R2)t 

{R2) 

$SIZE 


IS  SIZE  CURRENTLY  ODD? 
IF  NE,  YES  -  DO  NOTHING 
REQUEST  BINARY  FILE 
IF  CS,  NO  ACCESS 
STORE  FUNCTION  CODE 
STORE  ZERO  VALUE 
ADJUST  DATA  BASE  SIZE 
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A-. 

A48 

449 

450 

A51 

452 

455 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 


000620  032767  OOOOOOG  OOOOOOG  20$ 

000626  001405 

000630  016704  OOOOOOG 

000634  001415 

000636 

000642  032767  OOOOOOG  OOOOOOG  30$ 

000650  001405 

000652  016704  OOOOOOG 

000656  001405 

000660 

000664  000261 
000666 


000670 
000672 


20$: 

BIT 

#FL.PX1 

,$FLAGS 

WAS  DLC  TRANSFERRED  ? 

BEQ 

30$ 

IF  EQ,  NO 

MOV 

$DLCPV, 

R4 

GET  DLC  PDV  ADDRESS 

BEQ 

101$ 

IF  ZERO,  LOGIC  ERROR 

CALL 

XPRO 

RELEASE  DLC  FROM  PARTITION 

30$: 

BIT 

#FL.PX2 

,$FLAGS 

WAS  DDM  TRANSFERRED? 

BEQ 

40$ 

IF  EQ,  NO 

MOV 

$DDMPV, 

R4 

GET  DDM  PDV  ADDRESS 

BEQ 

111$ 

IF  ZERO,  LOGIC  ERROR 

CALL 

XPRO 

RELEASE  DDM  FROM  PARTITION 

40$: 

SEC 
RETURN 

RETURN  WITH  C-BIT  SET 

;  ERROR 

CONDITIONS 

101$: 

CRASH 

NETLDR  LOGIC  ERROR 

111$: 

CRASH 

■  DITTO 

K     1 
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1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 


002010 
002014 

002020 
002024 
002026 
002034 
002036 
002044 

002046 
002052 
002056 
002062 
002066 
002070 
002072 
002076 
002102 
002106 

002112 
002120 
002122 
002126 
002132 


01:  ,\>^ 

017701 
012200 
126065 
001034 
126065 
001030 

005060 
005060 
105060 
116003 
001411 
010004 
062704 
105064 
062704 


126060 
001002 
005060 


.SBTTL  ZDDS  -  CLEAR  DDM  LINE  TABLE  ADDRES  WORD(S)  AND  KR8  ADDRESS 

ZDDS  -  RE-SCAN  SLT'S  AND  CLEAR  DDM  LINE  TABLE  ADDRESS  WORD(S)  AND  KRB  ADDRESS 

INPUTS: 

R5  -  SLT  ADDRESS 

OUTPUTS: 

R3,R4,R5  PRESERVED 


OOOOOOG 
OOOOOOG 

OOOOOOG 

000002  000002 

000012  000012 


000004 
000016 
000021 
000014 


ZDDS: 


10$: 


JSR 
MOV 

MOV 

MOV 

CMPB 

BNE 

CMPB 

BNE 


R5,$SAVRG 
aSLTMA,R2 


SAVE  R3,ft4,R5 

GET  SLT  TABLE  ADDRESS 


000022 
000003 
000004 


000002  000003 
000010 


SSLTNM.RI       ;  GET  NUMBER  OF  SLT'S 
(R2)+,R0       ;  GET  NEXT  SLT 
L.DDM(R0),L.DDfl(R5)  ;  SAME  DEVICE  AS  OURS? 
20$  ;  IF  NE,  NO 

L.CTL(R0),L.CTLCR5)  ;  SAML  CONTROLLER? 
20$  ;  IF  NE,  NO 

ZERO  DDM  LINE  TABLE  ADDRESS 

ZERO  KRB  ADDRESS 

CLEAR  THE  LINE  OWNER 

GET  THE  NUMBER  OF  STATIONS 

IF  EQ,  NONE 

POINT  TO  START  OF  TRIBUTARIES 

CLEAR  STATION  OWNERS 
NEXT  STATION 
CLEAR  ALL  STATIONS 

5)  ;  COMBINATION  DDK/DLC? 
IF  NE,  NO 

ZERO  DLC  LINE  TABLE  ADDRESS 
SCAN  ENTIRE  SLT 


CLR 

L.DDS(RO) 

CLR 

L.KRBA(RO) 

CLRB 

L.OWNR(RO) 

MOVB 

L.NSTA(R0),R3 

BEQ 

15$           ; 

MOV 

R0,R4 

ADD 

#L.MPF,R4 

H$: 

CLRB 

S.0WNR(R4) 

ADD 

#S.LEN,R4 

SOB 

R3,13$ 

15$: 

CMPB 

L.DDM(RO),L.DLC(R 

BNE 

20$ 

CLR 

L.DLS(RO)       ; 

20i.: 

SOB 
RETURN 

R1,10$ 
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NTLUNL  - 
XREMTB  - 

1522 

1523 

152A 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

15A1 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 
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.S8TTL  XFLTTB  -  DE-ALLOCATE  FILTER  CONTROL  BLOCKS 

XFLTTB  -  DE-ALLOCATE  THE  FILTER  CONTROL  BLOCK  TABLE 
INPUTS: 


NONE 


OUPUTS: 


ALL  FILTER  CONTROL  BLOCKS  ARE  DE-ALLOCATED 


003272  016703  OOOOOOG 

003276 

003302 

003306  011300 

003310  001414 

003312  010046 

003314 

003320  012604 

003322  011413 

003324  016401  000002 

003330  042701   177700 

003334 

003340  000762 

003342 

003346 

003350 


XFLTTB: 

MOV 

FILHD,R3 

SWSTK$ 

30$ 

SAVMAP 

10$: 

MOV 

(R3),R0 

BEQ 

20$ 

MOV 

R0,-(SP) 

CALL 

$CEACX 

MOV 

(SP)+,R4 

MOV 

(fi4),(R3) 

MOV 

F.CLS(R4),R1 

BIC 

#*C<77>,R1 

CALL 

$XDEAC 

BR 

10$ 

20$: 

RESMAP 
RETURN 

POINT  AT  START  OF  FILTER  TABLE  LIST 

ENTER  SYSTEM  STATE 

SAVE  CURRENT  MAPPING 

GET  THE  NEXT  FILTER  BLOCK  IN  LIST 

IF  EQ,  END  OF  LIST 

SET  BLOCK  ADDRESS 

GET  ACCESS  TO  BLOCK 

GET  HAPPED  ADDRESS  OF  BLOCK 

GET  THE  NEXT  FILTER  BLOCK  IN  LIST 

GET  LENGTH  OF  BLOCK  (IN  LOUER  6  BITS) 

ISOLATE  LENGTH 

DE-ALLOCATE  THE  FILTER  BLOCK 

AND  GO  AGAIN 

RESTORE  PREVIOUS  MAPPING 

EXIT  SYSTEM  STATE 


30$: 


RETURN 
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EINCS 
E$NIC 
ESNLEN 
ESNLLA 

esnlnk; 

ESNHL 

E$NMR 

ESNMS 

ESNNOD 

tSNOD 

E$NRT 

ESNRTP 

ESNSEG 

ESNTIM 

ESNUSE 

ESPORT 

ESPRM 

ESSTAT 

ESSTRT 

ESTCB 

E$$XPR= 

E.CTL 

E.DATA 

E.EVT 

E.LCN 

E.LEN 

E.LIN 

E.LNK 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TIME 

FC.CCP= 

FC.CTL= 

FC.KCP= 

FC.KIL= 

FC.MAN= 

FC.MLD= 

FC.PCT^ 

FC.PWR= 

FC.RCE= 

FC.RCP= 

FC.TIM= 

FC.XCP= 

FC.XME= 

FE.CEX= 

FF.ADD= 

FF.CIR= 

FF.CON= 

FF.FIL= 

FF.HST= 

FF.LIN= 

FF.MOD= 


000036 

000044 

000050 

000012 

000000 

000040 

000024 

000030 

000002 

000010 

000042 

000005 

000010 

000046 

000004 

000014 

000002 

000006 

000006 

000004 

000000 

000020 

000046 

000002 

000042 

000216 

000024 

000000 

000036 

000034 

000021 

000040 

000026 

000044 

000022 

000004 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

****** 

000020 
000040 
000001 
000002 
040000 
000010 
000100 


GX 


FF.MON= 

FF.MSK= 

FF.PRT= 

FF.QUL= 

FF.REM= 

FILHD  = 

FLT 

FLT16 

FL.PX1= 

FL.PX2= 

FMASK  = 

FHKTMP 

FNDADD= 

FR$BCC= 

FR$CCF= 

FR$CDF= 

FR$DAO= 

FR$EXC= 

FR$FRM= 

FR$FTL= 

FR$OPN= 

FR$RFD= 

FR$SBU= 

FR$SHO= 

FR$UBU= 

FR$UPT= 

FS.AST= 

FS.CIB= 

FS.CRA= 

FS.DIS= 

FS.DVC= 

FS.EN8= 

FS.EXI= 

FS.GET= 

FS.HLT= 

CS.INI= 

FS.KIL= 

FS.LCL= 

FS.LTM= 

FS.MNT= 

FS.MSN= 

FS.REA= 

FS.RET= 

FS.REZ= 

F5.RLB= 

FS.RNG= 

FS.RST= 

FS.RTN= 

FS.SET= 

FS.SFC= 

FS.SFR= 

FS.SFS= 

FS.SPW= 

FS.STM= 

FS.STP= 

FS.STR= 

FS.TRM= 


000004 

000077 

000200 

000370 

100000 

»«♦**»  GX 

003352R 

003352R 

»»****  GX 

******  GX 

******  GX 

000002R 

******  GX 

000007 

000001 

000002 

000011 

000000 

000010 

000005 

000004 

000006 

000012 

000003 

000013 

000014 

000000 

002000 

001000 

013000 

001000 

012000 

001000 

006000 

000000 

000000 

000000 

100000 

001000 

004000 

014000 

001000 

000000 

003000 

002000 

011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 


FS.WLB= 
FS.XKL= 
FS.X0F= 
FS.X0N= 
FS.ZER= 
F$$LVL= 
F.ADD 
F.CEV 
F.CIR 
F.CLS 
F.EVT 
002  F.FLG 
F.LEN 
F.LIN 
F.LNK 
F.MOD 
F.NXT 
F.REM 
F.SEV 
F.USE 
F.VAR 
GETIND= 
GETPDV= 
G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$URD= 
ICBLEN 
IC8SC 
IC8SZ 
INIFL  = 
I$$RAR= 
I$$RDN= 
KMCB 
KSAR5  = 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
K.CSR 
K.PRl 
K.VCT 
K6TMP 
LDSLP  = 
LF.ACT= 
LF.BRO= 
LF.8WT= 
LF.ENA= 
LF.LP8= 

LF.mc= 

LF.MFL= 
LF.MTP= 
LF.PAC= 
LF.ROV= 
LF.REA= 
LF.SER= 
LF.TIM= 


001000 

002000 

010000 

007000 

002000 

000001 

000016 

000030 

000024 

000002 

000004 

000014 

000016 

000020 

000000 

000022 

000000 

000026 

000004 

000002 

000003 

******  GX 

******  GX 

000000 

000000 

000000 

000000 

001720R 

001662R 

000006R 

000001 

000000 

000000 

000116R 

******  GX 

177546 

177546 

000000 

000074 

000002 

000000 

000001 

OOOOOOR 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 


LF.UNL 

LF.X2P= 

L6DDB 

LGPDV 

LGSTT 

LLCAL  = 


020000 
000000 

-   ****** 


LN.CLO= 

000000 

LN.DUM= 

000005 

LN.LOA= 

000004 

LN.LO0= 

000003 

LN.OAU= 

000003 

LN.OFF= 

000001 

LN.ON  = 

000000 

LN.OOP= 

000004 

LN.OPE= 

000001 

LN.REF= 

000002 

LN.SER= 

000002 

LN.STA= 

000017 

LN.SUB= 

000360 

LN.TRI= 

000006 

L$$ASG= 

000000 

L$$DRV= 

000000 

L$$P11= 

000001 

L$$11R= 

000000 

L.COST 

000015 

L.CTL 

000012 

L.CVA 

177776 

L.DDM 

000002 

L.DDS 

000004 

002  L.DLC 

000003 

L.DLM 

000006 

L.DLS 

000010 

L.FLG 

000000 

002  L.KRBA 

000016 

L.LEN  = 

000022 

L.MPF 

000022 

L.NMST 

000020 

L.NSTA 

000014 

L.OWNR 

000021 

L.UNT 

000013 

MO$SAC= 

000016 

MO$SPR= 

000012 

002  MO$SSV= 

000014 

MO$25A= 

000006 

M0$25P= 

000002 

M0$25S= 

000004 

M0$29S= 

000010 

M$HIGH= 

000003 

M$$CRB= 

000124 

M$$CRX= 

000000 

M$$FCS= 

000000 

l»I$$MGE  = 

000000 

M$$NET= 

000000 

M$$0VR= 

000000 

l«l$3100= 

000000 

M$3101= 

000001 

M$3102= 

000002 

GX 
GX 
GX 
GX 


M$3103= 

000003 

M.LGTH= 

****** 

:jX 

NETPF  = 

****** 

GX 

NF$BLK= 

000100 

NF$DMO= 

000010 

NF$H0U= 

000040 

NF$RST= 

000002 

NF$SCN= 

000020 

NF$SHU= 

000004 

NF$TIM= 

000200 

NSITAB 

000126f 

NSO   = 

****** 

GX 

NSl 

****** 

GX 

NS2   = 

****** 

GX 

NS3   = 

****** 

GX 

NS4   = 

****** 

GX 

NS5   = 

****** 

GX 

NS6   = 

****** 

GX 

NS7   = 

****** 

GX 

NTLPT  = 

****** 

GX 

N$ACQ 

000000 

NSACTL 

000032 

NSADJl 

000072 

N$ADJ2 

000074 

NSCACH 

000062 

N$CIR 

000034 

NSCRC 

000120 

N$DLA 

000020 

NSDLY 

000014 

NSELEN 

000054 

NSENC 

000042 

NSERRC 

000022 

N$FLG 

000005 

N$FNC 

000006 

NSGENQ 

000052 

N$GTM 

000015 

N$HC1 

000052 

N$HC2 

000056 

NSHIGH 

000033 

N$LLT 

000026 

NSLLTM 

000024 

N$LVC 

000036 

NSLVI 

000002 

N$LV2 

000010 

NSMBXQ 

000050 

NSMHCI 

000036 

N$MHC2 

000044 

NSPLD 

000016 

NSPLLT 

000030 

N$PRI 

000076 

NSROAl 

000022 

N$R0A2 

000030 

NSRTMX 

000014 

NSRTMI 

000014 

N$RTM2 

000015 

N$RT1 

000000 

N$RT2 

000006 

002 
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NTLUNL 

CREATED  BY 

MACRO     ON  29 

-JUN-85  AT 

00:35 

PAGE   11 

SYMBOL 

CROSS  REFERENCE 

CREF        04.00 

SYMBOL 

VALUE 

REFERENCES 

$XSNA 

-      ****** 

GX 

19-1164 

19-1166 

JSPDIN 

~       ****** 

GX 

9-342 

♦12-488 

*19-1115 

$$$ARG 

=  OOOOOA 

#8-293 
8-293 

8-293 
8-293 

8-293 

8-293 

.CXALL 

~    ****** 

GX 

19-1196 

19-1273 

.CXLEN 

=    ****** 

GX 

19-1197 

19-1274 

.CXPCB 

—     ****** 

GX 

19-1204 

.CXUNL 

r     ****** 

GX 

27-1582 

28-1730 

*28-1732 

28-1736 

.DEA16 

004166 

R 

28-1676 

28-1694 

#29-1803 

.NAME 

000U6 

R 

#7-191 

.NTLPT 

000150 

R 

#7-192 

.PCB 

-      ****** 

GX 

19-1306 

.UMRSA 

-      ****** 

GX 

19-1327 

..PDV 

000152 

R 

#7-202 

*8-272 

♦11-441 

♦14-607 

8-293 


8-293 


8-293 


8-293 


8-293 


POLAL 
Table 


c 

K 


14-630 


♦14-644 


14-652 


29-1818 


NTUINL 
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Table  ot"  contents 

MACROS 

LOCAL  DATA 

SXALOC  -  ALLOCATE  CORE  BUFFER  IN  EXTENDED  POOL 

SXDEAC  -  DEALLOCATE  CORE  BUFFER  IN  EXTENDED  POOL 

SLINKX  -  LINK/UNLINK  BLOCK  IN  EXTENDED  POOL 

SCEACX  -  ACCESS  BLOCK  IN  EXTENDED  POOL 


s- 

ss 

(S- 

n 

f- 

H(' 

H- 

VH 

q- 

■iOO 

0- 

iAI 

POLAL 

SYMBOL 

SYMBOL 

ALOCB 
OEACB 
KSAR5 

M$$MGE 

R$$EIS 

R$$11M 

XAVL 

XAVLL 

XBIAS 

SCEACX 

SLINKX 

SXALOC 

SXDEAC 
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SYMBOL  CROSS  REFERENCE 


J  7 

PAGE  1 

CREF   OA.OO 


SYMBOL  VALUE 

ALOCB  =  **«••* 

DEACB  =  »»*.«« 

KSAR5  =  ».»».♦ 


GX 
GX 
GX 


MSSMGE 

R$$EIS 

R$$11M 

XAVL 

XAVLL 

XBIAS 

SCEACX 

$LIN<X 

$XALOC 

SXDEAC 


=  000000 

~    ****** 


000000 
•»♦♦*«  GX 
000002  R 
*«•»*»  GX 
0O0A70  RG 
OO0A2A  RG 
000006  RG 
0001 3A  RG 


REFERENCES 

7-131 

8-215 

7-119 

8-273 

7-113 

10-379 

7-129 

7-123 
#6-84 

10-39', 

7-154 
#9-324 
#7-112 
#8-202 


7-172 
8-280 
8-204 

8-214 
7-173 
7-120 

7-168 


8-233 
8-281 
10-361 

10-369 

8-245 

7-173 

8-238 


8-240 
8-283 


8-289 
8-241 

8-250 


8-257 
8-287 


8-289 
8-267 


8-258 
8-294 


9-328 


8-260 
10-394 


9-333 


8-265 
10-395 


#10-360 


8-271 


PRIO  ■ 
Table 


POLAL 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:56     PAGE  2 


K  7 


PRIO 


PRIO  -  READ  PROCESS    II^TO  CORE 
Table  of  contents 


J  8 

MACRO  V05.03b  Saturday  29-Jun-85  00;36 


PRIO 
PR.P, 


s- 

ss 

6- 

10< 

/- 

HS 

8- 

196 

9- 

PftA 

in- 

ASft 

11- 

S/ft 

ii- 

lUl 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINTIONS 

LOCAL  DATA 

$PRIO  -  PROCESS  I/O 

PR.LBL  -  REAP  LABEL  BLOCK 

PR. PAR  -  FIND  PARTITION 

PR. SUB  -  CREATE  SUB-PARTITION 

PR.XFR  -  READ  PROCESS  INTO  CORE 
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PRIC 


PRIO  -  READ  PROCESS   INTO   CORE 
PR. PAR   -   FIND   PARTITION 


515 
5H 
515 
516 
517 
518 

519  001156 

520  001H0 

521  001 U6 

522  001150 

523  001154 
52A 

525 
526 

527  001156 

528  001164 
529 

530 
531 
532 
533 
534 
535 
536 
537 
558 

539  001166 

540  001174 

541  001176 
5',2  001202 

543  001204 

544  001210 

545  001214 

546  001216 

547  001224 
548 
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103007 

052777  OOOOOOG  OOOOOOG 

001465 

022702  001200 

105462 


026765  000000'  000016  30$: 
101042 


549 
550 

551  001252 

552  001256 
555  001240 

554  001244 

555  001246 

556  001250 
557 

558 
559 
560 

561  001252 

562  001260 

563  001262 

564  001270 

565  001272 

566  001300 

567  001502 

568  001510 

569  001512 


052765  000200     000030 

001442 

105765  000025 

001043 

016504  000012 

105764  000025 

001036 

156565  000024  000025 

156564  000024  000025 


010567  000012' 


005767  000010' 

001401 

000261 


40$ 
50$ 
60$ 

70$: 
80$: 


BLO 


BHIS 

BIT 

BEQ 

CMP 

BLO 


CMP 
BHI 


.IF  DF   X$$MDB 

151$  ;*  IF  LO, 

.IFF    ;  DF  X$$MDB 


NO 


50$ 

#FE.EXV,aFMASK 

151$ 

#1200, R2 

151$ 


*  IF  HIS,  YES 

*  IS  20K  EXEC  SUPPORTED? 

*  IF  EQ,  NO 

*  IS  PARTITION  WITHIN  FIRST  20K? 

*  IF  LO,  NO 


.ENDC 


DF  X$$MBD 


.IFF 


CMP 
BNE 
CMP 
BHI 


BL0X,P.BLKS(R5)  ; *  IS  PARTITION  BIG  ENOUGH? 
121$  ;*  IF  HI,  NO 

;  DF  M$$MGE 

L$BSA(R0),P.REL(R5)  ;*  WAS  PROCESS  BUILT  FOR  THIS  PARTITION? 
111$  ;*  IF  NE,  NO 

BYTES,P.SIZE(R5)  ;*  IS  PARTITION  BIG  ENOUGH? 
121$  ;*  IF  HI,  NO 


.ENDC 


DF  M$$MGE 


BIT 

BEQ 

TSTB 

BNE 

MOV 

TSTB 

BNE 

BJS8 

BISB 

.ENDC 

MOV 

RETURN 

TST 

BEQ 

SEC 

RETURN 


#PS.C0M,P.STAT(R5) 

151$ 

P.6USY+1(R5) 

141$ 

P.MAJN(R5),R4 

P.8USY+1(R4) 

141$ 

P.SUSY(R5),P.BUSY+1(R5) 

P.8USY(R5),P.BUSY+1(R4) 


;  DF  R$$MPL 
R5,PCBA 


;*  COMMON  PARTITION? 
IF  EQ,  NO 

*  IS  PARTITION  BUSY? 

*  IF  NE,  YES 

*  GET  MAIN  PARTITION  PCS  ADDRESS 

*  IS  MAIN  PARTITION  BUSY? 

*  IF  NE,  YES 
SET  PARTITION  BUSY 
SET  MAIN  PARTITION  BUSY 


ERROR 
80$ 


*  SET  PCB  ADDRESS 

*  BACK  TO  USER  MODE 

DID  ERROR  OCCUR  IN  KERNEL  MODE? 
IF  ZERO,  NO 
INDICATE  FAILURE 


(CLEARS  C-BIT) 


012767 
000766 
012767 
000762 
012767 
000756 
012767 
000752 
012767 


000022 
000024 
000026 
000050 
000052 


ERROR  CONDITIONS 
000010'  101 


000010'  111$ 

000010'  121$ 

000010'  151$ 

000010'  141$ 


MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 

BR 

MOV 


#ERR18, ERROR 

50$ 

#ERR20, ERROR 

50$ 

#ERR22, ERROR 

50$ 

#ERR24, ERROR 

50$ 

#ERR26, ERROR 


♦  PARTITION  NOT  IN  SYSTEM 

♦  PROCESS/PARTITION  BASE  ADDRESS  MISMATCH 

♦  PARTITION  TOO  SMALL 
* 

»  NOT  COMMON  PARTITION 

* 

»  PARTITION  BUSY 
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»*FILE»«ID* 

PROAL 

PPPPPPPP 

RRRRRRRR 

PPPPPPPP 

RRRRRRRR 

PP      PP 

RR      RR 

PP      PP 

RR      RR 

PP      PP 

RR      RR 

PP      PP 

RR      RR 

PPPPPPPP 

RRRRRRRR 

PPPPPPPP 

RRRRRRRR 

PP 

RR   RR 

PP 

RR  RR 

PP 

RR    RR 

PP 

RR    RR 

PP 

RR      RR 

PP 

RR      RR 
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PROi 
MAC 


000000 

AAAAAA 

000000 

AAAAAA 

00      00 

AA 

AA 

00      00 

AA 

AA 

00      00 

AA 

AA 

00      00 

AA 

AA 

00      00 

AA 

AA 

00      00 

AA 

AA 

00      00 

AAAAAAAAAA 

00      00 

AAAAAAAAAA 

00      00 

AA 

AA 

00      00 

AA 

AA 

000000 

AA 

AA 

LLLLLLLLLL 

000000 

AA 

AA 

LLLLLLLLLL 

ssssssss 

rTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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PRC 
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MACRO  DEFIMITIONS 


PROX 


55 
56 
5? 

58 
59 


.SeirL  MACRO  DEFINITIONS 
•  *** 
;  LIBRARY  MACROS 

.MCALL  NTLERS 
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3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
lA 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2'^ 
25 
26 
27 
28 
29 
30 
31 
52 
33 
3A 
35 
36 
37 
38 
39 
40 
41 


.TITLE   PROXPT  -  XPT  PROCESS  INITIALIZER 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  "INIT  XPT"  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


PROXl 

MACRI 

MACR( 

ADJDI 
ASR$ 
BIAS 
BIAS' 
CACDI 
CALL 


CTRD 

DHBD 

ECDDI 

EMSG 

MAP 

RESM 

RESR 

RETU 

SAVM 

SAVR 

SOB 

SWST 

XPDD 
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PROXPT     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:38 
MACRO  CROSS  REFERENCE 


J  13 

PAGE  3 

CREF   04.00 


TMPA 


MACRO  NAME 

REFERENCES 

ADJDF$ 

#5-45 

5-66 

ASR$ 

#5-46 

7-164 

7-196 

8-240 

9-331 

BIAS 

#5-45 

8-253 

9-339 

BIAS5 

#5-56 

6-117 

8-291 

CACDFS 
CALL 

#5-45 
6-92 

5-71 
6-98 

6-105 

7-148 

7-159 

7-166 

7-168 

7-174 

7-175 

7-197 

7-199 

8-222 

8-242 

8-244 

8-266 

8-270 

9-323 

9-328 

9-332 

9-334 

9-343 

9-345 

CTRDFS 

#5-45 

5-67 

DHBDFS 

#5-45 

5-70 

ECODBS 

#5-45 

5-68 

EMSGS 

#5-46 

7-168 

7-199 

8-244 

9-334 

MAP 

#5-61 

6-112 

8-286 

RESMAP 

#5-52 

6-128 

8-302 

RESRG 
RETURN 

#5-45 
6-129 

6-134 

7-169 

7-189 

7-200 

7-207 

8-246 

8-303 

8-309 

9-359 

SAVMAP 

#5-48 

6-109 

8-282 

SAVRG 

#5--45 

SOB 

6-126 

8-300 

9-355 

9-357 

swstks 

6-98 

7-174 

8-266 

9-343 

XPDDB$ 

#5-45 

5-69 

•♦FiLE»«lD*«SVMBL 
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IMP/ 


1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2*^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE   TMPACT  -  TEMPLATE  PROCESSING  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  6/  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  1 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  VI  .0 
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^ol^ 


3A' 

+ 

^■iS 

$PRI 

-  ".PRl' 

ACTION  ROU 

349 

350 

INPUTS: 

351 

NONE 

352 

353 

OUTPUTS: 

354 

R2=DESTR0rED 

355 

356  000552 

ipRII: 

357  000552 

005267 

OOOOOOG 

INC 

$$PRI 

358  000556 

$PRI:: 

359  000556 

CALL 

SVFDDM 

360  000562 

CALL 

$RQ1 

361  000566 

103405 

BCS 

10$ 

362  000570 

112712 

OOOOOOG 

Move 

#.PRI,(R2) 

363  000574 

062767 

000002 

OOOOOOG 

ADD 

#2,$SIZE 

364  000602 

10$: 

RETURN 

ENTRY  fOR  DECREMENTING  DUP  PRIORITY 
UPDATE  PRIORITY  (COMPLEMENT  OF  PRIORITY) 

MAKE  SURE  IT'S  A  DDM 
REQUEST  BINARY  BUFFER  ACCESS 
IF  CS,  ACCESS  DENIED 
STORE  FUNCTION  CODE 
ADJUST  LINE  TABLE  SIZE 
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IMPACT     CREATED  Bv  MACRO  ON  P9-JUN-85  AT  00:38     PAGE  1 

SYMBOL  CROSS  REFERENCE  CREF   04.00 

SYMBOL  VALUE  REFERENCES 

FL.ODM  =  .•..t»  GX     2?-bb2 

FL.DLC  =  ••••••  GX     27-662 

FMf"''  '-  mlV?  r''  5-?f  ^           5-75               5-76               5-77               5-78               5-79              5-80              5-81             *5-90 

FM  2  =  000000  #5-74             #5-75             #5-76             #5-77             #5-78             #5-79            #5-80            #5-81 

F1.LFL  =    .«*»♦«  GX             14-296 

Fl.MPL  =    «.**•*  GX            14-501 

F2.BYT  =   »•••**  GX            23-564 

F2.FIL  =   »»»»♦*  GX           26-643 

F2.NEG  =   •**♦•♦  GX           23-568           23-572           23-577 

F2.SUB  =   •♦»••»  GX           24-598           24-604 

LF.ACT  =  100000  #5-61 

LF.BRO  =   000400  #5-61 

LF.BJT  =   000007  #5-61 

LF.ENA  =  002000  #5-61 

LF.LPB  =  001000  #5-61 

LF.MOC  =^  000100  #5-61 

LF.MFL  =  004000  #5-61 

LF.MTP  =  000020  #5-61 

LF.PAC  =   000200  #5-61 

LF.RDY  =   040000  #5-61 

LF.REA  =  010000  #5-61 

LF.SER  =  000040  #5-61 

LF.TIM  =   000010  #5-61 

LF.UNL  =  020000  #5-61 

LF.X2P  =  000000  #5-61 

LN.CLO  =  000000  #5-61 

LN.DUM  =  000005  #5-61 

LN.LOA  =   000004  #5-61 

LN.LOO  =  000003  #5-61 

LN.OAU  =  000003  #5-61 

LN.OFF  =  000001  #5-61 

LN.ON  =  000000  #5-61 

LN.OOP  =  000004  #5-61 

LN.OPE  =  COOOOl  #5-61 

LN.REF  =  000002  #5-61 

LN.SER  =  000002  #5-61 

LN.STA  =  000017  #5-61 

LN.SUB  =  000360  #5-61 

LN.TRI  =  000006  #5-61 

L.COST          000015  #5-61                 ^      ,, 

L.CTL           000012  #5-61               8-171             8-178 

L.CVA            177776  #5-61 

L.DDM           000002  #5-61 

L.DDS            000004  #5-61 

L.DLC            000003  #5-61 

L.DLM           000006  #5-61 

L.DLS           000010  #5-61 

i.FLG           000000  #5-61 

L.KRBA         000016  #5-61 

L.LEN  =  000022  #5-61 

L.MPF           000022  #5-61 
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NTlUNL  -  NTL  UNLOAD  ROUTINES 
$CPRO  -  CLEAR  PROCESS 


468 
i69 
470 
471 
472 
475 
474 
475 
476 
477 
478 
479 
480 
481 

482  00C674 

483  000700 

484  000706 

485  000710 

486  000716 
487 

488  000722 

489  000730 

490  000732 

491  000736 

492  000742 
495  000744 

494  000750 

495  000754 

496  000762 

497  000764 
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.SBTTL  SCPRO  -  CLEAR  PROCESS 


$CPRO  -  CLEAR  PROCESS 

THIS  ROUTINE  IS  CALLED  TO  REMOVE  A  PROCESS  FROM  CORE.  THE  MARK-FOR-LOAD 
BIT  IN  THE  PDV  IS  ALWAYS  CLEARED. 


INPUTS: 


$PDVA=PDV   ADDRESS 


016704 
032764 
001420 
016467 


012767 
010401 

005064 
000241 


142764 
000241 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


OUTPUTS: 

NONE 

iCPRO: :  MOV 
BIT 


OOOOOOG 

005030  OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 


10$: 
15$: 


BEQ 
MOV 
CALL 

MOV 

MOV 

CALL 

CLR 

CLC 

CALL 

CALL 

BKB 

CLC 

RETURN 


$PDVA,R4        ; 

#ZF.INI,Z.FLG(R4; 

15$ 

Z.PC8(R4),$PCB 

DQCLK 


GET  PDV  ADDRESS 

;  DOES  PROCESS  NEED  TERMINATION  DISPATCH 

IF  NO  -  BRANCH 

SAVE  PCS  ADDRESS 

DEQUEUE  100MSEC  CLOCK  BLOCK 


#FS.TRM!FC.PCT,$$PDIN  ;  SET  UP  FUNCTION  CODE 
R4,R1  ;  COPY  PDV  ADDRESS 

$DSINI         ;  CALL  PROCESS 
Z.PCB(R4)       ;  DISABLE  '"IMER  SERVICE 

;  CLR  C-8IT 
XDC8  ;  UNLOAD  DRIVER 

XPHO  ;  RELEASE  PROCESS  FROM  MEMORY 

#ZF.MFL,Z.FLG(R4)  ;  CLEAR  THE  MARK-FOR-LOAD  FLAG 

;  CLR  C-BIT 


498 
499 
500 
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NTLUNL  -  NTL  UNLOAD  ROUTINES    MACRO  V05.03b  Saturday  29-Jun-85  00 
ZDOS  -  CLEAR  DDM  LINE  TABLE  ADDRES  WOR0(S.^  AND  KR8  ADbRESS 


:l 
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NTLUI 
FIT! 


1055 

105A 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

|09A 

l095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 


002134 
002134 
002142 
002144 

002150 
002150 
002154 

002160 
002164 
002172 
002174 
002176 
002200 
002204 
002206 
002210 
C02212 
002216 

002220 
002224 
002230 

002232 
002254 
002''42 
002^44 
002250 
002252 
002256 
002260 
002262 
002264 

002270 
002274 
002276 
C02300 


032777 
001002 
000167 


005077 

016700 

010001 
011100 
001405 
026700 
001372 
011011 
000770 


017704 
017746 
001415 

012405 
032765 
001406 
01056/ 
010446 

012604 
005316 
001363 
017705 

017716 
001435 
012504 
001431 


.SBTTL  SCCEX  -  CLEAR  CEX 

SCCEX  -  CLEAR  CEX 

THIS  ROUTINE  IS  CALLED  TO  REMOVE  ALL  COMM  EXEC  RELATED  PIECES  FROM  CORE. 
IT  IS  ASSUMED  THAT  THE  CALLER  IS  USING  HIS/HER  GOOD  JUDGEMENT  BECAUSE  NO 
CHECKING  OF  ANY  KIND  IS  DONE  TO  SEE  IF  THIS  FUNCTION  IS  SAFE. 

INPUTS: 

NONE 

OUTPUTS: 

EVERYTHING  IS  REMOVED  FROM  CORE 


OOOOOOG  OOOOOOG 
000530 

OOOOOOG 
OOOOOOG 


SCCEX: 


1$: 


OOOOOOG 


000000. 
OOOOOOG 


040000  000000 
OOOOOOG 


OOOOOOG 
OOOOOOG 


2$: 
3$: 

4$: 
6$: 

9$: 
10$: 


20$: 
30$: 

40$: 


BIT     *FE.CEX,aFMASK 
BNE     1$ 
JMP     80$ 


SWSTK$  9$ 

CLR  aNETPF 

MOV  CLKHD,RO 

MTPS  #PR7 

MOV  R0,R1 

MOV  (fi1),R0 

BEQ  6$ 

CMP  TISCL.RO 

BNE  3$ 

MOV  (R0),(R1) 

BR  3$ 

MTPS  *0 

RETURN 

MOV  aSLTMA,R4 

MOV  aSLTNM,-(SP) 

BEQ  30$ 

MOV  (R4H,R5       ; 

BIT  #LF.RDY,L.FLG(R5) 

BEQ  20$ 

MOV  R5,$SLTA 

MC  R4,-(SP) 

CALL  XLIN 

MOV  (SP)+,R4 

DEC  (SP) 

ENE  10$ 

MOV  aPDVTA,R5 

MOV  aPDVNM,(SP) 

BEQ  52$ 

MOV  (R5)+,R4 

BEQ  50$ 


IS  COMM  EXEC  LOADED  ? 

IF  NE,  YES 

ELSE,  ERROR  RECOVERY 


ENTER  KERNEL  MODE 
CLEAR  POWERFAIL  FLAG 

POINT  AT  CLOCK  QUEUE 

DISABLE  INTERRUPTS 

COPY  CURRENT  BLOCK 

GET  NEXT  BLOCK 

IF  ZERO,  END  OF  LIST 

1  SEC  TIMER  ENTRY  ? 

IF  NE,  NO 

REMOVE  ENTRY  FROM  QUEUE 

GO  GET  NEXT 

RE-ENABLE  INTERRUPTS 
BACK  TO  USER  MODE 

GET  SLT  TABLE  ADDRESS 
AND  COUNT  OF  SLT'S 
IF  ZERO,  NO  WORK  HERE 

GET  NEXT  SLT 

;  IS  THE  LINE  READY? 

IF  EQ,  NO 

SAVE  SLT  ADDRESS 

SAVE  POINTER  IN  SLT  MAPPING  TABLE 

UNLOAD  THE  LINE 

RESTORE  MAPPING  INTO  SLT  TABLE 

LOOP  <$SLTNM>  TIMES 

GET  PDv'tABLE  ADDRESS 

AND  COUNT  OF  PDV'S 
IF  ZERO,  NO  WORK  HERE 
GET  PDV  ADDRESS 
ALLOW  EMPTY  SLOTS 
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FLT16  -  FIND  A  16  BIT  ALLOCATION  LINE  TABLE 


1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

156A 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

157-; 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

158A 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

508 

1609 

1610 

1611 

1612 


.SBTTL  FLT16  -  FIND  A  16  BIT  ALLOCATION  LINE  TABLE 


FLT16  -  FIND  A  16  BIT  ALLOCATION  LINE  TABLE 

INPUTS: 

R3=LINE  TABLE  ADDRESS 

R4=PDV  INDEX  OF  DDM/DLC/LLC  PROCESS 

OUTPUTS: 

R0,R1,R2,R3=DESTROYED 
UeiAS,UBA=UNLOAD  BLOCK  ADDRESS 
BLOCK=LOCAL  COPY  OF  UNLOAD  BLOCK 


003352 
003352 


003356 
003362 


003366 
003372 


003376 
003400 
003402 
003404 
003410 
003412 
003414 
003416 
003420 
003422 
003426 
003432 
003434 
003436 
003440 
003442 
003446 
003450 
003452 
003454 
003456 
003460 
003462 
003464 
003466 


005067 
017700 


000012' 
OOOOOOG 


FLT16: 
FLT: 


016211  OOOOOOG 


001467 
005722 
005722 
126204 
001013 
022203 
001442 
101011 
011246 
042716 
066216 
022603 
101032 
000401 
005722 
032722 
001410 
005046 
152216 
005046 
152216 
062616 
006316 
006316 
062602 


177776 


000003 
177776 


000001 


10$: 
20$: 


30$: 
40$: 


CLR 

.IF  DF 
MOV 


SUSTK$ 


CALL 

MOV 

.IFF 

MOV 

MOV 

.ENDC 

BEO 

TST 

TST 

CMPB 

BNE 

CMP 

BED 

BHI 

MOV 

BIC 

ADD 

CMP 

BHI 

BR 

TST 

BIT 

BED 

CLR 

BISB 

CLR 

BISB 

ADD 

ASL 

ASL 

ADD 


INDICATE  NO  UNLOAD  BLOCK  FOUND  YET 


;  GET  NETLDR  DATA  BLOCK  BIAS 


USA 

M$$MGE 
aiNTLPT.RO 


.IF  DF   R$$11M 

100$  ;;  ENTER  KERNEL  MODE 

.ENDC   ;  DF  R$$11M 


$MAPX 

.CXUNL(R2),(R1) 
;  DF  M$$HGE 
aNTLPT,R2 
.CXUNL(R2),R2 
;  DF  M$$MGE 

100$ 

(R2)  + 

(R2)  + 

-2(R2),R4 

30$ 

(R2)+,R3 

80$ 

40$ 

(R2),-(SP) 

#3,(SP) 

-2(R2),(SP) 

(SP)t,R3 

80$ 

40$ 

(R2)  + 

*1,(fi2)t 

50i 

-(SP) 

(R2)+,(SP) 

-(SP) 

(R2)t,(SP) 

(SP)+,(SP) 

(SP) 

(SP) 

(SP)+,R2 


;  MAP  TO  THE  DATA  BLOCK 

;  AND  TO  THE  FIRST  UNLOAD  BLOCK 

GET  NETLDR  DATA  BLOCK  ADDRESS 
AND  FIRST  UNLOAD  BLOCK  ADDRESS 


IF  ZERO,  NO  UNLOAD  BLOCKS 

SKIP  POINTER  TO  NEXT  UNLOAD  BLOCK 

POINT  PAST  THE  PDV  INDEX 

IS  THIS  THE  RIGHT  PDV  ? 

IF  NE,  NO 

IS  THIS  OUR  LINE  TABLE? 

IF  EQ,  YES 

IF  HI,  NO 

EXTRACT  SIZE  FIELD 

ADD  TABLE  ENTRY 

IS  THIS  OUR  LINE  TABLE? 

IF  HI,  YES 

ELSE,  SKIP  ANY  SUB-ALLOCATIONS 

SKIP  THE  LINE  TABLE  ADDRESS 

ANY  SUB-ALLCCATIONS  FOR  THIS  ENTRY? 

IF  EO,  NO 

GET  NUMBER  OF  ALLOCATIONS 

AND  NUMBER  OF  LIBRARIES 

ADD  THEM  TOGETHER 
MULTIPLY  BY  4 

GIVING'nEXT  table  ENTRY 


NTLUNL  -  NTL  UNLOAD  ROUTINES    MACRO  V05.03b  Saturaay  29-Jun-85  00:34  Page  27-1 


NTLUNL  -  NTL  UNLOAD  ROUTINES 
Symbol  table 


K  4 

MACRO  V05.03b  Saturday  29-Jun-85  00:34  Page  32-4 


N$SLA 

NtSNOD 

NSTCTL 

NSTIM 

N$TLC 

N$TNC 

NSTRC 

NSTTCB 

N$VCB 

N$VER 

NSXLEN 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

NS$MLL= 

N$$MOV= 

N$$NCT= 

NS$PEM= 

OBJHD  = 

0F.PRO= 

OF.RLU= 

OF.SMC= 

0P$1NI= 

OP$TER= 

O.FLG 

O.LEN 

O.LNK 

O.MXC 

O.NAM 

O.TYP 

PDVID  = 

PDVNM  ' 

PDVTA  = 

PH$HDE= 

PH$LOC= 

PH$MTS= 

PH$UMP= 

PH$WCS= 

PR7   = 

PS 

P$$P45= 

P$$WRD= 

P.REL  = 

Q$$OPT= 

RDBLH  = 

RE$ADC= 

RE$ADF= 

RESADR= 

RE$BLK= 

RE$CAF= 

RE$DAT= 

RE$DRP= 

RE$LDT= 

RE$LSN= 

RE$NMl= 

RE$OPE= 


000016 
000012 
000112 
000004 
000100 
000114 
000106 
000110 
000010 
000066 
000124 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
****** 

000040 

000100 

000200 

000000 

000001 

000003 

000012 

000000 

000004 

000006 

000002 

******  GX 

»***»♦  GX 


GX 


****** 
000004 
000002 
000003 
000000 
000001 

****** 
****** 

000000 
000000 

****** 

000010 

****** 

000004 
000017 
00000? 
000010 
000014 
000001 
000016 
000013 
000012 
000001 
000004 


GX 


GX 
GX 


GX 
GX 


RE$OPR= 

RE$RCV= 

RE$SED= 

RE$SKW= 

RE$STA= 

RE$SUM= 

RE$SYN= 

RE$TME= 

RE$TMO= 

RE$TMR= 

RE$UPT= 

RE$URE= 

RE$VER= 

RE$VRQ= 

RF.LOO= 

RT$IN1= 

RT$OFF= 

RT$ON  = 

R$RO  = 

R$R1   = 

R$R2  = 

R$R3  = 

R$R4  = 

R$R5  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11H= 

R.ADD 

R.FLAG 

R.LEN 

R.LNK 

R.NAM 

SCAN  = 

SC$OFF= 

SC$ON  = 

SC$RST= 

SC$SHU= 

SDBLH  = 

SF.ACT= 

SF.CIR= 

SF.DEV= 

SF.DIA= 

SF.DPA= 

SF.DPC= 

SF.DUM= 

SF.ENA= 

SF.HAD= 

SF.HST= 

SF.LOA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.PH3= 

SF.PSS= 

SF.REA= 

SF.SEC= 


000000 

000001 

000011 

000006 

000002 

000003 

000000 

000021 

000000 

000020 

000002 

000003 

000005 

000015 

100000 

000002 

000001 

000000 

000002 

000004 

000006 

000010 

000012 

000014 

000000 

000001 

000000 

000000 

000010 

000012 

000014 

000000 

000C02 

******  GX 

000001 

000000 

000003 

000002 

******  GX 

000200 

000010 

000020 

004000 

000100 

000200 

010000 

000100 

000004 

000002 

002000 

000004 

000040 

000020 

020000 

00004U 

000010 

000400 


SF.SER= 

000001 

SF.SVC= 

000002 

SF.TER= 

001000 

SF.UNL= 

000040 

SLTMA  = 

******  GX 

SLTNM  = 

******  GX 

SV$DUM= 

000001 

SV$L0A= 

000000 

S$$WRG= 

000000 

S$$YSZ= 

007600 

S.ADD 

000004 

S.CIR 

000016 

S.COST 

000001 

S.DEV 

000020 

S.DIA 

000046 

S.DPA 

000032 

S.DPC 

000036 

S.DUM 

000050 

S.FLAG 

000002 

S.FLG 

000000 

S.HAD 

000010 

S.HST 

000006 

S.LEN 

000004 

S.LENG 

000052 

S.LNK 

000000 

S.LOA 

000044 

S.NMST 

000002 

S.OWNR 

000003 

S.PSS 

000022 

S.SEC 

000040 

S.TER 

000042 

TS.BLK= 

171700 

TS.CKP= 

000200 

TS.CKR= 

000100 

TS.EXE= 

100000 

TS.HLD= 

002000 

TS.MSG= 

020000 

TS.NRP= 

010000 

TS.OUT= 

000400 

TS.RDN= 

040000 

TS.RUN= 

004000 

TS.STP= 

001000 

TSFLAG 

000044 

TSLIF 

000013 

T$LIFL 

000013 

TSLIFO 

000013 

TSLIFS 

000013 

TSLIN 

000000 

TSLIPS 

000006 

T$LLD 

000012 

TSLLDC 

00004  5 

TSLLDL 

000012 

TSLLDO 

000012 

TSLLDS 

000012 

TSLLEN 

000046 

TSLOPR 

000002 

TSLTCL 

000024 

TSLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

TSNFE 

TSNLEN 

TSNNUL 

TSNOPL 

TSNRNI 

T$NRPL 

TSNRUL 

T$NVR 

TSRPRI 

T$SVC 

T$r5 

T$T6 

T$$KMG= 

T$$MIN= 

r.ACTL 

T.ASTL 

T.ATT 

T.CPCB 

T.DPRI 

T.EFLG 

T.IOC 

T.L8N 

T.LDV 

T.LNK 

T.MXSZ 

r.NAM 

T.OFF 

T.PC8 

T.PRI 

T.RCVL 

T.RRFL 

T.SAST 

T.SRCT 


STAT 
ST2 


T.ST3 


TCBL 
T.TIO 
T.TKSZ 
r.UCB 
TISCL 
TIOOC 
T100Q  = 
T2.AB0= 
T2.AST= 
T2.CAF= 
T2.CHI'  = 
T2.CKD= 
T2.DST= 
T2.FXD= 
T2.HLT= 
T2.REX= 
T2.SEF= 


000026 
000014 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000000 
000000 
000052 
000016 
000062 
000004 
000040 
000022 
000003 
000041 
000044 
000000 
000050 
000006 
000066 
000046 
000002 
000012 
000072 
000054 
000071 
000032 
000034 
000036 
000030 
000057 
000060 
000026 

=  ****** 


000100 
100000 
000400 
020000 
010000 
040000 
002000 
000200 
001000 
004000 


GX 
GX 
GX 


T2.SPN= 

T2.STP= 

T2.WFR= 

T3.ACP= 

T3.CAL= 

T3.CLI= 

T3.GFL= 

T3.MCR= 

T3.NET= 

T3.NSD= 

T3.PMD= 

T3.PRV= 

T3.REM= 

T3.R0V= 

T3.RST= 

T3.SLV= 

T3.SWS= 

USA 

UBIAS 

UPTR 

URHTMP 

VECT 

V$$CTR= 

XALITB 

XDCB 

XFILTB 

XFLTTB 

XF.CAN= 

XF.DDM= 

XF.DLC= 

XF.LLC= 

XKRB  = 

XLIN 

XLT 

XLT16 

XOBJTB 

XPRO 

XREMTB 

XSERTB 

X$$DBT= 

X.FLAG 

X.ID 

X.LINK 

X.RTMR 

X.TMR 

ZDDS 

ZF.IN1= 

ZF.LLC= 

ZF.MFL= 

ZF.PSE= 

Z.AVL  = 

Z.DAT  = 

Z.DSP  = 

Z.FLG  = 

Z.NAM 

Z.PCB  = 

SeiAS  = 


000004 

000020 

000001 

100000 

000100 

001000 

000010 

004000 

000020 

000200 

040000 

010000 

020000 

000040 

000400 

002000 

000002 

00001 2R 

00001  OR 

000114R 

000004R 

001412RG 

001000 

003142R 

003046R 

004522R 

003272R 

000200 

000001 

000002 

000004 

****** 

001106R 
003564R 
003560R 
003124R 
000022R 
003242R 
004476R 
000000 
000003 
000002 
000000 
000006 
000004 
002010R 
******  GX 
******  GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 


****** 
****** 
****** 


r  ****** 


002 
002 
002 
002 
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DHBDFS 
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ECDDBS 

EVLDFS 

FLTDFS 

FNBDFS 
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MRICTSS 

MTPS 

NKRDFS 

OBJDFS 

RESMAP 

RESRG 
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RNBDFS 
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9-328 


9-333 
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PRIO 
PR.P 


1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
A1 
1,2 
^3 
A^. 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  PRiO  -  READ  PROCESS  INTO  CORE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTUARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  COMMON  "SET  CEX"  AND  "SET  PROCESS"  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI, 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V5.0 
DECnet-Micro/RSX  VI. 0 
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PR. PAR  -  HND  PARTITION 
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PRO 
Tab 


5   001320  0007A6 
571 

572  001322  012767 

573  001350  000742 
574 


000034  000010'  151$: 


BR 

50$ 

.IF  DF 

M$$MGE 

MOV 

*ERR28, ERROR 

BR 

50$ 

.ENDC 

ILLEGAL  COMM  EXEC  PARTITION 


L  9 

PRIO  -  READ  PROCESS  INTO  CORE   MACRO  V05.03b  Saturday  29-Jun-85  C0:36  Page  11 


PRt 


K  10 

PROAL  -  PROCESS  ALLOCATION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85  00:37 
Table  ot  contents 

5-  55    LOCAL  DATA 

6-  71    $AL0C2  -  ALLOCATE  POOL  SPACE 

7-  1?7    $DEAC2  -  DEALLOCATE  FROM  END  OF  PARTITION 


PRC 
LOC 
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PRi 
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LOCAL  DATA 


PRO) 
MACF 


61 
62 
63 
M 

65 

66  000000 

67 

68 

69 

70 

71 

72 

73 

74 

75  000000 

76  000036 

77  000074 

78  000122 

79  000150 

80  000234 

81  000256 

82  000322 

83  000360 
8A  000410 
85  000462 
86 

87  000524 

88  000560 

89  000616 
90 

91  000662 

92  000710 

93  000746 

94  000770 

95  001014 
96 

97  001032 

98  001064 

99  001130 
100 

101  001160 

102  001216 

103  001260 

104  001332 

105  001402 

106  001446 

107  001506 

108  001544 
109 

110 
111 
112 
113 
114 
115 
116 
117 


.SBTTL  LOCAL  DATA 

*  *** 

;  LOCAL  DATA 
■  *** 

.PSECT  DATA.D 

.NLIST  BEX 

;•  "NTLCEX'V'NTLPRO"  ERROR  MESSAGES 


.ENABL  LC 


NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

.IF  DF 

NTLERS 

NTLERS 

NTLERS 

.ENDC 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

.IF  DF 

NTLERS 

NTLERS 

NTLERS 

.ENDC 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

.IF  OF 

NTLERS 

NTLERS 

NTLERS 

NTLERS 

.ENDC 

.IF  DF 

NTLERS 

NTLERS 


4,PERR,SPRV.N,$FN0UT,<0pen  Failure  (-♦•*.)> 
4,PERR,SPRV.N,$FN0UT,<Read  Failure  (-*♦*.)> 
4,PERR,SREP.P,SFN0UT,<Read  Ouerflow> 
4,PERR,$REP.P,SFN0UT,<Format  Error> 

,PERR,RTSPC,,<Comm  Exec  Incompatible  With  RSX-11M  System> 
4A,PERR.REP4A,,<Undefined> 
5,PERK,$REP.P,,<Incompatible  With  Comm  ExeO 
5,PERR,$PRV.N,lFN0UT,<0pen  Failure  (-♦♦*.)> 
5,PERR,SREP.P,$FN0UT,<Not  Contiguous> 
5,PERR,SPRV.N,SFN0UT,<Label  Block  Read  Failure  (-«*♦.)> 
5,PERR,SREP.P,SFN0UT,<Not  a  Valid  Binary  Image> 

5,PERR,$REP.P,SFN0UT,<Not  Built  For  APR5> 
5,PERR,SREP.P,$FN0UT,<Size  Exceeds  4K  Words> 
5,PERR,SREP.P,$FN0UT,<Extension  Exceeds  4K  Words> 


<:>,44, 
<:>,45, 
<:>,46, 
<:>,47, 
<:>,48, 
<:>,49, 
<:>,50, 
<:>,51, 
<:>,53, 
<:>,54 
<:>,55 
MSSMGE 
<:>,56, 
<:>,57 
<:>,58 

<:>,59,5A,PERR,REP5A,,<Not  In  System> 

<:>,60,5A,PERR,REP5A,,<8ase  Address  Mismatch> 

<:>,61,5A,PERR,REP5A,,<Too  Small> 

<:>,62,5A,PERR,REP5A,,<Not  Common> 

<:>,63,5A,PERR,REP5A,,<Busy> 

MSSMGE 

<:>,64,5A,PERR,REP5A,,<Not  In  Exec  Space> 

<:>,65,5A,PERR,REP5A,,<Sub-PCB  Allocation  Failure> 

<:>,66,5A,PERR,REP5A,,<Too  F ragmen ted> 

<:>,67,5,PERR,SPRV.N,SFN0L'T,<Read  Failure  (-***.)> 
<:>,68,,PERR,RTSPC,,<CETAB  Allocation  Failure> 
<:>,69,,PERR,RTSPC,,<Minhop/mincost  allocation  failure> 
<:>,70,,PERR,RTSPC,,<Node  counter  allocation  failure> 
<:>,ZA,,PERR,RTSPC,,<Incompatible  With  Comm  ExeO 
<:>,XQ,,PERR,RTSPC,,<CCB  Allocation  Failure> 
<:>,QX,,PERR,RTSPC,,<Timer  cells  not  found> 
<:>,Qy,,PERR,RTSPC,,<System  not  built  with  network  support> 
RSSIIDIISSAS 

<:>,QU,0,PERR,RTSPC, ,<Failed  to  find  Comm/Exec  Region> 
<:>,QV,5C,PERR,REP5A,,<Creation  Failed> 
<:>,QU,5C,PERR,REP5B,,<Mapping  Failed> 
<:>,QZ,,PERR,RTSPC,,<Unable  to  run  task  —  C0MDRV> 

RSSMPL 

<:>,9A, ,PERR,RTSPC, ,<Reconf iguration  deuice  not  in  system> 

<:>,9Z,9,PERR,RTSPC,,<Failed  to  re-initialize  HRC> 


L  n 
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PRO 


K  12 
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MACRO  DEFIMITIONS 


Page  5 


43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 


.SSTTL  MACRO  DEFINITIONS 


71 
12 
73 

74 
75 


000000 


000000 


.MCALL 
.MCALL 

.MACRO 

MOV 

.ENDM 

.MACRO 

MOV 

.ENDM 

.MACRO 
BIC 
BIS 
.ENDM 

.MACRO 

MOV 

.ENDM 


ADJDFS 
CTRDFS 
ECDD8$ 
XPDD8$ 
DH8DF$ 
CACDFS 


.PSECr 


XPDD8$, CTRDFS, 81  AS, ECODB$,DHBDF$,SAVRG, RE SRG, CACDFS, ADJDFS 
EMSGS,ASRS 


SAVMAP 
aKSARS, 


■(SP) 


RESMAP 
{SP)+,aKSAR5 


BIAS5  REG 
#160000, REG 
#120000, REG 


MAP  BIAS 
BIAS,aKSAR5 


DEFINE  ADJACENCY  DATA  BASE  SYMBOLS 

DEFINE  COUNTER  BLOCK  SYMBOLS 

DEFINE  ECL  DATA  BASE  SYMBOLS 

DEFINE  XPT  DATA  BASE  SYMBOLS 

DEFINE  DECNET  HOME  BLOCK  SYMBOLS 

DEFINE  CACHE  SYMBOLS 
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K  13 


'f  !LE«MD**SYMBL 


IMPA 


ssssssss 

VY 

YY 

MM 

MM 

BBBBBBBB 

5SSSSSSS 

YY 

YY 

MM 

MM 

B8BB8B8B 

ss 

YY 

YY 

MMM^ 

MMMM 

BB      BB 

ss 

YY 

YY 

MMMf 

MMMM 

BB     BB 

ss 

YY   YY 

MM 

m     MM 

BB      BB 

ss 

YY   YY 

MM 

*IM  MM 

BB     B8 

ssssss 

YY 

MM 

MM 

BBBBBBBB 

ssssss 

YY 

MM 

MM 

BBBBBBBB 

ss 

YY 

MM 

MM 

BB     B6 

ss 

YY 

MM 

MM 

BB     BB 

ss 

YY 

MM 

MM 

BB     BB 

ss 

YY 

MM 

MM 

BB     88 

ssssssss 

YY 

MM 

MM 

BBBBBBBB 

LLLLLLLLLL 

ssssssss 

YY 

MM 

MM 

BBBBBBBB 

LLLLLLLLLL 

ssssssss 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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IMP 


000000 


56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67  000000 

68 

69 

70 

71 

72 

73 

74  000000 

75  0000A2 

76  000106 

77  000H6 

78  000212 

79  000260 

80  0003U 

81  000370 
82 

83 

84 

85 

86 

87 

88 

89 

90  000422 

91 

92 

93 

94 

95  000000 


■  *** 

I  LlBRARy  MACROS 

.MCALL  EMSG$,EMSG$R,NTLER$,SLTDF$ 


SLTDfS 


DEFINE  SLT  OFFSETS  AMD  SYMBOLS 


LOCAL  DATA 


.PSECT  DATA.D 

ERROR  MESSAGES 

.ENA8L  LC 


NTLERS  ,2,2,$TERR,$REP.C,$ELINE,<Only  One  Operand  AlLowed> 

NTLERS  ,14,2,$TERR,$REP.C,$ELJNE,<Lenqth  Verification  FaUure> 

NTLERS  ,15,2,$TERR,$REP.C,$ELINE,<0ffset  Value  Too  Large> 

NTLERS  ,18,2,STWARN,SREP.C,SELlNE,<Expression  VaLue  Truncation> 

NTLERS  ,19,2,STWARN,SREP.C,SELINE,<Modificaticn  Value  Truncation) 

NTLERS  ,20,2,STERR,SREP.C,$ELINE,<File  Name  Too  Long>  .  ^ 

NTLERS  ,52,2,STERR,$REP.C,SELINE,<File  Name  May  Not  Contain  a  Period> 

NTLERS  ,80,2,STERR,SREP.C,SELINE,<DDM/DLC  Operator) 

.DSABL  LC 


ERROR  MESSAGE  FORMAT  STRING 


052 


040 


124  FMT2: 


.ENA8L 

LC 

.NLIST 

BEX 

.ASCIZ 

"*  Template  - 

.EVEN 

.DSABL 

LC 

.LIST 

BEX 

.PSECT 


TMPACT 


L  U 
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TMF 
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IMPACT   -   TEMPLATE   PROCESSING  AC   MACRO  V05.05b   Saturday   29-Jun-85  00:38     Page   18 


366 

+ 

367 

SADDRB  -  ".ADDR8"  ACTION 

ROUTINE 

368 

$SLN8 

-  ".SLN8  ACTION  ROUTINE 

369 

SSTNB 

-  ".STN8"  ACTION  ROUTINE 

370 

SUNB 

-  ".UNS" 

ACTION  ROUTINE 

571 

372 

INPUTS: 

373 

NONE 

374 

375 

OUTPUTS: 

376 
377 
378 

R1,R2=DESTR0YED 

379 
380 
381  00060A 

.ENABL 

LS8 

EADDRB: 

382  000604 

012701 

OOOOOOG 

'mov 

#.ADDRB,R1 

SET  r'JMCTION  CODE 

383  000610 

000410 

BR 

10$ 

384 

385  000612 

<;3TN8:: 

386  000612 

012701 

OOOOOOG 

MOV 

#.SrNB,R1 

SET  FUNITION  CODE 

387  000616 

000405 

BR 

10$ 

388  000620 

S5LNB:: 

389  000620 

012701 

OOOOOOG 

MOV 

*.SLNB,R1 

SET  FUNCTION  CODE 

390  000624 

000402 

BR 

10$ 

391  000626 

SUNB : : 

392  000626 

012701 

OOOOOOG 

MOV 

#.UN8,R1 

SET  FUNCTION  CODE 

393  000632 

10$: 

CALL 

$VXLLC 

MAKE  SURE  IT'S  NOT  AN  LLC 

394  000636 

15$: 

CALL 

$RQ1 

REQUEST  BINARY  FILE 

395  000642 

103403 

BCS 

20$ 

IF  CS,  NO  ACCESS 

396  000644 

110112 

M0V8 

R1,(R2) 

STORE  FUNCTION  CODE 

397  000646 

005267 

OOOOOOG 

INC 

$SIZE 

ADJUST  DATA  BASE  SIZE 

398  000652 

20$: 

RETURN 

399 

400 

.DSABL 

LS8 
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IMPACT  CREATED  BY     MACRO     ON  29-JUN-85   AT   00:38 

SYMBOL    CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

L.NMSr 

000020 

#5-61 

L.NSTA 

OOOOU 

#5-61 

L.OWNR 

000021 

#5-61 

L.UNI 

000013 

#5-61 

MAXOV 

=   .....*      GX 

22-536 

SF.ACT 

=  000200 

#5-61 

SF.ENA 

=  000100 

#5-61 

SF.LPB 

=  000004 

#5-61 

SF.MFL 

=  000040 

#5-61 

SF.PAC 

=  000020 

#5-61 

SF.REA 

=  000010 

#5-61 

SF.SER 

=  000001 

#5-61 

SF.SVC 

=  000002 

#5-61 

SF.UNL 

=  000040 

#5-61 

S$$BAS 

r     ****** 

5-74 

5-74 

5-78 

5-79 

S.COST 

000001 

#5-61 

S.FLG 

000000 

#5-61 

S.LEN 

000004 

#5-61 

S.NMST 

000002 

#5-61 

S.OWNR 

000003 

#5-61 

SADDRB 

000604   RG 

#18-381 

SADDRW 

000654  RG 

#19-418 

$APR 

000734   RG 

#20-453 

SBLKB 

000000  RG 

#6-110 

$BL<W 

000014   RG 

#6-115 

SBYTE 

000102  RG 

#7-150 

8-172 

$CNB 

000126  RG 

#8-168 

$CNW 

000150  RG 

#8-174 

$CSR 

000176  RG 

#9-191 

$CTM 

000662  RG 

#19-422 

SDIFF 

=   **»**»      GX 

9-196 

*24-593 

SDPRB 

000742   RG 

#20-456 

SDPRW 

U00770   RG 

#20-479 

SDVCHA 

000230  RG 

#10-209 

SELINE 

=   *»»««*      GX 

5-74 

5-75 

SENDI 

000304   RG 

#12-244 

$END2 

000340   RG 

#13-263 

SERRU 

000042  R 

#5-75 

1?-251 

SERR15 

000106  R 

#5-76 

13-278 

tERRIS 

000146  R 

#5-77 

23-576 

$ERR19 

000212  R 

#5-78 

24-603 

$ERR2 

000000  R 

#5-74 

13-277 

$ERR20 

000260  R 

#5-79 

26-649 

$ERR52 

000314  R 

#5-80 

26-650 

$ERR80 

000370  R 

#5-81 

27-664 

SFILEN 

-    ».«».«      GX 

26-634 

SFLAGS 

^    .....*      GX 

13-266 

27-662 

SFLAGI 

=    *»*»».      GX 

12-245 

13-268 

$FLAG2 

-   »••»**      GX 

23-564 

23-568 

SFNAME 

001350  RG 

#26-632 

$lfld 

r     ...»».        GX 

♦14-295 

K  16 
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5-75 
5-79 


5-75 
5-80 


5-76 
5-80 


5-76 
5-81 


5-77 

5-81 


5-77 


5-78 


24-596  '24-600         ♦25-617 


5-76 


5-77 


5-78 


5-79 


5-80 


5-81 


23-572  '23-577  24-598 


♦24-604 


•26-643 


IMPACT 
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MTLuNL  -  NTL  UNLOAD  ROUTINES 

scPRo  -  Clear  process 


502 

503 

5GA 

505 

506 

507 

508 

509 

510 

5-!i 

51i? 

5^3 

5K 

515 

516  000766 

5^7  000772 

518  000776 

■19  001004 

520  001006 

521  001010 

522  001012 

523  0010K 

524  001020 

525  001022 

526  001026 

527  001030 

528  001032 

529  001034 

530  001036 

531  001040 

532  001044 

533  00'050 

534  001052 

535  001056 

536  001060 
001062 
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.sbttl  ooclk  -  dequeue  'lock  block 
'dqclk  -  dequeue  ioomsec  clock  block 
this  routine  will  dequeue  a  ioomsec  clock  block  for  this  zf.inl  process 

INPUTS: 

R4  -  PDV  ADDRESS 

OUTPUTS: 

DEQUEUE  IOOMSEC  CLOCK  BLOCK  IF  ONE  EXISTS 


NTLUr 
$CCE 


5  3' 
538 

539  001064 

540  00^070 
54-!  001072 
'^.  - 

i^<   001074 

544 

545  001100 

546 


016700  OOOOOOG 


011003 
001432 
010005 
010300 
017701 
005002 
156302 
060201 
020411 
001364 
011315 
001016 
016701 
062701 
010511 
G16701 
010102 
011101 
001404 


026701 
001372 
011112 


OOOOOOG 
000002 


OOOOOOG 
000002 

OOOOOOG 


OOOOOOG 


DQCLK: 

SWSTKS 

30$ 

MOV 

TIOOO.RO 

MTPS 

#PR7 

10$: 

MOV 

(R0),R3 

BEQ 

20$ 

MOV 

R0,R5 

MOV 

R3,R0 

MOV 

aPDVTA.RI 

CLR 

R2 

B1S8 

X.ID(R3),R2 

ADD 

R2,R1 

CMP 

R4,(R1) 

BNE 

lOi 

MOV 

(R3),(R5) 

BNE 

20$ 

MOV 

TIOOQ.RI 

ADD 

*2,R1 

MOV 

R5,(R1) 

MOV 

CLKHD.RI 

15$: 

MOV 

R1,R2 
(r1),R1 

MOV 

BEQ 

20$ 

CMP 

TIOOCRI 

BNE 

15$ 

MOV 

(R1),(R2) 

20$: 

MTPS 

#0 

30$: 

RETURN 

ENTER  SYSTEM  STATE 

GET  SHORT  TIMER  LISTHEAD 

DISABLE  INTERRUPTS 

GET  FIRST  BLOCK 

IF  END  -  BRANCH 

COPY  PREVIOUS  SLOCK  ADDRESS 

COPY  NEXT  "' OCK  ADDRESS 

GET  $PDVT   .ONTENTS 

INIT  REG 

GET  PDV  INDEX 

GET  PDV  ADDRESS 

IS  IT  PROCESS  BEING  UNLOADED 

IF  NO  -  BRANCH 

UNLINK  CLOCK  BLOCK 

IF  NOT  LAST  BLOCK  -  BRANCH 

GET  HEAD  OF  LIST 

GET  ADDRESS  OF  $T100Q+2 

UPDATE  NEW  LAST  BLOCK  IN  LIST 

GET  START  OF  CLOCK  QUEUE 

COPY  PREVIOUS  BLOCK  ADDRESS 

GET  NEXT  BLOCK 

IF  END  OF  LFT  -  BRANCH 

IS  IT  OUR  TIMER  BLOCK  ? 
IF  NO  GET  NEXT  BLOCK 
UNLINK  OUR  TIMER  BLOCK 

ENABLE  INTERRUPTS 


llui  P.An  Dm  IT  tMF^ 


Marun    i/n";   flXh   "laturriav   29- 


n    1 

lijn-85   00:34 
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NTLUNL  -  NIL  UNLOAD  ROUTINES 
SCCEX  -  CLEAR  CEX 


MACRO  V05.03b  Saturday  29-Jun-85  GO 


1. 


1110  002302 

005764 

OOOOOOG 

1111   002306 

1112 

1113  002310 

001426 

032764 

OOOOOOG  OOOOOOG 

11U  002316 

001416 

1115  002320 

012767 

003030     OOOOOOG 

1116  002326 

010401 

1117  002330 

016467 

OOOOOOG  OOOOOOG 

1118  002336 

1119 

1120  0023A2 

1121   C023A6 

005C64 

OOOOOOG 

1122  002352 

000241 

1123  002354 

1124  002360 

1125  00236A 

005316 

1126  002366 

001343 

1127  002370 

017700 

OOOOOOG 

1128  002374 

001407 

1129  002376 

011077 

OOOOOOG 

1130  002402 

017701 

OOOOOOG 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139  002406 

1140  002412 

000766 

1141   002414 

016701 

OOOOOOG 

1142  002420 

005021 

1143  002422 

005011 

1144  002424 

016701 

OOOOOOG 

1145  002430 

005021 

1146  002432 

005011 

1147  002434 

005726 

1148 

1149 

1150 

1151 

1152 

1153  002436 

1154  002442 

1155  002446 

1156  002452 

1157  002456 

1158  002462 

1159 
1160 
1161   002466 

005727 

OOOOOOG 

1162  002472 

001402 

1163  002474 

1164  002500 

005727 

OOOOOOG 

1165  002504 

001402 

1166  002506 

TST 

Z.PCB(R4) 

BED 

50$ 

BIT 

#ZF.INI,Z.FLG(R4) 

BED 

51S                          A 

MOV 

#FS.TRM!FC.PCT,$$ 

MOV 

R4,R1 

MOV 

Z.PCB(R4),$PCB     ; 

CALL 

DQCLK 

CALL 

$DSINI 

CLR 

Z.PCB(R4) 

CLC 

51$: 

CALL 

XDCB 

CALL 

XPRO                          ; 

50$: 

DEC 

(SP)                         ; 

BNE 

40$ 

52$: 

MOV 

aCC8LH,R0 

BEQ 

54$ 

MOV 

(RO),aCCBLH 

MOV 

aCCBSZ.Rl 

.IF    DF 

R$$MPL 

TSTB 

aNCPu 

BEQ 

53$ 

TST 

-CfiO) 

ADD 

#2,R1 

53$: 

.ENDC 

CALL 

$DEA16 

BR 

52$ 

54$: 

MOV 

RDSLH,R1 

CLR 

(R1)  + 

CLR 

(R1) 

MOV 

SD8LH,R1 

CLR 

(R1)t 

CLR 

(R1) 

TST 

(SP)  + 

Page  19-1 

IS  PROCESS  CORE-RESIDENT? 
IF  EQ,  NO 

;  DOES  PROCESS  NEED  TERMINATION  CALL  ? 
IF  NO  -  BRANCH 
'DIN  ;  STORE  FUNCTION  CODE 
copy  PDV  ADDRESS 
SAVE  PCB  A  ADDRESS 
STOP  100MSEC  TIMER 

DISPATCH  TO  PROCESS 

STOP  ONE  SEC  TIMER 

CLEAR  C-BIT 

POSSIBLE  UNLOAD  OF  RSX11M  DEVICE  DRIVER 

RELEASE  PROCESS  FROM  MEMORY 

LOOP  <$PDVNM>  TIMES 

GET  FREE'cCB  ADDRESS 
IF  ZERO,  NO  MORE  CCB'S 
SET  NEW  FIRST  IN  LIST 
GET  CCB  SIZE 


MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

DE-ALLJCATE  2  EXTRA  BYTES  (NEGATIVE  OFFSET) 

ADD  2  TO  NUMBER  OF  BYTES  TO  DE-ALLOCATE 


NTLU 
FLT1 


DE-ALLOCATE  A  CCB 
KEEP  LOOPING 
GET  $RDBLH  ADDRESS 
CLEAR  OUT  LISTHEADS 

FOR  BUFFER  ALLOCATIONS 
GET  $SDBLH  ADDRESS 
INIT  LISTHEADS 

PURGE 'stack 


CLEAN-UP  THE  POOL  TABLES  (NOT  TO  BE  CONFUSED  WITH  BAR  BILLIARDS  TABLES) 


DE-ALLOCATE  ALL  OBJECTS 

DE-ALLOCATE  ALL  ALIASES 

DE-ALLOCATE  ALL  REMOTES 

DE-ALLOCATE  ALL  FILTER  CONTROL  BLOCKS 

DE-ALLOCATE  SERVICE  BLOCK 

DE-ALLOCATE  FILENAME  BLOCK 


PSI  SUPPORTED? 

NO 

DEALLOCATE  PSI  DATABASES 

SNA  SUPPORTED? 

NO 

DEALLOCATE  SNA  DATABASES 


55$: 


CALL 

XOBJTB 

CALL 

XALITB 

CAii. 

XREMTB 

CAl. 

XFLTTB 

CALL 

XSERT8 

CALL 

XFILTB 

TST 

#$XPSI 

BEQ 

55$ 

CALL 

$XPSI 

TST 

#$XSNA 

BEQ 

56$ 

CALL 

$XSNA 

wTi    MWi  nin  RnuTtNFS 


MAfRn  V05.03b   Saturdav   29-Jun-85   00 


:i 
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NTLUNL    -  NIL   UNLOAD  ROUTINES         MACRO 

V05.03b 

Saturcay 

L     3 

29-Jun-85  00:34 

FLT16   -   FIND   A 

16  BIT    ALLOCATION  LINE 

TABLE 

1613  003470 

032702 

000077 

50$: 

BIT 

#77, R2 

16U  005474 

001403 

BED 

60$ 

1615  003476 

005712 

rsT 

(R2) 

1616  003500 

001340 

BNE 

?2I 

1617  003502 

000402 

BR 

70$ 

1618  003504 

162702 

000100 

60$: 

SUB 

#100, R2 

1619  003510 

042702 

000077 

70$: 

BIC 

#77, R2 

1620 

1621 

.IF   DF 

M$$MGE 

1622  003514 

011211 

MOV 

(R2)    'RD 

1623 

.IFF 

1624 

MOV 

(R2),R2 

1625 

.ENDC 

1626 

1627  003516 

001330 

BNE 

10$ 

1628  003520 

000416 

BR 

100$ 

1629  003522 

024242 

80$: 

CMP 

-(R2),-(R2) 

1630  003524 

010267 

000012' 

MOV 

R2,UBA 

1631 

1632 

.IF   DF 

M$$MGE 

1633  003530 

011167 

000010' 

MOV 

(RD.UBIAS 

1634 

.IFTF 

1635  003534 

042702 

000077 

BIC 

#77, R2 

1636 

.IFF 

1637 
1638 

MOV 
.ENDC 

R2,UBIAS 

1639 
1640 
1641 
16^,2 
1643 
1644 
1645 
1646 
1647 
1648 
1649 


003540 
003544 
003550 
003552 

003556 


003556 


012700 
012701 
012220 


000014' 
000040 


90$: 
100$: 


MOV 
MOV 
MOV 
SOB 


#8LOCK,R0 
#32.,R1 
(R2)+,(R0)t 
R1,90$ 


.IF  DF  R$$11D  I 
CALL    a(SP)+ 
.ENDC 

RETURN 


I$$AS 


Page  27-1 


IS  IT  PHYSICAL  END  OF  BLOCK? 

IF  EQ,  YES 

IS  IT  LOGICAL  END  OF  BLOCK? 

IF  NE,  NO  -  CHECK  NEXT  ENTRY 

RESET  R2  TO  START  OF  BLOCK 


;  MAP  TO  THE  NEXT  UNLOAD  BLOCK 
GET  NEXT  UNLOAD  BLOCK  ADDRESS 

IF  NE,  THERE  IS  ANOTHER  ONE 

RESET  R2  TO  FIRST  WORD  OF  ENTRY 
SAVE  UNLOAD  ENTRY  ADDRESS 

:  AND  BIAS 

:  RESET  R2  TO  START  OF  BLOCK 
SAVE  START  OF  BLOCK  ADDRESS 

MAKE  A  LOCAL  COPY  OF  THE  UNLOAD  BLOCK 


;;  RESTORE  PREVIOUS  MAPPING 

;;  BACK  TO  USER  MODE  AND  THEN  TO  CALLER 


NTLU 
Symb 

$CCE 
$CEA 
$CLI 
$CPR 
$DDM 
$DEA 
$DEA 
$DEA 
$DEC 

AB 

DATA 
Erro 


Work 
Work 
Size 
Size 
Oper 

Elap 
SY:N 


iiKii  nm  oniiT  imf<; 
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NTLUNL  -  NTL  UNLOAD  ROUTINES 
Symbol  table 


L  4 
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SCCEX 

002154RG 

$DLCPV=  •*♦*♦*  GX 

$PRAVL= 

******  GX 

$CEACX= 

♦♦»*«•  GX 

SDSINI  000336RG 

$SAVRG= 

******  GX 

SCLIN 

001102RG 

$FLAG5=  ***»»*  GX 

SSLTA  = 

******  GX 

SCPRO 

000674RG 

$1CBLN=  ******  GX 

$XDEAC= 

******  GX 

$DDMPV= 

»♦•♦*»  GX 

$MAPX  =  *♦**♦*  GX 

SXLBR  = 

•  <,<,«**  GX 

$DEAHC= 

««t*tt  GX 

$MXVCT=  ******  GX 

SXLIN 

000476RG 

$DEA16= 

»»*«**  GX 

SNAMF  =  ******  GX 

IXPAR  = 

.*♦**«  GX 

$DEA18= 

**«♦*»  GX 

$PCB  =  ******  GX 

$XPRO 

OOOOOORG 

$DECEX= 

»*.**•  GX 

$PDVA  =  ******  GX 

.  ABS. 

177776 

OfiO 

(RW,1,GBL,ABS,0VR) 

004626 

OCI 

(RW,I,LCL,REL,C0N) 

DATA 

000154 

00^ 

(RU,D,LCL,REL,CON) 

Errors 

detected: 

0 

$XPSI  = 

****** 

GX 

SXSNA  = 

****** 

(iX 

$$PDIN= 

****** 

GX 

$$$   = 

000062 

$$$ARG= 

000004 

.CXALL= 

****** 

GX 

.CXLEN= 

****** 

GX 

.CXPCB= 

****** 

GX 

.CXUNL=  ******  GX 

.DEA16  004166R 

.NAME  000146R 

.NTLPT  000150R 

.PCB  =  ******  GX 

.UMRBA=  ******  GX 

.$$$$.=  0OOC34 

..PDV  0001 52R 


002 
002 


002 


••♦    Assembler   statistics 


Work      file     reads:  172 

Work      file   writes:  140 

Size  of   work   file:  29607  Words      (   116  Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-11M/PLUS 


st:NTLUNUV2![?32?U4]NTLUNL/CR/-SP=SV:C1  J]RSXMCM.SML/ML,[130J10]NETL1B/ML,[130,10JRSXMCM/PA:1,C13,?,10]NTLUNL 


rRFATFn   RV      MATRn      m   P9-JUN-85    AT    00:35 
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n   4 


•  •FILE*MD«»NTL11M 


L     5 


POLAL 
MACRO 


NN 

NN 

TTTTTTTTTT 

1 

MM 

MM 

NN 

NN 

TTTTTTTTTT 

MM 

MM 

NN 

NN 

111 

ir 

MMMI" 

MMMM 

NN 

NN 

in 

111 

MHMM 

MMMM 

NNNN 

NN 

MM 

MM  MM 

NNNN 

NN 

MM 

MM  MM 

NN  m 

NN 

MM 

MM 

NN   NN 

NN 

MM 

MM 

NN 

NNNN 

MM 

MM 

NN 

NNNN 

MM 

MM 

NN 

NN 

MM 

MM 

NN 

NN 

MM 

MM 

NN 

NN 

LLLLLLLLLL 

111 

111 

111 

111 

MM 

MM 

NN 

NN 

LLLLLLLLLL 

111 

111 

111 

111 

MM 

MM 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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Dm  Li 


polal  - 

MACROS 

55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 


NETWORK  POOL  ALLOCATION  MACRO  V05.03b  Saturday  29-Jun-85  00:36  Page  5 

.SBTTL  MACROS 
;  GLOBAL  MACROS 


.MCALL  MAP,SAVRG,RESRG 

LOCAL  MACRO  DEFINTIONS 

.MACRO  MAP  BIAS 

MOV  BIAS.aKSARS 
.ENDM 

.MACRO  SAVMAP 

MOV  aKSAR5,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV  (SP)+,SKSAR5 

.ENDM 


SET  UP  APRS  MAPPING 
SAVE  APR  5 
RESTORE  APRS 


n  6 

MFTunok-   pnni    /iiinrATinM  MACRn  vOS.O^h   Saturday   29-Jun-85   00:36     Paqe  6 


L     7 


«F!LE«MD««PRALL 


PRIO 
MACRt 


pppppppp 

RRRRRRRR 

AAAAAA 

PPPPPPPP 

RRRRRRRR 

AAAAAA 

pp    pp 

RR      RR 

AA 

AA 

pp    pp 

RR      RR 

AA 

AA 

pp    pp 

RR      RR 

AA 

AA 

pp    pp 

RR      RR 

AA 

AA 

pppppppp 

RRRRRRRR 

AA 

AA 

pppppppp 

RRRRRRRR 

AA 

AA 

pD 

RR   RR 

AAAAAAAAAA 

P' 

RR   RR 

AAAAAAAAAA 

pp 

RR    RR 

AA 

AA 

pp 

RR    RR 

AA 

AA 

PP 

RR      RR 

AA 

AA 

LLLLLLLLLL 

LLLLLLLLLL 

PP 

RR      RR 

AA 

AA 

LLLLLLLLLL 

LLLLLLLLLL 

ssssssss 

TTTTT 

TTTTT 

SS5SSSSS 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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PRIO 


PRIO  -  READ  PROCESS 
MACRO  DEFINITIONS 

55 
56 
57 
58 
59 
60 
61 
62 
63 
6^  000000 

65  000000 

66  000000 

67  000000 

68  000000 
69 
70 
71 
72 
73 

74  000000 
75 
76 
77 
78 
79 
80 
81 
82 
^3 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 

100 
101 
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.S8TTL   MACRO  DEFINITIONS 


LIBRARY  MACROS 

.MCALL  NHWDF$,RESRG,SAVRG,CACDF$,RETC,ECDDB$ 


PRK 
PR.i 


.MCALL  L8LDF$,PCB0F$,DHBDF$,CALLR 


LBLDFS 

PCBDFS 

DHBDFS 

CACDFS 

ECDDBS 

LIBRARY  SYMBOLS 

NHWDFS 

•' 

LOCAL  MACROS 

SHIFT  LEFT 

.MACRO 

ASL$    COUNT 

REG 

.IF  DF 

R$$EIS 

ASH 

#'COUNT',REG 

.IFF 

.REPT 

COUNT 

ASL 

REG 

.ENDR 

.ENDC 

.ENDM 

ASL$ 

.MACRO 

ASfi$    COUNT 

REG 

.IF  DF 

R$$EIS 

ASH 

#-'COUNT',REG 

.IFF 

.REPT 

COUNT 

ASR 

REG 

.ENDR 

.ENDC 

.ENDM 

ASfi$ 

DEFINE  TASK  IMAGE  LABEL  BLOCK  OFFSETS 
PARTITION  CONTROL  BLOCK  OFFSETS 
DEFINE  DECNET  HOME  BLOCK  OFFSETS 
DEFINE  NI  CACHE  OFFSETS 
DEFINE  ECL  DDB  OFFSETS 


FEATURES  MASK  BIT  DEFINITIONS 


n  8 
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PR. SUB  -  CREATE  SUB-PARTITION 


feo." 
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PRC 


576 
577 
578 
579 
580 
581 
582 
583 
58A 
585 
586 
587 
588 
589 
590 
591 
592 
593 
59A 
595 
596 
597 

598  001332 

599  001336 

600  001342 

601  001 34A 

602  001346 

603  001352 

604  001354 

605  001356 

606  001362 

607  001370 

608  001376 

609  001402 
610 

611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 

623  001416 

624  001420 

625  001422 

626  001424 

627  001430 

628  001434 

629  001436 

630  001442 

631  001444 
652  001450 


.SBTTL  PR. SUB  -  CREATE  SUB-PARTITION 


PR. SUB  -  CREATE  SUB-PARTITION 


THIS  ROUTINE  IS  CALLED  IF  THE  PROCESS  PARTITION  IS  SYSTEM  CONTROLLED. 
A  NEW  SUB-PARTITION  IS  CREATED  AND  LINKED  IN.  THE  PRESENCE  OF  AN  MCB 
PROCESS  IN  A  SYSTEM  CONTROLLED  PARTITION  IS  DENOTED  BY  SETTING  THE  COMMON 
BIT  (PS.COM)  IN  THE  PCB  STATUS  WORD  (P.STAT)  AND  BY  SETTING  THE  PARTITION 
NAME  (P.NAM)  TO  "NT.***",  WHERE  "*♦*"  IS  THE  THREE  CHARACTER  RAD50  PDV  NAME. 

INPUTS: 


R5=MAIN  PARTITION  PCB  ADDRESS 

OUTPUTS: 

R0,R1,R2,R3,R4=DESTR0YED 
R5=SUB-PARTITI0N  PCB  ADDRESS 


.IF  DF  M$$MGE 


016701  OOOOOOG 

103512 
010001 

016702  OOOOOOG 
006202 

005021 

012760  055274  000004 

016760  OOOOOOG  000006 

010560  OOOPV 

016760  000   '  000016 


5$: 


001410     012760     000640     000030 


010501 

005002 

005046 

066102  000014 

016103  000010 

001425 

016304     000014 

160204 

166704  000000' 

105413 


PR. SUB:  MOV 
CALL 
BCS 
MOV 
MOV 
ASR 
CLR 
SOB 
MOV 
MOV 
MOV 
MOV 

.If  DF 

MOV 

MOV 

.IFF 

MOV 

.ENDC 


*  GET  PCB  LENGTH 

*  TRY  TO  ALLOCATE  SUB-PARTITION  PCB 

*  IF  CS,  FAILURE 

*  COPY  PCB  ADDRESS 

*  GET  PCB  LENGTH 

*  CONVERT  TO  A  WORD  COUNT 

*  ZERO  THE  ENTIRE  SUB-PCB 
* 

;»  SET  NAME  TO  "NT.***" 

■  *    ... 
*'MAIN  PCB  ADDRESS 

*  SIZE  IN  32.  WORD  BLOCKS 


PLGTH.RI 

aALOCB 

101$ 

R0,R1 

PLGTH,R2 

R2 

(R1)  + 

R2,5$ 

#'RNT.,P.NAM{R0) 

$NAME,P.NAM+2(R0) 

R5,P.MAIN(R0)   ; 

BLOX,P.BLKS(R0)  ; 

R$$MPL 

#PS.COM!PS.NSF1PS.FXD.'PS.CHK,P.STAT(RO)  ;*  COMMON,  NO  SHUFFLING 

;*  FIXED,  NO  CHECKPOINTING 
#P2.R0N,P.ST2(R0)  ;*  MAKE  PARTITION  READ-ONLY 

;  DF  R$$MPL 

#PS.COM1P5.NSFIPS.SYS,P.STAT(RO) 


;•  COMMON,  NO  SHUFFLING 


10$: 


MOV 
CLR 
CLR 
ADD 
MOV 
BED 
MOV 

sue 

SUB 
BLO 


R5,R1 

R2 

-(SP) 

P.REL(R1),R2 

P.SU8(R1),R3 

50$ 

P.fiEL(R5),R4 

R2,R4 

BL0X,R4 

20$ 


COPY  MAIN  PCB  ADDRESS 

NO  PREVIOUS  SUB-PCB 

PREVIOUS  SUB-PCB  IF  SPACE  IS  FOUND 

GIVING  BIAS  OF  NEXT  HOLE  IN  PARTITION 

GET  NEXT  SUB-PCB 

IF  ZERO,  END  OF  LIST 

GET  BIAS  OF  SUB-PARTITION 

GIVING  SIZE  OF  HOLE 

IS  THE  HOLE  BIG  ENOUGH? 

IF  MI,  NO 


M   Q 
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PR( 
L0( 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
L7 
48 
49 
50 
51 
52 
53 


.TITLE   PROAL  -  PROCESS  ALLOCATION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  19B0,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

EXTERNAL  MAPPING  ALLOCATION/DEALLOCATAION  ROUTINES 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-FLUS  Vl .1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECr,et-11M/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 


L 
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PR 


PROERR  -  PROCESS  RELATED  ERRORS  MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL  DATA 


I,  11 

00:3 


37  Page  6-1 


pro: 

MAC  I 


118 

119  001622 

120  001700 

121  001726 

122  002006 
123 

124 
125 
126 
127 
128 
129 
130 

131  002064 

132  002065 

133  002115 

134  002156 

135  002201 

136  002240 
137 

138 

139 

140  002243 

141 

142 

143 

144 

145 

146 

1'.7 

148  002262 

149  002263 
002:66 
0O2?7' 

150  00,>2"" 
151 

152 
153 
,34  000000 


.ENDC 

NTLERS 

NTLERS 

NTLERS 

NTLERS 


<:>,99,,PERR,RTSPC,,<ReachabUity  table  allocation  failure> 
<:>,9C,,PERR,RTSPC,,<ECL  not  found>  .   ^  ., 

<:>,9D,,PERR,RTSPC,,<Network  POOL.,  block  allocation  .fai lure> 
<:>,9E,,PERR,RTSPC,,<Timer  service  initialization  failure> 


.DSABL  LC 


ERROR  MESSAGE  FORMAT  STRINGS 


000 
052 
052 
052 
052 
052 


052 


015 
116 
040 
040 


040 
040 
040 
040 
040 


127 


123 
123 
120 
120 
000 


FMTO: 

FMT4: 

FMT4A: 

FMT5: 

FMT5A: 

FMT5B: 

FMT5C: 


101   FMT9: 


.ENA8L 

.NLIST 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASC]Z 

.ASCIZ 

.ASCIZ 

.IF  DF 

.ASCIZ 

.ENDC 

.ASCIZ 

.EVEN 

.DSABL 

.LIST 


LC 
BEX 


Symbol  Table  File  — 
Symbol  Table  File  —  Symbol 
Process  File  — 

Partition  * 


''*   Process  File 

R$$11D!I$$AS 
"*  Process  File 

"♦WARNING*  —  " 

LC 
BEX 


Region 


124 
055 


114 
055 


ERROR  MESSAGE  BUFFER 
ERRMSG:  .BYTE 


ERRBUF: 


.ASCII 

.BLKB 
.EVEN 
.PSECT 


15 
"NTL 


70. 
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SYME 


77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 

92  000000 

93  OOOOOA 
9A  000010 

95  OOOOU 

96  000016 

97  000022 

98  000024 
99 

100  000030 

101  00003A 

102  000036 

103  000042 

104  000044 

105  000050 

106  000054 

107  000056 


.SBTTL  SNiCAH  -  ALLOCATE  XPT  CACHE 


SNICAH  -  ALLOCATE  XPT  CACHE 

INPUTS: 

SPDVA  -  XPR  PDV  ADDRESS 
R2    -  XPT  DDB  ADDRESS 

OUTPUTS: 

XPT  CACHE  ALLOCATED 


017703 
016300 
001061 
016705 
010204 


017702 
005000 
156200 
010003 
012701 

010100 
010364 


OOOOOOG 
000060 

OOOOOOG 


OOOOOOG 

000040 

000012 

000062 


SNICAH: 


108 

109 

000062 

110 

000066 

111 

112 

000072 

113 

000100 

114 

000104 

115 

116 

000106 

117 

000114 

118 

■19 

000124 

120 

000126 

121 

000132 

122 

123 

000134 

124 

000142 

125 

126 

000146 

127 

128 

000152 

129 

000156 

130 

131 

000160 

132 

000164 

133 

016401  000064 


022701 
101003 


140000 
062777  000200  0000006 


105021 

022701  140000 

001005 

062777  000200  OOOOOOG 
012701  120000 


10$: 
20$: 


005062  000062 
005062  000064 


30$: 


40$: 


:CALL 
MOV 
MOV 
BNE 
MOV 
MOV 
SWSTKS 

MOV 

CLR 

BISB 

MOV 

MOV 

CALL 

MOV 

MOV 

SAVMAP 
MOV 

MAP 
CMP 
BHl 

ADD 
BIAS5 

CLRB 

CMP 

BNE 

ADD 
MOV 

SOB 


SSAVAL 

aDECPT,R3 

D$NN(R3),R0 

40$ 

$PDVA,R5 

R2,R4 

50$ 

aDtCPT,R2 

RO 

D$MLL(R2),R0 

R0,R3 

#C$LEN,R1 

$MUL 

R1,R0 

R3,N$CACH(R4) 


N$CACH+2(R4),R1 

Z.DSP(R5) 
#140000, R1 
10$ 

#200,a<SAR5 
R1 

(R1)  + 

#140000, R1 
30$ 

#200,aKSAR5 
#120600, R1 

R0,20$ 


RESMAP 
RETURN 

CLR 
CLR 


N$CACH(R2) 
N$CACHt2(R2) 


SAVE  REGS 

GET  DECNET  HOME  BLOCK  ADDRESS 

GET  NUMBER  OF  NODES 

IF  ROUTING  NODE  -  BRANCH 

STORE  PDV  ADDRESS 

COPT  XPT  DDB  ADDRESS 


;;GET  DECNET  HOME  BLOCK  ADDRESS 

;;INIT  REG 

;;GET  MAX  LINKS 

;;SAVE  MAX  LINKS 

;;GET  CACHE  ENTRY  SIZE 

;; CALCULATE  TOTAL  BLOCK  SIZE 

;;SAVE  RESULT 

;; STORE  NUMBER  NI  CACHE  ENTRIES 

;;SAVE  MAPPING 

;;GET  ADDRESS  (RO  CONTAINS  SIZE) 

;;MAP  TO  XPT 
;;NEXT  4KW  BLOCK  ? 
;;IF  NO  -  BRANCH 

;;MAP  TO  NEXT  BLOCK 
;;BIAS  APR5 

;; CLEAR  XPT  CACHE 
;;NEXT  BLOCK  ? 
;;IF  NO  -  BRANCH 

;;MAP  TO  NEXT  BLOCK 
;;B1AS  APR5 

;;If  MORE  -  BRANCH 

;;RESTORE  MAPPING 


;CLEAR  CACHE  ENTRIES 
.-CLEAR  CACHE  ADDRESS 
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TMP; 


3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
c9 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE   SYMBL  -  SYMBOL  TABLE  FILE  LOOKUP  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

SYMBOL  TABLE  FILE  LOOKUP  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-11M/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


M  13 

SIMBl  -  SYMBOL  TABLE  FILE  LOOKU  MACRO  V05.03b  Saturday  29-Jun-85  00:38  Page  5 


L  U 

i(/(PACT   -   TEMPLATE   PROCEbiING  AC   MACRO  V05.03b   Saturday  29-Jun-85  00:38     Page  6 


TMF 


9-' 
98 

*$8UB 

-  ".8LK8"  ACT  ON  ROUTINE 

99 

$BLKW 

-  ".8LKW"  ACT  ON  ROUTINE 

100 

101 

INPUTS: 

102 

$VALUE= 

NUMBER  OF  BYTES/WORDS 

103 

lOA 

OUTPUTS: 

105 

RO,R1,R2=DESTROYFD 

106 

- 

107 

108 
109 

no  000000 

.ENABL 

L-3 

t8LK8:: 

111  000000 

012700 

OOOOOOG 

MOV 

#.8L/<B,R0 

SET  FUNCTION  CODE 

112  OOOOOA 

016701 

OOOOOOG 

MOV 

$VALUE,R1 

GET  BYTE  COUNT 

113  000010 

001431 

BEQ 

50$ 

IF  ZERO,  DO  NOTHING 

1U  000012 

000407 

BR 

10$ 

115  OOOOU 

EBLKW:: 

116  OOOOU 

012700 

OOOOOOG 

MOV 

#.8LKU,R0 

SET  FUNCTION  CODE 

117  000020 

016701 

OOOOOOG 

MOV 

$VALUE,R1 

GET  WORD  COUNT 

118  000024 

001423 

BEQ 

50$ 

IF  ZERO,  DO  NOTHING 

119  000026 

060167 

OOOOOOG 

ADD 

R1,$SIZE 

ADJUST  DATA  BASE  SIZE 

120  000032 

060167 

OOOOOOG 

10$: 

ADD 

R1,$SIZE 

121  000036 

010146 

MOV 

RI.-(SP) 
#256., Rl 

SAVE  COUNT 

122  OOOOAO 

012701 

000400 

MOV 

123  0000A4 

021601 

20$: 

CMP 

(SP),R1 

IS  COUNT  ^<  256.? 

12'i  0000A6 

101404 

BLOS 

30$ 

IF  LOS,  YES 

125  000050 

CALL 

40$ 

DO  256.  WORTH 

126  00005A 

160116 

SUB 

R1,(SP) 
20i 

REDUCE  COUNT  BY  256. 

127  000056 

000772 

BR 

128  000060 

012601 

30$: 

MOV 

(SP)t,Rl 

129  000062 

40$: 

CALL 

$RQ2 

REQUEST  BINARY  FILE 

130  000066 

103402 

BCS 

50$  ^ 

IF  CS,  NO  ACCESS 

131  000070 

110022 

M0V8 

R0,(R2>+ 

STORE  Fu'J'TION  CODE 

132  00007? 

^0^12 

MOVB 

R1,(R2) 

STORE  BY  It 'WORD  COUNT 

133 

NOTE  -  256.  IS  STORED  AS 

0 

134  000074 

50$: 

RETURN 

135 
••36 

.DSABL 

LS6 

H  U 
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k  15 

00:58 


A02 
^03 
404 
40S 
406 
407 
408 
409 
410 
411 
412 
4^5 
414 
415 
416 
417 

418  000654 

419  000654 

420  000660 
421 

422  000662 

423  000666 
424 

425  000670 

426  000670 

427  000674 

428  000676 

429  000676 

430  000702 

431  000704 

432  000704 

433  000710 

434  000714 

435  000720 

436  000722 

437  000724 

438  000732 
439 

440 


SADDRW  -  ".ADDRW"  ACTION  ROUTINE 
$CTM  -  ".CTIM"  ACTION  ROUTINE 
$SLNU  -  ".SLNW"  ACTION  ROUTINE 
ISTNW  -  ".STNU"  ACTION  ROUTINE 
$UNW  -  ".UNW"  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

R1,R2=DESTR0VED 


.ENA8L   LS8 


012701 
000413 

012701 
000412 


012701 
000405 

012701 
000402 

012701 


103404 
110112 
062767 


OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000002  OOOOOOG 


SADDRW: 


MOV 

#. ADDRW, R 

BR 

10$ 

$CTM:: 

MOV 

#.CTIM,R1 

BR 

15$ 

SSTNW: 

MOV 

#.STNW,R1 

BR 

10$ 

SSLNW: 

MOV 

#.SLNW,R1 

BR 

10$ 

$UNW: : 

MOV 

*.UNW,R1 

10$: 

CALL 

$VXLLC 

15$: 

CALL 

$RQ1 

BCS 

20$ 

M0V8 

R1,(R2) 

ADD 

#2,$SIZE 

20$: 

RETURN 

SET  FUNCTION  CODE 

SET  FUNCTION  CODE 

SET  FUNCTION  CODE 

SET  FUNCTION  CODE 


SET  FUNCTION  CODE 

MAKE  SURE  IT'S  NOT  AN  LLC 

REQUEST  BINARY  FILE 

IF  CS,  NO  ACCESS 

STORE    FUNCTION   CODE 

ADJUST   DATA  BASE    SIZE 


.DSA6L      LS8 
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CREf       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

tLFLHD 

000416   RG 

#14-294 

tLSTHD 

000454   RG 

#14-303 

$LTAB 

000476  RG 

#15-321 

$MOD 

001260  RG 

#24-592 

$MPLD 

=    .«««»«      GX 

•14-300 

SMPLHD 

000432  RG 

#14-298 

$NOD 

00106m   RG 

#22-526 

SNOMOD 

001342   RG 

#25-616 

$NUM 

001154   RG 

#23-560 

$ODD 

000520  RG 

#16-337 

$OFF 

=    ......      GX 

.13-264 

SPECHA 

000256  RG 

#11-226 

$PR1 

000556  RG 

#17-358 

SPRII 

000552  RG 

#17-35'. 

$PROV 

001106  RG 

#22-5"v 

SREP.C 

=   .,..».     GX 

5-74 

5-75 

5-76 

5-77 

5-78 

5-79 

5-80 

5-81 

SRQl' 

=   ..»«..     GX 

10-211 
22-526 

11-228 

14-304 

15-322 

17-360 

18-394 

19-434 

20-459 

20-485 

$RQ2 

=   ♦*«»**      GX 

6-129 

7-151 

9-193 

16-340 

22-532 

$RQ3 
SSIZE 

=    ».*.».      GX 
=    »..»♦»      GX 

21-506 
.6-119 

•6-120 

•7-155 

•9-197 

♦10-214 

♦11-231 

12-247 

13-270 

14-295 

14-300 

♦14-307 

•15-325 

16-338 

•16-344 

•17-363 

•18-397 

•19-437 

♦20-462 

•20-488 

♦21-511 

•22-529 

•22-540 

$SLNB 

000620  RG 

#l£-388 

$SLNW 

000676  RG 

#19-423 

tSLTA 

=   .»..»«      GX 

8-170 

8-176 

$STNB 

000612  RG 

#18-385 

SSTNW 

000670  RG 

#19-425 

$S7PrR 

r     ••.*»•        GX 

12-248 

$TERR 

=    .»«».»      GX 

5-74 

5-75 

5-76 

5-79 

5-80 

5-81 

$TIME 

001002  RG 

#20-483 

STWARN 

:     .,♦«»*        GX 

5-77 

5-78 

$UNB 

000626  RG 

#18-391 

SUNW 
$VALUE 

000704   RG 
=    ...,.,      GX 

#19-431 
6-112 

6-117 

•7-149 

7-154 

♦8-171 

♦8-179 

12-249 

13-264 

13-270 

♦21-504 

21-509 

21-510 

22-534 

22-536 

22-539 

•23-561 

23-566 

♦23-570 

•23-574 

SVFDDM 

r    ».».*»      GX 

8-169 

8-175 

9-192 

17-359 

SVFDLC 

=   ......      GX 

14-299 

20-458 

20-480 

SVFLVl 

=    ......      GX 

13-265 

SVFSPC 

=    ..«»*.      GX 

14-302 

SVXLLC 

001434    R 

10-210 

11-227 

18-593 

19-433 

#27-661 

SWORD 

001032  RG 

8-180 

#21-505 

$/BYTE 

000076  RG 

#7-148 

SZWORD 

001026  RG 

#21-503 

$$PRI 

;      .*.♦.»         GX 

•17-357 

.ADDRB 

:     ......        GX 

18-382 

.ADDRW 

i    ......      GX 

19-419 

.APR 

=   ......      GX 

20-454 

.BL<B 

.    ......      GX 

6-111 

.BLK«/ 

r     ......        GX 

6-116 

.BY'E 

=   ......     GX 

7-153 

16-342 
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:n  -  clEar  line 


548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

565 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

58C 

58^ 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

60C 

60' 

/'  ■■ 

I 

6.. 
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NTLUl 
SCCE 


001102 
001102 
001^06 
001114 
001120 
001124 
001130 
001136 
001140 
001  H2 
00' 144 
001150 


00"  52 
OC1'56 
001 '60 
001 lo2 


016705 
042765 

116504 

032764 
001062 
005702 
001054 
016503 
001516 


OOOOOOG 
140000 

000002 

OOOOOOG 

000016 


000000 


OOOOOOG 


.5BITL  $CLIN  -  CLEAR  LINE 

tCLlN  -  CLEAR  .  .  .1 

THIS  ROUTINE  IS  CALLED  TO  DE-ALLOCATE  THE  DLC  AND  DDM  LINE  TABLES  AND  TO 
REMOVE  THE  ASSOCIATED  PROCESSES  FROM  CORE  IF  THEV  HAVE  NOT  BEEN  BROUGHT  IN 
VIA  "SET  PROCESS"  AND  IF  THIS  IS  THE  LAST  SLT  REFERENCE  TO  THE  PROCESS. 
IF  THE  LAST  LINE  ON  A  KMC  HAS  BEEN  CLEARED,  THAT  KMC  WILL  BE  REMOVED 
FROM  THE  "LOADED  KMC'S"  LIST. 

INPUTS: 

$SLTA=SLT  ADDRESS 

OUTPUTS: 

LF.RDVILF.ACT  CLEARED  FROM  L.FLG 
L.DDS  AND  L.DLS  ZEROED 


GET  SLT  ADDRESS 
FLG(R5)  ;  MARK  LINE  AS  NOT  READY  AND  INACTIVE 
SCAN  SLT  FOR  OTHER  ACTIVITY 
GET  DDM  PDV  INDEX 
GET  PDV  ADDRESS 
;  IS  THI'^  DLM? 
BR  IF  YEa 

ARE  ANY  OTHER  MUX  LINES  STILL  READY? 
IF  NE,  YES 
GET  KRB  ADDRESS 
IF  ZERO,  VERY  BAD 


"6303 
006303 
006303 


000001 


0C1'6t 


16504  000002 


iCLlN:: 

MOV 

$SLTA,R5       ; 

XLIN: 

BIC 

#lf.rdy;lf.act,l. 

CALL 

SCAN 

MOVE 

L.DDM(R5),R4 

CALL 

GETPDV         ; 
#ZF.PSE,Z.FLG(R4) 

BIT 

BNE 

20$ 

TST 

R2 

BNE 

10$ 

MOV 

L.KfiBA(R5),R3 

BED 

101$ 

.IF  DF 

R$$MPL 

TSTB 

SNCPU         ; 

BEQ 

1$ 

MOV 

K.URM(R3),SETAF+S 

DIR$ 

#SETAF         ; 

1$: 

.ENDC 

;  DF  R$$MPL 

MOVB 

K.VCT(R3),R3 

ASL 

R3 

ASL 

R3 

CALL 

FNDADD         ; 

.IF  Df 

R$$MPL 

TST8 

SNCPU 

BEQ 

3$ 

RMAFtS 

3$; 

.ENDC 

;  DF  RtSMPL 

MOVB 

L.DDM(R5),R4 

CALL 

FLT16 

.IF  DF 

M$$MGE 

;  HND 

THE  PDV 

BIAS 

IS  THIS  A  MULTI-PROCESSOR  SYSTEM  ? 
IF  EO,  NO 

,AFAF  ;  GET  UNIBUS  RUN  MASK  FOR  DEVICE 
SET  AFFINITY  TO  DEVICE'S  BUS 


GET  VECTOR  ADDPFSS  (ASSUME  <  1000) 
CONVERT  TO  REAL  VECTOR  ADDRESS 

FJND  LINE  TABLE  ADDRESS 


IS  THIS  A  MULTIPROCESSOR  SYSTEM 

IF  EQ,  Nn 

ELSE,  RE^lOVE  PROCESSOR  AFFINITY 


GET  THE  DDM  PDV  INDEX 

FIND  LINE  TABLE  IN  UNLOAD  DATA 


N     1 
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NTLUNL  -  NTL  UNLOAD  ROUTINES 
$CCE)(  -  CLEAR  CEX 


1167  002512 

1168 

1169  002512 

017700 

OOOOOOG 

1170  002516 

001404 

1171  002520 

012701 

000104 

1172  00252A 

1173 

1174  002530 

1175 

1176  002530 

0050^7 

OOOOOOG 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193  002534 

1194  002540 

017700 

OOOOOOG 

1195  002544 

1196  002550 

016266 

OOOOOOG  000004 

1197  002556 

U16266 

OOOOOOG  000006 

1198  002564 

1199  002566 

1200 

1201  002572 

1202  002576 

017700 

OOOOOOG 

1203  002602 

1204  C02606 

016266 

OOOOOOG  000006 

1205 

1206 

1207 

1208  002614 

012266 

000004 

1209  002620 

011266 

000010 

1210  002624 

1211 

1212 

12^3 

1214 

1215 

1216 

1217 

12^8 

1219 

'220 

1221 

1222  002626 

1223  002626 
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56$: 


MOV 

aDECPT,RO 

BEQ 

47$ 

MOV 

#D$END,R1 

CALL 

$DEA16 

47$: 


57$; 


60$: 


CLR 


aCXOPT 


CALL 


$XPAR 


.JF  DF  R$$nM 

.JF  D 

M$$MGE  1  R$$11M 

.IF  DF 

R$$MPL 

SWSTK$ 

60$ 

MOV 

SNTLPT.RO 

CALL 

$MAPX         ;  ; 

MOV 

.CXALL(R2),R0   ;; 

MOV 

.CXLEN(R2),R1 

MOV 

R2,-fSP) 

CALL 

$DECEX 

MOV 

(SP)+,R2 

.IFF 

;  DF  R$$MPL 

SUSTK$ 

57$ 

MOV 

aNTLPT,RO 

CALL 

$MAPX 

MOV 

.CXALL(R2),4(SP)  ; 

MOV 

.CXLEN(R2),6(SP)  ; 

RETURN 

;  ; 

CALL 

$DEA16 

SUSTK$ 

60$ 

MOV 

aNTLPT.RO 

CALL 

$MAPX         ; ; 

MOV 

.CXPCB(R2),6(SP)  ; 

.ENDC 

;  DF  R$$I"PL 

MOV 

(R2)+,4(sp)      ■; 

MOV 

(R2),10(SP) 

RETURN 

.IFF 

;  DF  M$$MGE 

MOV 

aNTLPT,R2 

MOV 

.CXALL(R2),R0 

MOV 

.CXLEN(R2),R1   ; 

MOV 

R2,-(SP)       ; 

CALL 

$DEA16 

MOV 

(SP)+,R2 

MOV 

(R2),R0 

MOV 

.CXPCB(R2),R1 

ENDC 

;  DF  M$$MGE 
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GET  DECNET  HOME  BLOCK  ADDRESS 
IF  NOT  ALLOCATED  BRANCH 
GET  BLOCK  SIZE 
DEALLOCATE  HOME  BLOCK 


;  NO  COMM  EXEC  OPTIONS  SET  NOU 


ENTER  KERNEL  MODE 

GET  DATA  BLOCK  BIAS 

MAP  TO  THE  DATA  BLOCK 

GET  THE  CETAB  ALLOCATION  ADDRESS 

AND  LENGTH  OF  ALLOCATION 

SAVE  BASE  ADDRESS 

DE-ALLOCATE  THE  CETAB  ALLOCATION 

RESTORE  BASE  ADDRESS 


ENTER  KERNEL  MODE 

GET  DATA  BLOCK  BIAS 

HAP  TO  THE  DATA  BLOCK 
;  GET  THE  CETAB  ALLOCATION  ADDRESS 
;  AND  LENGTH  OF  ALLOCATION 

RETURN  TO  USER  MODE 
DE-ALLOCATE  THE  CETAB  ALLOCATION 

ENTER  KERNEL  MODE 
GET  DATA  BLOCK  BIAS 
MAP  TO  THE  DATA  BLOCK 
;  RETURN  CEX  PCB  IN  USER  R1 


REMEMBER  -  $MAPX  ADDS  1  WORD  TO  STACK 
NTPOOL  PCB  ADDRESS  IN  USER  RO 
AND  NTPOOL  UMR  BLOCK  IN  USER  R2 
BACK  TO  USER  MODE 

GET  DATA  BLOCK  ADDRESS 

GET  CETAB  ALLOCATION  ADDRESS 

AND  LENGTH  OF  CETAB  ALLOCATION 

SAVE  R2 

DE-ALLOCATE  CETAB  ALLOCATION 

RESTORE  R2 

GET  NTPOOL  PCB  ADDRESS 

AND  CEX  PCB  ADDRESS 


;  RELEASE  NTPOOL  PARTITION 


NTLL 
XLTl 

1 

1 
1 


NTI     UNI  nAD   RnilTINFS 


N  2 

MACRO  V05.03b  Saturday  29-Jun-85  00:34 


Page  19-3 


M    3 

NTLUNL   -  '•■'     UNLOAD  ROUTINES         MACRO  V05.03b   Saturday  29-Jun-85   00:3A 
XLT16   -   .L-A.t.OCATE    A   16  BIT   ALLOCATION  LINE    TABLE 


Page  28 


1651 

1652 

1653 

165^ 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

■•701 

1702 

1703 

1704 

1705 

1706 

1707 


003560 
003564 
003570 
003572 
003574 
003600 
003604 
003610 
003612 
003614 
003616 
003620 
003624 
003630 
003632 
003634 
003636 
003640 
003642 
003644 
003646 
003652 
003656 
003662 
003664 
003666 
003670 
003672 
003674 
003700 
003702 
003706 
003710 
003712 
003714 
003720 
003724 
003726 
003732 
003734 
003736 
003740 
003742 
003744 


016703     000012' 
001001 


042703 
062703 
010367 
005023 
011300 
005023 
011301 
042701 

011346 
005023 
006026 
103047 
005046 
005046 
152316 
152366 
005063 
012667 
001421 
011300 
005023 
011301 
005023 
032701 
001003 

000404 
000241 
006001 

005367 
001357 
012667 
001411 
011300 
005023 
011302 
005023 


177700 

000014' 

000114' 


1003 


000002 
177776 
000120' 


000001 


000120' 
000120' 


.SBTTL   XLT16  -  DE-ALLOCATE  A  16  BIT  ALLOCATION  LINE  TABLE 

'xLT16  -  DE-ALLOCATE  A  16  BIT  ALLOCATION  LINE  TABLE 

INPUTS: 

R3=LINE  TABLE  ADDRESS 

R4=PDV  INDEX  OF  DDM/DLC/LLC  PROCESS 

OUTPUTS: 

RO,R1,R2,R3=DESTROYED 


FIND  16  BIT  LINE  TABLE  ADDRESS 

WAS  UNLOAD  ENTRY  FOUND? 

IF  NE,  YES 

LINE  TABLE  NOT  FOUND  IN  UNLOAD  DATA! I  I 

FIND  ENTRY  'JITHIN  LOCAL  BLOCK 

SAVE  POINTER  TO  IT 

SKIP  THE  PDV  INDEX 

GET  LINE  TABLE  ADDRESS 

ZERO  IT  (CLEARS  C-BIT) 

GET  LINE  TABLE  SIZE 

CLEAR  EXTRANEOUS  BITS 

DE-ALLOCATE  LINE  TABLE 

SAVE  LINE  TABLE  SIZE 

ZERO  IT 

ANY  SUe-ALLOCATIONS? 

IF  CC,  NO 

CALCULATE  ALLOCATION  COUNT 

AND  LIBRARY  COUNT 


ZERO  THE  COUNTS 

GET  NUMBER  OF  ALLOCATIONS 

IF  ZERO,  NO  WORK  TO  DO 

GET  ALLOCATION  ADDRESS 

ZERO  IT 

GET  ALLOCATION  SIZE 

ZERO  IT 

16  BIT  ALLOCATION? 

IF  NE,  NO 

DE-ALLOCATE  SUB-ALLOCATION 

DISCARD  16/18  BIT  FLAG 

DE-ALLOCATE  SUB-ALLOCATION 

DO  IT  '"LOCATION  COUNT>  TIMES 

GET  I'liM'^ER  OF  LIBRARIES 

'F  r-HO.    NO  WORK  TO  DO 

GE"  I  'RRARY  BLOCK  BIAS 

ZERO  li 

GET  LIBRARY  BLOCK  ADDRESS 

ZERO  IT 

RELEASE  LIBRARY  REFERENCE 


XLT16: 

CALL 

FLT16 

XLT: 

MOV 

UBA.R3 
120i 

BNE 

CRASH 

120$: 

BIC 

#»C<77>,R3 

ADD 

#BL0CK,R3 

MOV 

R3,UPTR 

CLR 

(R^)  + 

MOV 

(R3),R0 

CLR 

(R3)  + 

MOV 

(R3),R1 

BIC 

#3,R1 

CALL 

.DEA16 

MOV 

(R3),-(SP) 

CLR 

(R3)  + 

ROR 

(SP)  + 

BCC 

200$ 

CLR 

-(SP) 

CLR 

-(SP) 

BISB 

(R3)+,(SP) 

8ISB 

(R3)+,2(SP) 

CLR 

-2(R3) 

MOV 

(SP)*, COUNT 

BED 

180$ 

150$: 

MOV 

(R3),R0 

CLR 

(R3H 

MOV 

(R3;,R1 

CLR 

(R3)  + 

BIT 

#1,R1 

BNE 

166$ 

CALL 

.DEA16 

BR 

170$ 

160$: 

CLC 

ROR 

Rl 

CALL 

$DEA18 

170$: 

DEC 

COUNT 

BNE 

150$ 

180$: 

MOV 

(SP)-t, COUNT 

BEQ 

200$ 

190$: 

MOV 

(R3),R0 

CLR 

(R5)  + 

MOV 

(R3),R2 

CLR 

(R3)t 

CALL 

$XL8R 
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SYMBOL  CROSS  REFEREMCE 


SYMBOL  VALUE 


ACSDNT 

AC$X25 

AESCIR 

AESlIN 

AESMOO 

A.ACC 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

BLKSIZ 

BLOC< 

CCBLH 

CCBSZ 

CLKHD 

CLtASZ 

CLSDLL 

CLSECL 
CLSLDN 
CLSMAN 
CLSPAZ 
CLSPLH 
CLSPLL 
CLSPRT 
CLSROU 
CLSSES 
CLSSGE 
CLtSSE 
CLSTRN 


CL$XL2 

CL$XL3 

CL$X2S 

COUNT 

CXOPT 

DDMAC 

DEAC2 

DEAECL 

DEALST 

DECPT 

DEUMR 

DEVHD 

DLCAC 

OL$AST 

OL$HLT 

DLSrST 

DLSMAI 

DLSOFF 


OO00C2 
000001 
000003 
000001 
000004 
000020 
000000 
000002 
000010 
000012 
000010 
000001 
OOOOU  R 

******  (3X 
******  GX 
******  GX 
010500 
000500 

000300 

010400 

000000 

034100 
:  034000 
:  000600 
:  034200 
:  010000 
■  000200 
:  035000 
:  035100 
:  000400 


=  013700 

=  013600 

=  013500 

000120 


R 

GX 
RG 
R 
R 


000124 
004302 
000422 
00^424  RG 

-  ******  GX 
=  **»»*»  GX 
=  ******  GX 

000122  RG 
=  000002 
=  000000 
=  000001 
=  000004 
=  000001 


REFERENCES 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-63 

#5-63 

#5-63 

#5-63 

#5-63 

#5-63 

#7-197 

#7-153 
28-1772 
19-1127 
19-1130 
13-534 

#5-66 

#5-66 
5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 
5-66 
5-66 

#5-66 

#5-66 

#5-66 

#7-168 
19-1176 

#7-174 
29-1855 
8-304 
23-1456 
19-1169 
19-1254 
20-1367 

#7-173 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 


24-1485 


28-1717 
15-703 

19-1129 

19-1078 

5-66 
5-66 
5-66 
5-66 
5-66 
5-66 
5-66 


5-66 
5-66 
5-66 
5-66 
5-66 
5-66 


5-66 
5-66 
•28-1686 
19-1302 
14-632 
#30-1911 
#10-379 
25-1519 
24-1473 
19-1331 

14-650 


n   A 

PAGE   1 

CREF       04.00 


NTL11 


27-1640 


5-66 


5-66 
5-66 
5-66 


5-66 
5-66 
5-66 
5-66 
5-66 
5-66 


28-1669 


5-66 


5-66 
5-66 


5-66 
5-66 
5-66 


28-1710 


5-66 


5-66 


5-66 
5-66 
5-66 


28-1712         28-1732        28-1747         28-1749 


5-66 


5-66 


5-66 


5-66 


5-66 
5-66 


5-66 
5-66 


5-66 
5-66 


5-66 
5-66 


*28-1699   ♦28-1701   ♦28-1708 


#31-1967 
25-1512 


32-2004 
32-2000 


32-2020 
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POLAL 
LOCAL 


1 
2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 

51 

5? 

53 


.TITLE  NTL11M  -  RSX-1T1  DEFINITIONS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICFNSE  AND  MAY  8E  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 


SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
A  COMMITMENT  BY  DIGITAL  EQUIPMENT 


THE  INFORMATION  IN  THIS  SOFTWARE  IS 
AND  SHOULD  NOT  BE  CONSTRUED  AS 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  RSX11M  GLOBAL  SYMBOL  DEFINITIONS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
OECnet-Micro/RSX  VI. 0 
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LOCAL  DATA 


PRALL 
Table 


77 
78 
79 

80 

81 
82 

83  000000  000003 

8i  000002 

85  000004  000000 


.S8TTL  LOCAL  DATA 

;  LOCAL  DATA 

.WORD  3 

XAVLL:   .8LKW  1 

.WORD  0 
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PRALL 


PRALL  -  NIL  PROCESS  ALLOCATION 
Table  of  contents 


n  7 

MACRO  V05.03b  Saturday  29-Jun-85  00:36 


PRIO 
lOCA 


5-  56    MACRO  DEFINITIONS 

6-  M  $ALP16  -  ALLOCATE  FROM  PROCESS  PARTITION 

7-  157    SALPRO  -  ALLOCATE  STORAGE  FOR  PROCESS 
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PRIC 


PRIO  -  READ  PROCESS  INTO  CORE 
LOCAL  SYMBOL  DEFINTIONS 


in^ 

104 

lOS 

lOft 

10/ 

1  r - 

.-i 

110 

111 

11? 

000000 

Ill 

114 

000002 

US 

000004 

116 

000006 

11/ 

000010 

UK 

000012 

119 

000014 

VO 

000016 

1?1 

000020 

V?? 

000022 

^?^ 

000024 

i?4 

000026 

1?S 

000030 

i?6 

000032 

1?7 

000034 

1?K 

000036 

1?9 

000040 

1^:0 

000042 

1^1 

000044 

IV 

000046 

MS 

000000 

M  g 
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.S8TTL  LOCAL  SYMBOL  DEFINTIONS 
LOCAL  SYMBOLS 

ERROR  CODES  RETURNED  TO  CALLER 


PR  I 
PR. 


000002 


.ASECT 

.=2 

ERR2: 

.BLKW   1 

ERR4: 

.BLKU   1 

ERR6: 

.BLKW   1 

ERRS: 

.BLKW   1 

ERR10 

.BLKW   1 

ERR12 

.BLKW   1 

ERR14 

.BLKW   1 

ERR16 

.BLKW   1 

ERR18 

.BLKW   1 

ERR20 

.BLKW   1 

ERR22 

.BLKW   1 

ERR24 

.BLKW   1 

ERR26 

.BLKW   1 

ERR28 

.BLKW   1 

ERR30 

.BLKW   1 

ERR32 

.BLKW   1 

ERR34 

.BLKW   1 

ERR36 

.BLKW   1 

ERR38 

.BLKW   1 

.PSECT 

0=SUCCESS 

OPEN  FAILURE 

GET  ATTRIBUTES  FAILED 

FILE  NOT  CONTIGUOUS 

LABEL  BLOCK  READ  FAILURE 

j.WALID  PROCESS  IMAGE 

PROCESS  NOT  BUILT  FOR  APR5  (MAPPED) 

PROCESS  >  4K  WORDS  (MAPPED) 

PROCESS  EXTENSION  >  4K  WORDS  (MAPPED) 

PARTITION  NOT  IN  SYSTEM 

PROCESS/PARTITION  BASE  MISMATCH 

PARTITION  TOO  SMALL 

NOT  COMMON  PARTITION 

PARTITION  BUSY 

CEX  PARTITION  NOT  IN  EXEC  SPACE  (MAPPED) 

SUB-PCS  ALLOCATION  FAILURE  (MAPPED) 

MAIN  PARTITION  TOO  FRAGMENTED  (MAPPED) 

PROCESS  READ  FAILURE 

FAILED  TO  CREATE  PROCESS  REGION  (IAS  ONLY) 

FAILED  TO  MAP  TO  PROCESS  REGION  (IAS  ONLY) 


N 
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br; 


PRIO  -  READ  PROCESS  INTO  CORE 
PR. SUB  -  CREATE  SUB-PARTITION 


n  9 
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PR( 

L0( 


633  00K52 

634  00U54 

635  00U60 

636  00U64 

637  00K72 

638  00K7A 

639  001500 
6A0  001502 

641  001506 

642  001510 

643  001514 

644  001520 

645  001522 

646  001526 

647  001530 

648  001536 

649  001540 

650  001542 

651  001544 

652  001550 

653  001554 

654  001556 

655  001560 

656  001564 

657  001^66 
658 

659 
660 
661 
6b2  C01i70 

663  001576 

664  001600 

665  001602 

666  001610 

667  001614 
668 

669 
670 


010116 
010260 
010360 
032767 
001430 
060460 
010301 
016102 
000746 
016504 
066504 
160204 
166704 
103412 
032767 
001401 
060402 
010116 
010260 
010360 
012601 
001410 
010061 
010005 


000014 
000010 
OOOOOOG  OOOOOOG 

000014 

000016 


000014 
000016 

000000' 

OOOOOOG  OOOOOOG 


20$: 
30$: 


000014 
000010 


000010 


40$: 
50$: 


MOV 

MOV 

MOV 

BIT 

BEQ 

ADD 

MOV 

MOV 

BR 

MOV 

ADD 

SUB 

SUB 

BLO 

BIT 

BEQ 

ADD 

MOV 

MOV 

MOV 

MOV 

BEQ 

MOV 

MOV 

RETURN 


R1,(SP) 

R2,P.REL 

R3,P.SUB 

#FL.TCP, 

50$ 

R4,P.REL 

R3,R1 

P.8LKS(R 

10$ 

P.REL(R5 

P.eLKS(R 

R2,R4 

BL0X,R4 

50$ 

#FL.TOP, 

40$ 

R4,R2 

R1,(SP) 

R2,P.REL 

R3,P.SUB 

{SP)t,R1 

111$ 

RO.P.SUB 

R0,R5 


(RO) 
(RO) 
$FLAGS 

(RO) 

1),R2 

),R4 
:5),R4 


SfLAGS 


(RO) 
(RO) 


(Rl) 


012767  000036 


005005 
012767 
016701 


ERROR  CONDITIONS 


000010'  101$: 
111$: 


000040  OOOOIQ' 
OOOOOOG 


MOV 

RETURN 

CLP 

MOV 

MOV 

CALLR 

.ENDC 
.IFF 


#ERR30, ERROR 

R5 

#ERR?2, ERROR 

PLGTH.Rl 

aDEACB 


DF  R$$11M 


SAVE  PREVIOUS  SUB-PCB  ADDRESS 

SET  SUB  PARTITION  BIAS 

AND  POINTER  TO  NEXT  SUB-PCB  IN  LIST 

TOP-DOWN  ALLOCATION? 

IF  EQ,  NO  -  ALL  DONE 

ALLOCATE  FROM  TOP  OF  HOLE 

COPY  SUB-PCB  ADDRESS 

GET  SUB-PCB  SIZE 

GET  MAIN  PARTITION  BIAS 

GIVING  BIAS  OF  END  OF  PARTITION 

GIVING  SIZE  OF  LAST  HOLE 

IS  LAST  HOLE  BIG  ENOUGH? 

IF  MI,  NO 

TOP-DOWN  ALLOCATION? 

IF  EQ,  NO 

ALLOCATE  FROM  TOP  OF  HOLE 

SAVE  PREVIOUS  ~UB-PCB  ADDRESS 

SET  SUB  PARTT  IN  BIAS 

AND  POINTER  TC  .EXT  SUB-PCB  IN  LIST 

GET  PREVIOUS  SUB-PCB  ADDRESS 

IF  EQ,  NO  SPACE  IN  PARTITION 

LINK  OUR  SUB-PCB  TO  PREVIOUS 

THIS  IS  NOW  THE  OFFICIAL  PCS 


SUB-PCB  ALLOCATION  FAILURE 

INIDICATE  NO  SUB-PARTITION  ALLOCATED 
MAIN  PARTITION  TOO  FRAGMENTED 
GET  PCS  LENGTH 
DE-ALLOCATE  SUB-PCB 


PR 
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LOCAL    DATA 


PR 
PE 


55 
56 
57 
58 
59 
60 
61 
62 

63  000000  000003 

64  000002  000000 

65  OOOOOA  DOOCOO 
66 

67 
68 
69 


.SSTTL   LOCAL  DATA 

***  * 

DEFINE  LISTHEAD  FOR  PROCESS  ALLOCATIONS 

**** 


.IF  DF   R$$11M 

.WORD   3 

SPRAVL: :.WORD    0 

.WORD   0 

.ENDC   ;  Df  R$$11M 

.IIF  NDF  M$$MGE  .END 


.•ROUNDING  FACTOR 
.-ADDRESS  OF  START  OF  POOL 
;  NEEDED  FOR  DEALLOCATIONS 


N  10 

PROAL   -  PROCESS   Al  LOCATION  ROUT  MACRO  V05.03b  Saturday  29-Jun-85   00:57     Page  6 
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PERR  -  PRINT  ERROR  MESSAGE 
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PRO 


156 

157 

158 

159 

160 

161 

162 

163 

16A 

165 

166 

167 

168  000000 

169  000004 

010005 

170  000006 

012704  002272 

171  000012 

012503 

172  000014 

173  000016 

105713 

174  000020 

001403 

175  000022 

112324 

176  000024 

001376 

177  000026 

005304 

178  000030 

012503 

179  000032 

112524 

180  000034 

001376 

181  000036 

005304 

182  0000^0 

012700  002262 

183  000044 

010401 

184  000046 

160001 

185  000050 

186  000054 

005703 

187  000056 

001401 

188  000060 

189  000062 

000261 

190  000064 

.SBTTL  PERR  -  PRINT  ERROR  MESSAGE 

PERR  -  PRINT  ERROR  MESSAGE 

INPUTS: 

RO=MESSAGE  BLOCK  ADDRESS 

OUTPUTS: 

C-8IT=SET 
R0,R1=DESTR0VED 


PERR: 

CALL 

MOV 

MOV 

MOV 

CALL 

TSTB 

BEQ 

30$: 

MOVB 

BNE 

DEC 

40$: 

MOV 

50$: 

MOVB 

BNE 

DEC 

MOV 

MOV 

SUB 

CALL 

TST 

BEQ 

CALL 

60$: 

SEC 

RTSPC: 

RETURN 

$SAVAL 

R0,R5 

#ERR8Uf ,R4 

(R5)+,R3 

a(R5)t 

(R3) 

40$ 

(R3)t 

30$ 

R4 

(R5)  + 

(R5)  + 

50$ 

R4 

#ERRMSG,RO 

R4,R1 

RO.RI 

$TIOUT 

R3 

60$ 

!R3) 


,(R4>* 


R3 
(R4)  + 


SAVE  ALL  REGISTERS 

COPY  ERROR  MESSAGE  BLOCK  ADDRESS 

PLACE  TO  BUILD  ERROR  MESSAGE 

GET  FORMAT  STRING  ADDRESS 

DO  THE  FORMATTING 

IS  IT  END  OF  FORMAT  STRING? 

IF  EQ,  YES 

ELSE  COPY  REST  OF  FORMAT  STRING 

SKIP  THE'ZERO  BYTE 
GET  LINE  2  ADDRESS 
COPY  THE  ERROR  TEXT 

SKIP  the'zero  byte 

SET  ERROR  MESSAGE  ADDRESS 

COPY  END  ADDRESS 

GIVING  LENGTH 

PRINT  IT 

SHOULD  SECOND  LINE  BE  PRINTED? 

IF  EQ,  NO 

PRINT  SECOND  ERROR  MESSAGE  LINE 

RETURN  WITH  C-BIT  SET 


OR! 


PROxP'  -  XPT  PROCESS  INITIALIZE  MACRO  V05.03b  Saturday  29-Jun-85  00 
SMKAm  -  ALLOCATE  XP'  CACHE 
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S^M! 


13A  000170 
135 


■■0$: 


RETURN 
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i*|p 


56 

57 

58 

59 

60 

61 

62 

63  000000 

64 

65  000002 

66  OOOOOA 

67  000006 

68  000010 

69  000000 
70 

71 

72 

73 

74  000012 

75 

76  000000 

77  000002 

78  000004 

79  000010 

80  000000 
81 

82 

83 

84 

85 

86  000000 

87 

88 

89 

90 

91  000000 

92 

93  000000 


0000D2 


'^000 


•  *** 

•  LOCAL  SYMBOLS 


':   ERROR  CODES  RETURNED  to  CALLER 


E.OPEN 
E.READ 
E.ORUN 
E.8AD: 


.ASECT 

.  ^  2 

.8LKU 

.8LKW 

.BLKW 

.BLKW 

.PSECr 


SYMBOL  BLOCK  LAYOUT 


SB. INK 
SB.DEF 
SB.SYM 
SB.VAL 


.ASECT 

.  =  0 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.PSECT 


■  »** 

■  LOCAL  DATA 

.PSECT   DATA.D 

SYMBOL  TABLE  RECORD  BUFFER 
ST68F:   .BLKB   124. 
.PSECT 


SUCCESS 
OPEN  FAILURE 
READ  FAILURE 
RECORD  BUFFER 


TOD  SMALL 


8.  =  BAD  FILE  FORMAT  (INCLUDES  PREMATURE  EOF) 


LINK  TO  NEXT  SYMBOL  BLOCK  (0=LAST) 
NON-ZERO  IF  SYMBOL  IS  DEFINED 
RAD50  SYMBOL 
SYMBOL  VALUE 
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IVIPATT     - 

IEMPL' 

'?8 

13<3 

UO 

HI 

K2 

U3 

H4 

IAS 

U6 

147 

U8 

000076 

U9 

000076 

150 

00010? 

151 

000102 

152 

000106 

153 

000110 

154 

0001  H 

155 

C00120 

156 

0001 2A 

l£MPi_ATE   PROCESSING   Af   *1Af«C   v05.03b   Saturday  29-Jun-85  00:58     Page   7 


i»1( 


SBVTE  - 

szevTf  . 

INPUTS; 


".8VTE"  ACTION  ROUTINE 
ACTION  ROUTINE  '0  STORE  A  ZERO  BVTE 


$VALUE=8VTE  VALUE 

OUTPUTS: 

R2--DESTR0yED 


005C67     OOOOOOG 


izevTE: 

SevTE:: 


105A06 
112722 
116712 
005267 


OOOOOOG 
OOOOOOG 
OOOOOOG 


10$: 


CLR 

CALL 
BCS 

Move 

M0V8 
INC 

RETURN 


SVALUE 

$R02 

10$ 

*.8yTE,(R2)* 

$VALUE,(R2) 

$SIZE 


USE  ZERO  AS  EXPRESSION  VALUE 

REQUEST  BINARY  fILE 
IF  CS,  NO  ACCESS 
STORE  FUNCTION  CODE 
STORE  8VTE  VALUE 
ADJUST  DATA  BASE  SIZE 
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'.(,2 

+ 

A^? 

$APR 

-   ".APR" 

ACTION  ROUTINE 

AAA 

$DPR8 

-  ".DPRB"  ACTION   ROUIINE 

AA5 

AA6 

INPUTS: 

AA7 

NONE 

AA8 

AA9 

OUTPUTS: 

A50 

Rl,R2=DESTR0rED 

ASl 

- 

A52 

.ENABL 

LS8 

A53 

00073A 

$APR : : 

ASA 

00073A 

012701 

OOOOOOG 

MOV 

*.APR,R1 

FUNCTION   CODE 

ASS 

CC07A0 

000A02 

BR 

10$ 

CONTIUE    IN  COMMON   CODE 

A56 

0C07A2 

tDPRB: : 

A57 

OO.VAZ 

012701 

OOOOOOG 

MOV 

#.DPRB,R1 

FUNCTION   CODE 

A'^B 

00II7A6 

0$: 

CALL 

$VFDLC 

MAKE    SURE    IT'S   A   DLC 

AS9 

00r7S2 

CALL 

$R01 

REQUEST   BINARY   FILE 

A60 

00(7S6 

103A03 

BCS 

20$ 

IF    CS,    NO  ACCESS 

".61 

00(760 

110'12 

MOVB 

R1,(R2) 

STORE    FUNCTION   CODE 

A62 

00()76? 

005267 

OOOOOOG 

INC 

$SIZE 

ADJUST   DATA  BASE    SIZE 

A65 

00J766 

?0$: 

RETURN 

A6A 

A65 

.DSA8L 

LSB 

A66 

A67 

+ 

A68 

•    $DPRk/ 

-   ".DPRU"  ACTION  ROUTINE 

A69 

■    $TIME 

-   ".TIME"  ACTION   ROUTINE 

A70 

A71 

■    INPUTS: 

A72 

NONE 

A75 

A7A 

;    OUTPUTS: 

A75 

R1,R2==DESTR0VED 

A76 

';- 

A77 

A78 

.ENA8L 

LS8 

A  79 

000770 

SDPRW:: 

A30 

000770 

CALL 

$VFDLC 

MAKE    SURE    THIS    IS   A  DLC 

A81 

00077A 

012701 

OOOOOOG 

MOV 

#.DPRW,R1 

•    SET    FUNCTION  CODE 

A8? 

001000 

000A02 

BR 

10$ 

A83 

00100? 

$TIME:: 

A8A 

00100? 

012701 

OOOOOOG 

MOV 

*.riME,R1 

•    SET   FUNCTION   CODE 

ASS 

001006 

10$: 

CALL 

$RQ1 

•    REQUEST   BINARY   FILE 

A  86 

001012 

103A0A 

BCS 

20$ 

■    IF    CS,    NO  ACCESS 

A87 

OOICH 

110112 

MOVB 

R1,(R2) 

•    STORE    FUNCTION   CODE 

A88 

001016 

062767 

000002     OOOOOOG 

ADD 

#2,$SI7E 

;    ADJUST   DATA  BASE    SIZE 

A89 

00'02A 

20$: 

RETURN 

A90 

A91 

.DSA8L 

LSB 
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IMPACT 

CREATED   B* 

MACRO     ON  29 

-JUN-85   AT 

00:38 

PAGE 

SVMBOL 

CROSS  REFERENCE 

CREF 

SYMBOL 

VALUE 

REFERENCES 

.CSR 

;        , 

GX 

'-l'^. 

.CTIM 

3       « 

GX 

19-A22 

.OPRB 

-       • 

GX 

20-07 

.DPRW 

-        * 

GX 

20-481 

.DVCHA 

r     t 

GX 

10-21? 

.L5THD 

=     1 

GX 

U-306 

.LTAB 

- 

GX 

15-324 

.NODE 

r     i 

GX 

22-528 

.PEtHA 

- 

GX 

11-230 

.PNUMB 

::: 

GX 

23-561 

24-593 

*24-601 

. PNUMH 

= 

GX 

23-562 

24-594 

.PR  I 

r 

GX 

17-362 

.PRTOV 

= 

GX 

22-538 

.PSTCN 

= 

GX 

26-635 

.PSTPT 

- 

GX 

26-633 

.SLNB 

= 

GX 

18-389 

.5LNW 

= 

GX 

19-429 

.STNB 

r 

GX 

18-386 

.STNW 

z 

GX 

19-A26 

.TIME 

r 

GX 

20-484 

.LiNB 

= 

GX 

18-392 

.UNW 

r 

GX 

19-432 

.WORD 

GX 

21-508 

n  16 


04.00 
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605 

606 

001176 

•■ 

CALL 

GETPDV 

CONVERT  INDEX  TO  PDV  ADDRESS 

607 

001202 

010467 

000152" 

MOV 

R4,..PDV 

SAVE  PDV  INDEX 

608 

001206 

016467 

OOOOOOG 

OOOOOOG 

MOV 

Z.DSP(R4), 

$BIAS  ' 

GET  THE  PDV  BIAS 

609 
610 

.IF  DF 

R$$MPL 

61 1 

CALL 

FNCTB 

FIND  THE  CTB  ADDRESS 

612 

MOVB 

L.CTL(R5), 

RO 

GET  THE  CONTROLLER  NUMBER 

613 

ASL 

RO 

CONVERT  TO  A  WORD  INDEX 

6U 

ADD 

RO.RI 

GET  ADDRESS  OF  KRB  IN  CTB 

615 

CLR 

L.KR8(R1) 

ZERO  KRB  POINTER 

6'6 

CALl 

SHRCIN 

RE-INITIALIZE  HRC... 

6^7 

.endc 

618 

619 

.ENDC 

;  DF  M$$HGE 

620 
621 

001214 

CALL 

yf-'T 

RELEASE  VECTOR(S) 

622 
623 

•  de 

-ALLOCATE  KRB  -   JCATION 

624 
625 

001220 

016500 

000016 

MOV 

L.KR8A(R5 

,R0 

GET  KRB  ADDRESS 

626 

001224 

CALL 

XKR6 

DE-ALLOCATE  KRB 

627 
^28 

001230 

CALL 

XLT 

DE-ALLOCATE  LINE  TABLE 

629 

001234 

CALL 

ZDDS 

ZERO  L.DDS  IN  SLT(S) 

630 

001240 

016704 

000152' 

MOV 

..PDV,R4 

GET  PDV  ADDRESS 

631 

001244 

016467 

OOOOOOG 

OOOOOOG 

MOV 

Z.NAM(R4) 

$NAME 

•  SETUP  DDM  DEVICE  NAME 

632 

001252 

005767 

000124' 

5$: 

TST 

DDMAC 

•  ANY  OTHER  DDM  ACTIVITY? 

633 

00V56 

001006 

BNE 

10$ 

■  IF  NE,  YES 

634 

001260 

132764 

OOOOOOG 

OOOOOOG 

BITS 

#ZF.MFL,Z 

FLG(R4 

)  ;  IS  DDM  PROCESS  MARKED  FOR  LOAD? 

635 

001266 

001002 

BNE 

10$ 

;  IF  NE,  YES  -  DON'T  REMOVE 

636 

001270 

CALL 

XPRO 

;  REMOVE  PROCESS  FROM  CORE 

637 

001274 

126565 

000002 

000003 

10$: 

CMP8 

L.DDM(R5) 

L.DLC(R5)  ;  COMBINAIION  DDM/DLC? 

638 

001302 

001434 

BEQ 

30$ 

;  IF  EO,  YES  -  ALL  DONt 

639 

001304 

016503 

000010 

20$: 

MOV 

L.DLS(R5) 

R3 

;  GET  Dl:  line  TABLE  ADDRESS 

640 
641 
642 

001310 

001437 

BEQ 

111$ 

;  IF  ZERO,  VERY  BAD 

001312 

116504 

000003 

MOVB 

L.DLC(R5) 

R4 

;  GET  DLC  PDV  INDEX 

643 

C01316 

CALL 

GETPDV 

;  CONVER'  INDEX  TO  PDV  ADDRESS 

644 
645 
646 

001322 

010467 

000152' 

MOV 

R4,..PDV 

;  DON'T  DISCARD  PARTiTION  LINE  TABL 

001326 

116504 

000003 

MOVB 

L.DLC(R5) 

,R4 

;  GET  DLC  PDV  INDEX 

647 

001332 

CALL 

XLT16 

;  DE-ALLOCATE  DLC  LINE  TABLE 

648 

001336 

005065 

000010 

CLR 

L.DLS(R5) 

;  ZERO  LINE  TABLE  ADDRESS 

649 

001342 

005065 

000006 

CLR 

L.DLM(R5; 

;  AND  LINE  TABLE  B  AS 

650 

001346 

005767 

000122' 

TST 

DLCAC 

;  ANY  OTHER  DLC  ACTIVITY? 

651 

001352 

001010 

BNE 

:o$ 

;  IF  NE,  YES 

652 

001354 

016704 

000152' 

MOV 

.  'DV,R4 

:  GET  PDV  ADDRESS 

653 

001360 

132764 

OOOOOOG 

OOOOOOG 

BITS 

HI:  .MfL,: 

.FLG(Ri 

)  ;  IS  DLC  PROCESS  MARKED  FOR  LOAD? 

654 

001366 

:01002 

BNE 

30$ 

;  IF  NE,  YES  -  DON'T  REMOVE 

655 

001370 

CALL 

XPRO 

;  REMOVE  DLC  FROM  CORE 

656 

001374 

042765 

020000 

000000 

30$: 

BIG 

#LF.UNL,L 

.FLG(R5 

)  ;  Cl:»R  MARKED  FOR  UNLOAD  FLAG 

657 

C01402 

000241 

CLl 

;  RETURN  C-BIT  CLEAR 

658 

001404 

RETURN 

659 

660 
661 

;  ERROR  CONDITIONS 

MTLUNL  -  NTL  UNLOAD  ROUTINES 
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NTH 
XLT- 


1224  002632 

1225 

1226 

122? 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236  002634 

1237  002636 
1238 

1239 

1240 

1241  002642 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251  002650 

1252  002652 

1253  002654 

1254  002660 

1255  002664 

1256  002670 
1257 

1258  002674 

1259  002676 
1260 

1261 

1262 

1263 

1264 

1265  002700 

1266 

1267 

1268 

1269  002700 

1270  002704 

1271  002706 

1272  002712 
127^  002716 
1274  002724 
1275 

1276  002732 

1277 

1278 

1279 

''28C 


103504 


BCS    101$ 

.IFF    ;  DF  R$$11M 
MOV     aNTLPT.RO 
CALL    SMAPX 
MOV     (fi2),R0 
CALL    a(SP)t 
CALL    SULOCK 

.ENDC   ;  DF  P$$11M 

.IF  NDF  RSIMPL 


010100 


042777  OOOOOOl  OOCOOOG 


67$: 


010200 
001410 


012701 
000241 


OOOOOOG 


70$: 


MOV 
CALL 

.ENDC 

BIC 

.IF  DF 

Move 

BEQ 

CALL 

BR 

.ENDC 

MOV 

BfQ 

SWSTK$ 

CALL 

MOV 

CALLR 

CLC 
RETURN 


Rl.RO 
$XPAR 

;  NDF  R$$HPL 

#FE.CEX,aFMASK 

R$$MPL 

aNCPU,R4 

67$ 

XUMR 

70$ 


R2,R0 

70$ 

70$ 

aDEUMR 

#M.LGTH,R1 

$DECEX 


'SET  CEX"  ERROR  RECOV 


80$: 


.IF  DF  R$$11M 
.IF  DF  M$$MGE 


017700 
001455 


016266 
016266 


OOOOOOG 


OOOOOOG  000004 
OOOOOOG  000006 


MOV 

BEQ 

SWSTK$ 

CALL 

MOV 

MOV 


aNTLPT.RO 

90$ 

83$ 

$MAPX 

.CXALL(R2),4(SP) 

.CXLEN(R2),6(SP) 


RETURN 
.IFF 

CLR     RO 


IF  CS,  VERy  SAD 


GET  DATA  BLOCK  BIAS 

MAP  TO  THE  DATA  BLOCK 

GET  GCD  ADDRESS  OF  NTPOOL 

CALL  CO-ROUTINE  TO  RESTORE  MAPPING 

UNLOCK  THE  PROCESS 


GET  CEX  PC8  ADDRESS 

RELEASE  CEX  FROM  ITS  PARTITION 


INDICATE  COMM  EXEC  NOT  IN  MEMORY 


GET  NUMBER  OF  PROCESSORS  IN  SYSTEM 
IF  EQ,  NOT  A  MULTIPROCESSOR  SYSTEM 
RELEASE  UMR'S 
AND  CONTINUE 


COPY  JMR  BLOCK  ADDRESS 

IF  ZERO,  NO  UMR'S  TO  WORRY  ABOUT 

ENTER  KERNEL  MODE 

DE-ASSIGN  UMR'S 

GET  UMR  BLOCK  LENGTH 

DE-ALLOCATE  UMR  BLOCK 

INDICATE  SUCCESS 


GET  THE  NTL  HOME  BLOCK  BIAS 
IF  EQ,  THERE  IS  NONE 

ENTER  KERNEL  MODE 

MAP  TO  NTL  HOME  BLOCK 

;  RETURN  CETAB  ALLOCATION  ADDRESS  IN  RO 
;  RETURN  CETAB  LENGTH  IN  Rl 

REMEMBER  $MAPX  ADD  1  UORD  TO  SP 

RETURN  TO  USER  MODE 


ASSUME  NO  CETAB  ALLOCATION 
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1708  003750 

005367 

000120' 

DEC 

COUNT 

1709  003754 

001367 

BNE 

1 90$ 

1710  003756 

022767 

000016'   000114' 

200$: 

CMP 

#8L0CKt2,UPTR       ; 

1711   003764 

001043 

BNE 

250$ 

1712  003766 

022703 

000114' 

CMP 

#BL0CK+100,R3 

1713  003772 

001402 

BEQ 

210$ 

1714  003774 

005713 

TST 

(R3) 

1715  003776 

001036 

BNE 

250$ 

1716  004000 

016700 

000010' 

210$: 

MOV 

UBIAS.RO 

1717  004004 

012701 

000001 

MOV 

#BLKSIZ,R1 

1718  004010 

CALL 

$DEA18 

1719 

1720 

.IF    DF 

M$$MGE 

1721    004014 

017700 

OOUOOOG 

MOV 

aNTLPT,RO 

1722 

.IF    DF      t<$$llM 

1723  004020 

SWSTK$ 

300$ 

1724 

.ENDC 

1725  004024 

CALL 

$MAPX 

1726 

.IFF 

1727 

MOV 

aNTLPT,R2 

1728 
1729 
1730  004030 

.ENDC 

026267 

OOOOOOG  000010' 

CMP 

.CXUNL(R2),UBIAS   ; 

1731   004036 

001004 

BNE 

220$ 

1732  004040 

016762 

000014'   OOOOOOG 

MOV 

BLOCK,. CXUNL(R2)    ; 

1733  004046 

000446 

BR 

300$                       ;  ; 

1734  004050 

220$: 

1735 

.IF    DF 

M$$MGE 

1736  004050 

016211 

OOOOOOG 

MOV 

.CXUNL(R2),(R1)    ;; 

1737  004054 

000401 

BR 

240$ 

1738  004056 

011211 

230$: 

MOV 

(R2),(R1) 

1739 

.IFF 

1740 

MOV 

.CXUNL(R2),R2 

1741 

BR 

240$ 

1742 

250$: 

MOV 

(R2),R2 

1743 
1744 
1745  00^060 

.ENDC 

021267 

000010' 

240$: 

CMP 

(R2).UBIAS 

1746  004064 

001374 

BNE 

230$ 

1747  004066 

016712 

000014' 

MOV 

BLOCK, (R2) 

1748  004072 

000434 

BR 

300$ 

1749  004074 

012;'00 

000114' 

250$: 

MOV 

#^LOCK+100,RO 

1750  004100 

020003 

CMP 

R0.R3                        ; 
286$ 

1751   004102 

001413 

BEQ 

1752  004104 

010001 

MOV 

R0.R1 

1753  004106 

160301 

SUB 

R5,R1 

1754  004110 

006201 

ASR 

Rl 

1755  004112 

016702 

000114' 

MOV 

UPTR,R2 

1756  004116 

012522 

260$: 

MOV 

(R5)t.(R2)t           ; 
Rl,266$ 

(rJ)  + 

1757  004120 

SOB 

1758  004124 

005022 

270$: 

ClR 

1759  004126 

020002 

CMP 

X            : 

1760  004130 

001575 

BNE 

1761   004132 

2'"^*. 

1762 

.IF    DF 

M$$MGE 

1763  004132 

016700 

000010' 

MOV 

UeiAS,R0 

1764 

.IF    OF      R$$11M 

DO  IT  <LlBRARr  COUNT>  TIMES 

WAS  OUR'lINE  table  the  FIRST  ENTRV? 

IF  NE,  NO 

DID  IT  FILL  THE  ENTIRE  32.  WORD  BLOCK? 

IF  EQ,  YES 

ANYTHING  SIGNIFICANT  IN  REST  OF  BLOCK? 

IF  NE,  YES 

GET  UNLOAD  BLOCK  ADDRESS 

AND  SIZE 

DE-ALLOCATE  UNLOAD  BLOCK 


GET  NETLDR  DATA  SLOCK  BIAS 

ENTER  KERNEL  MODE 

MAP  TO  THE  DATA  BLOCK 
GET  NETLDR  DATA  BLOCK  ADDRESS 

;  WAS  OUR  UNLOAD  BLOCK  THE  FIRST? 

IF  NE,  NO 
;  SET  NEW  FIRST  UNLOAD  BLOCK  ADDRESS 

MAP  rn  THE  FIRST  UNLOAD  BLOCK 
MAP  TO  THE  NEXT  UNLOAD  BLOCK 
GET  FIRST  UNLOAD  BLOCK  ADDRESS 
GET  NEXT  UNLOAD  BLOCK  ADDRESS 


DjES  this  block  POINT  TO  OURS? 

IF  NE,  NO 

CHANGE  NEXT  BLOCK  POINTER 

GET  END  OF  BLOCK  ADDRESS 

ARE  WE  THERE  NOW? 

IF  EQ,  YES 

CALCULATE  SIZE  REMAINING  IN  BLOCK 


COPY  REST  OF  BLOCK  ONTO  WHAT  USED  TO  BE 
OUR  LINE  TABLE  ENTRY 

ZERO  THE'rEST  OF  THE  BLOCK 


GET  UNLOAD  BLOCK  BIAS 


NTLUNL  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:35 

SYMBOL    CROSS  REFERENCE 


19-111? 


N     4 

PAGE   2 

CREF       OA.OO 


ntlt 


SYMBOL 

VALUE 

REFERENCES 

DLSON 

=  000000 

#5-66 

dlsrun 

=  000003 

#5-66 

DLSSHU 

=  000002 

#5-66 

DLSSYN 

=  000005 

#5-66 

DQCLK 

000766  R 

12-486 

#13-516 

dsann 

000000 

24-1475 

d$end 

=  0001 OA 

19-1171 

D$FNB 

000034 

32-2022 

DSRNN 

000002 

25-1514 

DSSER 

000032 

32-2002 

D.DSP 

=  ««*»«♦  GX 

*20-1375 

D.PCB 

=  ♦**«»♦  GX 

20-1372 

*20-1376 

efsact 

=  000001 

#5-66 

EVSACF 

=  000201 

#5-66 

EVSADR 

=  00OA2O 

#5-66 

EVSADU 

=  000417 

#5-66 

EVSAPL 

=  000400 

#5-66 

EVSARC 

=  000421 

#5-66 

EVSAUC 

=  000010 

#5-66 

EVSAUS 

=  000003 

#5-66 

EVSCDF 

=  000520 

#5-66 

EVSCOZ 

=  000011 

#5-66 

EVSDBR 

=  000302 

#5-66 

EVSGAS 

=  035101 

#5-66 

EVSHCE 

=  035114 

#5-66 

EVSHCI 

=  035113 

#5-66 

EVSHFE 

=  000506 

#5-66 

EVSIFL 

=  000413 

#5-66 

EV$IFO 

=  000415 

#5-66 

FV$IFS 

=  000414 

#5-66 

EVSINF 

=  000515 

#5-66 

EVSLOL 

=   000407 

#5-66 

EVSLDN 

=  310416 

#5-66 

EVSLDO 

=  000411 

#5-66 

EVSLDS 

=  000410 

#5-66 

EVSLSC 

=  000500 

#5-66 

EV$LUP 

=  000412 

#5-66 

EVSNOL 

=  000402 

#5-66 

EVSNRC 

=  000416 

#5-66 

EVSNSC 

=  000200 

#5-66 

EVSNUL 

=  000401 

#5-66 

EVSNVR 

=  000406 

#5-66 

EVSOPL 

=  000403 

#5-66 

EV$PCC 

=  034000 

#5-66 

EVIPCI 

=  034001 

#5-66 

EVSPCM 

=  034002 

#5-66 

EVSPFE 

=  000404 

#5-66 

EVSPPC 

=  034003 

#5-66 

EVSRCF 

=  000517 

#5-66 

EVSRDC 

^  010001 

#5-66 

EVSRDR 

=  010002 

#5-66 

EVSRJF 

=  035106 

"  66 
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POLAl 
$XAH 


55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 

67  000000 
68 
69 
70 
71 
72 

73  000000 
7k 
75 
76 
77 
78 
79 

80  OOOf^OO 
81 
82 
83 
84 
85 

86  OOOOCO 
87 
88 
89 
90 
91 
92 
93 
9i 

95  000000 
96 
97 
98 
99 
100 

lOi  000000 
102 
103 
IDA 
105 
106 

107  000000 
108 
109 
110 

111 


LIBRARY  MACROS 

.MCALL  DCSDF$,HUDDF$,LBLDF$,PCBDF$,SC8DF$,TCBDF$,UCBDf$ 


GLOBAL  LIBRARY  SYMBOLS 


DEVICE  CONTROL  BLOCK  OFFSETS  (DC8) 
DCBDFS 


GLOBL  D.DSP,D.NAM,D.PC8,D.UCB,D.UCBL,D.UN1T,D.VPWF 


FEATURES  MASK  BIT  DEFINITIONS 
HWDDFS 


.GLOBL  FE.CEX,FE.EXT,FE.PLA,FE.FXV 
.JIF  DF  R$$MPL,  .GLOBL  F2.DAS 


TASK  LABEL  BLOCK  OFFSETS 

LBLDFS 

.GLOBL  L$BEXT,L$BFLG,L$8HRB,L$BLDZ,L$BMXZ,L$BSA,TS$NHD 

PARTITION  CONTROL  BLOCK  OFFSETS  (PCS) 

PCBDFS 

.GLOBL  PS. COM, PS. NSF, P. MAIN, P. NAM, P. STAT, P. SUB, P. WAIT 

.IF  NDF  R$$MPL 
.GLOBL  PS. SYS, P. BUSY 

.ENDC 

STATUS  CONTROL  BLOCK  OFFSETS  (SCB) 

SCBDFS 

.GLOBL  S.C0N,S.LHD,M.8FVH,M.BFVL,M.LGTH,M.UMRA,M.UMRN 

TASK  CONTROL  Bl OCK  OFFSETS  (TCB) 

TCBDF$ 

.GLOBL   T.LDV 

UNIT  CONTROL  BLOCK  OFFSETS  (UCB) 

UCBDF$ 

.GLOBL  UC.PWF,US.MNT,U.CTL,U.DCB,U.RED,U.SCB,U.STS,U.UNIT 
.GLOBL  DV.MNT,US.BSY,U.CWl 


POLAL    ■ 
SXALOC 


A 
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PRALL 


8? 

88 

89 

90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 

100 

101 

102 

103 

10A 

105 

106 

107 

108 

109 

110 

111 

112 

113 

1U 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

UO 

1^1 

U2 

143 


.S8TTL  SXALOC  -  ALLOCATE  CORE  BUFFER  IN  EXTENDED  POOL 

••-SXALOC-ALLOCATE  CORE  BUFFER  IN  EXTENDED  POOL 

TMiS  ROUTINE  IS  CALLED  TO  ALLOCATE  AN  CORE  BUFFER  IN  EXTENDED  POOL. 
THE  ALLOCATION  ALGORITHM  IS  FIRST  FIT  AND  BLOCKS  ARE  ALLOCATED  IN 
MULTIPLES  OF  FOUR  BVTES.  IF  THE  EXTENi>ED  ALLOCATION  FAILS,  THE 
BLOCK  IS  ALLOCATED  USING  RSX  POOL. 

INPUTS: 

RUSIZE    OF    THE    CORE   BUFFER    TO  ALLOCATE    IN  BYTES. 

OUTPUTS: 

C=l  IF  INSUFFICIENT  CORE  IS  AVAILABLE  TO  ALLOCATE  THE  BLOCK. 
C=0  IF  THE  BLOCK  IS  ALLOCATED. 

RO=ADDRESS  OF  THE  ALLOCATED  BLOCK. 

R1=LENGTH  OF  BLOCK  ALLOCATED 

REGISTERS: 

R2  MODIFIED 


000006 


000006 

000012  012700  000000' 

000016  061001 

000020  042001 

000022  017710  OOOOOOu 

000026  010002 

000030  011200 

000032  001003 


000034 


SXALOC:: 


10S: 


.IF  NDF 

CALLR 

.IFF 

SAVMAP 

MOV 

ADD 

BIC 

MOV 

MOV 
MOV 
BNE 

.IF  DF 

CALL 

.IFF 

MOV 
MOV 
MOV 
CLC 

.INHO 
CALL 
ADC 
.ENBO 


MSSMGE 
SALOCB 


*XAVLL-2,R0 
(R0),R1 
CR0)+,R1 
aXAVL,(RO) 

R0,R2 

(R2),R0 

15$ 

RSSIIM 

SALOCB 

;  DF  RSSIIH 

R3,-(SP) 
R4,-(SP) 
R1,R3 


SSRQCB 
(SP) 


ALLOCATE  FROM  RSX  POOL  IN  UNMAPPED  SYSTEMS 


SAVE  CURRENT  APR  5  MAPPING 

POINT  TO  ALLOCATION  MASK  WORD 

ADD  ROUNDING  FACTOR 

CLEAR  EXCESS  AND  POINT  TO  LIST  HEAD 

COPY  CEX  POOL  LISTHEAD 

SAVE  ADDRESS  OF  CURRENT  BLOCK 

GET  ADDRESS  OF  NEXT  BLOCK 

IF  NE,  ANOTHER  BLOCK  TO  CHECK 


ELSE,  TRY  TO  ALLOCATE  FROM  RSX  POOL 


SAVE  SOME 

REGISTERS 
COPY  SIZE  OF  BLOCK  REGc  ED 
ASSUME  SUCCESS 

INHIBIT  TASK  SWITCHING 
ALLOCATE  BLOCK  OF  MEMORY 
SET  C-8IT  FOR  RETURN 
ENABLE  TASK  SWITCHING 
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PRIC 
LOCA 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
r9 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
^0 
41 
A2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE   PRALL  -  NTL  PROCESS  ALLOCATION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
D"^ITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

CORE  ALLOCATION  ROUTINES  FOR  ALLOCATING  FROM  PROCESS  PARTITION 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

DECNET-IIM  V3.1 
DECNET-11M-PLUS   Vl.l 

4.00  07-NOV-83 
DECN'T-HM  V4.0 
DEli-jET-IIM-PLUS   V2.0 

4.01  27-AUG-84 

SUPPORT  VECTORED  EXEC 

5.00  22-JUL-85 

ECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl  .0 


PRIO  -   READ   PROCESS    INTO   CORE 
LOCAL    DATA 

135 

136 

137 

138 

139 

HO 

HI    OOOOOO 

U2 

143 

H4 

145 

146  OOOOOO 

147  000002 

148  000004  OOOOOO 
149 
150 
151 
152 
153 

154  000006 
155 
156 
157 
158 
159 

160  000010 
161 
162 
163 
164 
165 

166  000012 
167 
168 
169 
170 

171  000014 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 

184  000020 
185 
186 

187  OOOOOO 
188 
189 
190 
191 
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.SBTTL  LOCAL  DATA 
LOCAL  DATA 

.PSECT  DATA.D 


PR  I 
PR. 


PROCESS  SIZES  (INCLUDING  EXTENSION) 


BLOX: 

BYTES: 

LNKS: 


.BLKW  1 
.BLKW  1 
.WORD   0 


32.  WORD  BLOCKS 

BVTES 

MAXIMUM  LOGICAL  LINKS 


PROCESS  LINE  TABLE/CONTROLLER  TABLE  EXTENSION 

.IF  DF   M$$MGE 
EXTEND:  .BLKU    1 
.ENDC 


ERROR  INDICATION 
ERROR:   .BLKW   1 

.IF  DF   R$$11M 

PARTITION  CONTROL  BLOCK  ADDRESS 
PCBA:    .8LKU   1 

PARTITION  NAME 
|PNAME::.BLKU   2 

.IFF 
•  GCD  BLOCK  ADDRESS 
GCDA:    .8LKW    1 

.ENDC 

LOAD    SIZE   OF    PROCESS 
kDSIZ::.8LKW        1 

.PSECT      ..BUF.D 

DISK  BUFFER  FOR  LABEL  BLOCK  READ 


PRIO  -  READ  PROCESS  INTO  CORE 
PR. SUB  -  CREATE  SUB-PARTITION 

672 
675 
67^ 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 

692 
693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

lyi^ 

715 
716 
717 

718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
^2S 
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.SBTTL  PR. REG  -  CREATE  PROCESS  REGION 


PR 
$A 


PR. REG  -  CREATE  PROCESS  REGION 

THIS  ROUTINE  IS  CALLED  TO  CREATE  A  REGION  TO  HOLD  A  NETWORK  PROCESS  AND 
MAP  TO  THE  REGION  (TO  FORCE  THE  REGION  TO  8E  LOADED).  THE  REGION  WILL 
BE  LOCKED  IN  MEMORY. 

INPUTS: 

RO=LABEL  BLOCK  BUFFER  ADDRESS 
$$PAR=PARTJTION  NAME  (OPTIONAL) 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
GCDA=GCD  BLOCK  ADDRESS 


PR. REG: 


10$: 


15$: 


20$: 


MOV 
MOV 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 

BEQ 

BIS 

CRRG$S 

BCS 

MOV 

CLR 

CLR 

MAP$S 

BCS 

MOV 

mSv 

MOV 

MOV 

CALL 

MOV 

DEC 

ASH 

lis 

MOV 

MOi/ 

INCB 

INC8 

MOV 

CALL 

BCS 

INCB 

CALL 


$$PARt2,$PNAME+2  ;  COPY  PARTITION  OVERRIDE  NAME 

$$PAR,$PNAME 

10$  ;  IF  NE,  USE  OVERRIDE  NAME 

L$ePAR(RO),$PNAME  ;  ELSE  USE  PARTITION  NAME  FROM  PROCESS  FILE 

L$8PAR+2(R0),$PNAME+2 


.WRGID 


#*RNT.,$RNAME 

$NAME,$RNAME+2 

BLOX,.PRSIZ 

#FL.TOP,$FLAGS 

15$ 

#RS.HLD 

#.PRRDB 

101$ 

.PRGID, 

.WDBtW.NOFF 

.WD8+W.NLEN 

#.WD8 

102$ 

R3,-(SP) 

R4,-(SP) 

.CRTSK.RO 

A.HA(RO),RO 

$MAPX 

.PR61D,R3 

R3 

*2,R3 

H.AD8(R2),R3 

#160000, R3 

R2,R3 

(R3),R'i 

R4,GCDA 

G.AC(R4) 

G.IC(r(4) 

g.pd;r4) 

..MUFL 
20$ 

M.I0(R3) 
a(SP)t 


SET  REGION  NAME  TO  "NT. XXX' 

SET'sIZE  of  REGION 
TOP  DOWN  LOADING  REQUIRED? 
BR  IF  NO 
R.GSTS+.PRRDB  ;  SET  TOP  DOWN  LOADING 
CREATE  THE  PROCESS  REGION 
IF  CS,  CREATE  FAILED 
COPY  REGION  ID  FOR  MAPPING 


FLAG 


,R3 


map  to  the  region 
if  cs,  mapping  failed 
get  some  free  registers 

get'addrfss  of  my  atl  node 

get  address  of  task  header 

Map  to  the  task  header 
;  get  the  region  id 
;  start  counting  from  zero 
;  form  offset 

;  compute  offset  into  header 
;  remove  apr  bias 
;  and  use  correct  apr  bias 

;  GET  GCD  NODE  ADDRESS 

;  SAVE  ADDRESS  FOR  CLEANUP 

;  LOCK  REGION  IN  MEMORY 

;  GET'TPD  LISTHEAD  FOR  REGION 

;  FIND  ASSOCIATED  MUL  ENTRY 

;  IF  CS,  NOT  FOUND 

;  LOCK  TIMESHARING  REGION  IN  MEMORY 

;  OROUTINE  RETURN  TO  RESTORE  MAPPING 
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Pfi 
RE 


71 

72 

75 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

8A 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 

100  000006 

101  000006 

102  000010 

103  000012 
10A  OOOOU 

105  000016 

106  000020 

107  000C22 

108  00G02A 

109  000026 
no  000032 

111  00003A 

112  OOOOAO 

113  0000A2 
IK  000044 

115  000046 

116  000050 

117  000052 

118  000054 

119  000056 

120  000060 

121  000064 

122  000070 

123  000072 

124  000074 
125 


061001 
042001 
000261 
001427 
010246 
010002 
011200 
001422 
042700 
051600 
026001 
103767 
001412 
005720 
160110 
060001 
011011 
014041 
010110 
042710 
052710 
011012 
012602 


.SBTTL  $AL0C2  -  ALLOCATE  POOL  SPACE 

'♦»*  -  $AL0C2  -  ALLOCATE  POOL  SPACE  FROM  AREA  OUTSIDE  TASK'S  MAPPING  SPACE 

THIS  ROUTINE  WAS  ADAPTED  FROM  THE  RSX-11M  EXECUTIVE  ROUTINE  $AL0C1. 
ADDITIONAL  CODE  WAS  ADDED  FOR  REMAPPING  OF  THE  ADDRESSES  IN  THE  CHAIN. 
FOR  ADDIJIONAL  EXPLANATION  OF  THIS  ROUTINE,  CONSULT  THE  EXECUTIVE 

THIs'"ROUriNE  ALLOCATES  POOL  SPACE  FROM  MEMORY  THAT  IS  OUTSIDE  THE 
MAPPING  SPACE  OF  THE  TASK.  THE  APR  MUST  HAVE  ALREADY  BEEN  SET  UP  BEFORE 
CALLING  THIS  ROUTINE,  WITH  THE  DISPLACEMENT  FOR  THE  APR  PASSED  IN  R2. 
THIS  ROUTINE  ASSUMES  THAT  THE  POINTERS  IN  THE  LINKED  LIST  ARE  BIASED  BY 
APR6.  THIS  ROUTINE  WILL  ENDEAVOR  TO  PRESERVE  THE  APR6  MAPPING. 

INPUTS: 

RO  =  ADDRESS  OF  ALLOCATION  LISTHEAD-2. 

R1  =  LENGTH  OF  CORE  NEEDED  IN  BYTES 

R2  =  DISPLACEMENT  ADDRESS  (100000  OR  120000) 


OUTPUTS: 

C-8IT 


SET  IF  NO  MEMORY  ALLOCATED 
CLEAR  IF  MEMORY  WAS  ALLOCATED 


$AL0C2: 


IF  SUCCESS: 

RO  =  ADDRESS  OF  THE  ALLOCATED  BLOCK. 
R1  =  LENGTH  OF  THE  ALLOCATED  BLOCK. 


.IF  DF  R$$11M 


160000 
000002 


160000 
140000 


ADD 

(R0),R1 

ROUND  TO  NEXT  BOUNDARY 

BIC 

(R0)t,R1 

CLEAR  EXCESS 

SEC 

ASSUME  ZERO  LENGTH  BLOCK 

3EQ 

30$ 

IF  EQ  ZERO  LENGTH  REQUEST 

MOV 

R2,-(SP) 

SAVE  RELOCATION  ADDRESS 

10$: 

MOV 

R0.R2 

SAVE  ADDRESS  OF  CURRENT  BLOCK 

MOV 

(R2),R0 

GET  ADDRESS  OF  NEXT  BLOCK 

BED 

25$ 

IF  EQ  END  OF  CHAIN 

BIC 

#160000, RO 

CLEAR  CURRENT  MAPPING  REG. 

BIS 

(SP),RO 

USE  OUR  MAPPING  REG. 

CMP 

2(R0),R1 

BLOCK  BIG  ENOUGH? 

BLO 

10$ 

IF  LO  NO 

BEQ 

20$ 

IF  EQ  BLOCK  IS  EXACT  SIZE 

TST 

(R0)  + 

POINT  TO  SIZE  OF  FREE  BLOCK 

SUB 

R1,(R0) 

CALCULATE  SIZE  REMAINING 

ADD 

RO.RI 

POINT  TO  NEW  FREE  BLOCK 

MOV 

(r6),(R1) 

COPY  SIZE 

MOV 

-(R0J,-(R1) 

COPY  LINK 

MOV 

R1,(R0) 

STORE  LINK  TO  NEW  FREE  BLOCK 

BIC 

#160000, (RO) 

ASSUME  OTHER  PEOPLE  USER  APR6 

BIS 

#140000, (RO) 

.  >  ■ 

20$: 

MOV 

(R0),(R2) 

UPDATE  LINK  TO  NEW  FREE  BLOCK 

25$: 

MOV 

(SP)t,R2 

RETORE  RELOCATION  ADDRESS 

30$: 

RETURN 
.ENDC 

PftOERR 
REP'iA  ■ 
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SA[ 


192 
193 
19A 
195 
196 
197 
198 
199 
200 
201 
202 
203 
20A 

205  000066 

206  000072 

207  000074 

208  000100 

209  000102 

210  000104 

211  000110 

212  0001U 

213  000120 

214  000124 

215  000130 

216  000132 

217  000134 

218  000140 

219  000144 

220  000150 

221  000152 


.SBTTL  REP4A  -  REPLACE  PROCESS  NAME 

'rEP4A  -  REPLACE  PROCESS  NAME  AND  CEX  DISPATCH  TABLE  SYMBOL 

INPUTS: 

$NAME=PROCESS  NAME 
R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 

OUTPUTS: 

R0,R1,R2=DESRT0YED 
R3,R4=UPDATED 


112314 
12272'. 
0013-4 
010400 
112744 
112720 
016701 

122740 
001775 
005200 
112720 
112720 
112720 
010004 


000052 


000042 
000044 
OOOOnOG 

000040 


000124 
000102 
000042 


REP4A: 
10$: 


20$: 


CALL 

MOVB 

CMPB 

BNE 

MOV 

MOVB 

MOVB 

MOV 

CALL 

CMPB 

BEQ 

INC 

MOVB 

MOVB 

MOVB 

MOV 

RETURN 


$REP.P 

(R3)<,(R4) 

#'*,(R4)t 

10$ 

R4,R0 

#"'',-(R4) 

#'$,(R0)t 

$NAME,R1 

$C5TA 

»'    ,-(R0) 

20$ 

RO 

#'T, 

#'B, 

#'■■ 


R0,R4 


(R0)t 
(R0)t 
(RO)t 


REPLACE  PROCESS  NAME 

COPY  FORMAT  STRING 

LOOKING  FOR  THE  SECOND  ASTERISK 

COPY  POiNTER 

DEPOSIT  A  DOUBLE  QUOTE 

AND  "$" 

GET   PROCESS   NAME 

CONVERT   TO  ASCII 

SKIP   TRAILING  BLANKS 


DEPOSIT  "T" 

"B" 

AND  ANOTHER  DOUBLE  QUOTE 

SET  NEW  BUFFER  POINTER 
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SYM 


137 
138 
139 
KO 
HI 
U2 
H3 
14A 
U5 
U6 
H7 
U8  000172 

149  000176 

150  000202 

151  000206 

152  000210 

153  000214 

154  000216 

155  000222 

156  000224 

157  000230 

158  000234 

159  000240 

160  000244 

161  000246 

162  000250 

163  000254 

164  000260 

165  000274 

166  000276 

167  000302 

168  000304 

169  000312 
170 

171  000314 

172  000316 
173 

174  000322 

175  000326 

176  000332 

177  000334 

178  000336 

179  000340 

180  000342 

181  000344 

182  000346 

183  000352 

184  000354 

185  000356 

186  000362 

187  000364 

188  000366 

189  000370 
190 

191  000372 

192  000376 

193  000400 


$ADJ 


.SBTTL  $ADJ    -  ALLOCATE  ADJACENCY  DATA  BASE 
-  ALLOCATE  ADJACENCY  DATA  BASE 


017703 
005763 
001522 
016705 
005001 
156501 
005201 
066301 
066301 
012700 

000241 
010104 
062701 
042701 

010205 

103004 


010502 
010062 


005000 
050200 
010502 
010401 
000241 
006201 
005762 
001003 
005301 
016320 
005020 
005301 
001375 


005762 
001032 
010401 


OOOOOOG 
000060 

OOOOOOG 

OOOOOOG 

000054 
000056 
000004 


000077 
000077 


000072 


000074 
000014 

000074 


INPUTS: 

$PDVA  - 

XPT  PDV  ADDRESS 

R2 

XPT  ODB  ADDRESS 

OUTPUTS: 

ADJACENCY  DATA  BASE  ALLOCATED 

ADJ  : : 

CALL 

SSAVAL               ; 

MOV 

aDECPT,R3 
D$NN(R3) 

TST 

BEO 

60$ 

MOV 

$PDVA,R5 

CLR 

R1 

Bise 

7.LLN(R5),R1 

INC 

R1 

ADD 

D$NBRA(R3),R1 

ADD 

D$N8EA(R3),R1 

MOV 

*A$LEN,RO 

CALL 

$MUL 

CLC 

MOV 

R1,R4                ; 
#7?,R1 

ADD 

BIC 

*77, R1 

ASR$ 

6,R1 

MOV 

R2,fi5 

CALL 

$ALN18 

BCC 

10$ 

EMSG$ 

9D 

RF'  iRN 

10$: 

MOV 

R5,R2 

MOV 

R0,N$ADJl(R2) 

20$: 

SWSTKS 

40$ 

CALL 

$MAPX 

CLR 

RO 

BIS 

R2,R0 

MOV 

R5,R2 

MOV 

R4,R1 

CLC 

ASR 

R1                  '. 

TST 

N$ADJ2(R2) 

BNE 

30$ 

DEC 

R1 

MOV 

D$L^JUM(R3),(R0)  + 

30$: 

CLR 

(R0)  + 

DEC 

R1 

BNE 

30$ 

RETURN 

401: 

TST 

N$ADJ2(R2) 

BNE 

70$ 

MOV 

R4,R1 

SAVE  REGS 

GET  DECNET  HOME  BLOCK  ADDRESS 

ENDNODE  ? 

IF  YES  -  PRANCH 

STORE  DPV  ADDRESS 

GET  NUMBER  OF  CIRCUITS 

INCLUDE  LOOPBACK  CHANNEL 

GET  NUMBER  OF  ROUTER  ADJACENCIES 

INCLUDE  NUMBER  OF  ENDNODE  ADJACENCIES 

SET  SIZE  OF  FIRST  ADJACENCY 

CALCULATE  SIZE 

CLEAR  C-8IT 

SAVE  TOTAL  BYTE  SIZE 

ROUND  UP  TO  NEXT  BLOCK 

CONVERT  TO  BLOCKS 
SAVE  XPT  DDB  ADDRESS 
ALLOCATE  BLOCK 

IF  SUCCESS  -  BRANCH 
TYPE  ERROR 


RESTORE  XPT  DDB  ADDRESS 
COPY  BIAS  OF  FIRST  ADJACENCY 


ENTER  SYSTEM  STATE 
MAP  TO  ADJACENCY 


RESTORE  XPT  DDB  ADDRESS 

COPY  BYTE  COUNT 

CLEAR  C-BIT 

CONVERT  SIZE  TO  WORDS 

SECOND  ADJACENCY  ? 

IF  YES  -  BRANCH 

COUNT  ONE  LESS 

SET  UP  CHANNEL  0 

ZERO  OUT  BLOCK 

COUNT  ONE  LESS 

IF  MORE  -  BRANCH 


SECOND  ADJ  ALLOCATED  ? 
IF  YES  -  BRANCH 
STORE  TOTAL  BYTE  SIZE 


N  13 
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IMP 


95 

96 

97 

98 

99 
100 
101 
102 
103 
10^ 
105 
106 
107 
108 
109 
110 
111 

112  000000 

113  000000 
IK  000004 

115  000012 

116  000016 

117  000022 

118  000026 

119  000030 

120  000032 
121 

122  000036 

123  000042 
12A  000046 

125  000052 

126  000054 

127  000056 

128  000062 

129  000066 

130  000072 

131  000074 
132 

133  000076 

134  000102 

135  000106 
136 

137  000110 

138  000114 

139  000116 

140  000122 

141  000124 

142  000126 

143  000130 

144  000132 

145  000156 

146  000140 

147  000144 

148  000152 

149  000154 

150  000156 

151  000160 


SSYMBL   -   SEARCH   SYMBOL    TABLE    FILE    FOR  DEf INITIONlS) 

THIS   ROUTINE    IS   CALLED    TO  PROCESS   A   TASK  BUILDER  OUTPUT    SYMBOL    TABLE 
FILE    AND   TO   EXTRACT    SYMBOL   VALUES. 

INPUTS: 

RO  =   FIRST   SYMBOL   BLOCK  ADDRESS 
Rl   =   FILE   SPEC   ADDRESS 
R2   =   FILE    SPEC    LENGTH 

OUTPUTS: 

C-BIT    =   SUCCESS/FAILURE 

RO  =  ERROR  CODE 

Rl  =  NUMBER  OF  UNDEFINED  SYMBOLS 

R2  =  NUMBER  OF  DEFINED  SYMBOLS 


iSYMBL : 


112767  OOOOOOG  OOOOOOG 


016705 
062703 
010346 
011346 
012715 

005066 
005066 
005066 
010005 
001455 
005060 
005060 
005266 
011000 
001370 


105777 
100441 


103424 

103417 
102771 
010500 
001414 
005760 
001006 

026666 
001403 
011000 
001565 
000755 


OOOOOOC 
OOOOOOG 


074742 

000006 
000010 
000012 


000002        5$: 

000010 

000010 


OOOOOOG 

i6$: 

000002        20$: 

000010  000012 

50$: 


CALL 

MOVB 

CALL 

MOV 

ADD 

MOV 

MOV 

MOV 

CLR 
CLR 
CLR 
MOV 
BEQ 
CLR 
CLR 
INC 
MOV 
BNE 

CALL 
TST8 
BMI 

CALL 

BCS 

CALL 

BCS 

BVS 

MOV 

BEQ 

TST 

BNE 

CALL 

CMP 

BEQ 

MOV 

BNE 

BR 


$CLSAV  ; 

#CL.OPN,$CLFLG  ; 

SSAVU  ; 
$CLFDB+F.DFNB,P:) 

#N.FTYP,R3  ; 

R3,-(SP)  ; 

(R3),-(SP)  ; 

**RSTB,(R3)  i 


SAVE  GCL  CONTEXT 
SET  STATUS  FOR  STB  SEARCH 
SAVE  ALL  REGISTERS 
;  POINT  AT  GCL'S  FDB'S  DEFAULT  NAMEBLOCK 
AND  AT  DEFAULT  EXTENSION  WORD 
SAVE  ITS  ADDRESS 
AND  ITS  CONTENTS 
USE  "STB"  AS  DEFAULT  EXTENSION 


6(SP) 

ZERO  THE  ERROR  CODE 

8.(SP) 

THE  SYMBOL  COUNT 

10. (SP) 

AND  THE  DEFINITION  COUNT 

R0,fi5 

COPY  FIRST  SYMBOL  BLOCK  ADDRESS 

loh 

..  NO  BLOCKS  AT  ALL  ! 

S8.DEF(R0) 

MARK  SYMBOL  AS  UNDEFINED 

SB.VAL(RO) 

AND  VALUE  AS  ZERO 

8.(SP) 

TALLY  THE  BLOCK 

(RO),RO 

GET  NEXT  BLOCK  IN  LIST 

5$ 

..  NOT  AT  END  YET 

SCLOUE 

OPEN  STB  FILE 

a$CLios 

SUCCESS  ? 

111$ 

NO  .. 

READ 

50$ 

CHECK 

40$ 

10$ 

R5,R0 

40i 

SB.DEF(RO) 

30$ 

LOOK 

8.(SP),10.(SP) 

40$ 

(R0),R0 

20$ 

10$ 


READ  NEXT  RECORD 

..  READ  FAILURE 

CHECK  STB  RECORD  FORMAT 

..  BAD  FORMAT 

..  NOT  GSD  RECORD 

GET  FIRST  SYMBOL  BLOCK  ADDRESS 

..  END  GSD  RECORD  SEEN 

IS  THIS  SYMBOL  ALREADY  DEFINED  ? 

YES  .. 

LOOK  FOR  IT  WITHIN  CURRENT  RECORD 

ALL  SYMBOLS  DEFINED  ? 

YES  .. 

GET  NEXT  SYMBOL  BLOCK  ADDRESS 

..  KEEP  CHECKING  THIS  RECORD 

END  OF  LIST  ..  GET  NEXT  RECORD 


N  U 
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TM 


158 
159 

$CNB 

-   ".CNS 

'  ACTION  ROUTINE 

160 

$CNW 

-  ".CNU 

■  ACTION  ROUTINE 

161 

162 

INPUTS: 

163 

$SLTA= 

SLT    AUDRESS 

16A 

165 

OUTPUTS: 

166 

RO.RI, 

R2=DESTR0YE[) 

167 

;CN8:: 

168  0001 ?6 

169  000126 

CALL 

SVfDDM 

170  000132 

016700 

OOOOOOG 

MOV 

$SLTA,R0 

171   000136 

116067 

000012     OOOOOOG 

wove 

L.CTL(R0),$VALUE 

172  OOOKA 

CALLR 

$8YTE 

173 

17A  000150 

>lNW:: 

175  000150 

CALL 

SVfDDM 

176  000154 

016700 

OOOOOOG 

MOV 

$SLTA,RO 

177  000160 

005001 

CLR 

R1 

178  000162 

156001 

000012 

BIS8 

L.CTL(R0),R1 

179  000166 

010167 

OOOOOOG 

MOV 

RI.SVALUE 

180  000172 

CALLR 

SWORD 

MAKE  SURE  IT'S  A  DDM 
GET  SLT  ADDRESS 
;  COPY  CONTROLLER  NUMBER  INTO  SVALUE 
PRETEND  IT'S  A  ".BYTE" 


MAKE  SURE  IT'S  A  DDM 

GET  SLT  ADDRESS 

GET  CONTROLLER  NUMBER  AS  A  WORD  VALUE 


COPY  IT  INTO  SVALUE 
PRETEND  IT'S  A  ".WORD' 


TMPAi' 


N  15 

TENIPLATE   PROCESSING  AC   MACRO  v05.0?b   Saturday   29-Jun-85   00:38     Page  ?1 


49; 
i9A 

49') 
496 
497 
498 
499 
500 
501 
502 
505  001 0?6 

504  001026 

505  001032 

506  001032 

507  001036 

508  001040 

509  001044 

510  001050 

511  001054 

512  00106=: 


005C6?  OOOOOOG 


103411 
112722 
116722 
116712 
062767 


OOOOOOG 
OOOOOOG 
000001 G 
000002 


SWORD  -  ".WORD"  ACTION  ROUTINE 

SZWORD  -  ACTION  ROUTINE  TQ  STORE  A  ZERO  WORD 

INPUTS: 

$VALUE=WORD   VALUE 

OUTPUTS: 

R2--DE5rR0yED 


iZWORD: 
SWORD:: 


OOOOOOG 


lOS: 


CLR 

CALL 

BCS 

M0V8 

M0V8 

H0V8 

ADD 

RETURN 


SVALUE 


USE  ZERO  AS  EXPRESSION  VALUE 


SRQ3 

;  REQUEST  BINARY  FILE 

lOS 

;  IF  CS,  NO  ACCESS 

#.W0RD,(P2)t 

;  STORE  FUNCTION  CODE 

SVALUE, (R2)» 

;  STORE  WORD  VALUE 

$VALUEt1,(R2) 

#2,$SIZE 

;  ADJUST  DATA  BASE  SI 

CI  K      5  F    10  N  14 


J  5 

E  10 

K  5 

F  10 

L   5  NTLlIM 

G  10 

M  5 

H  10 

N  5 

I  10 

B  6 

J  10 

C  6 

K  10 

D  6 

L  10 

E  6 

M  10 

F  6 

N  10 

G  6 

B  11 

H  6 

C  11 

I  6  POLAL 

D  11 

J  6 

E  11 

K  6 

F  11 

L  6 

G  11 

H  6 

H  11 

g  ^ 

I  11 
J  11 

C  7 

K  11 

L  11 
M  11 
N  11 

G  £ 

8  12 

H  7 

C  12 

I  7 

D  12 

J  7 

E  12 

K  7 

F  12 

L  7  PRALL 

G  12 

M  7 

H  12 

N  7 

I  12 

B  § 

J  12 

c 

K  12 

D 

L  12 

E  < 

M  12 

F  1 

N  12 

G  !: 

B  13 

H  8 

C  1| 

I  8  PR  10 

D  13 

E  13 

K     i 

F  13 

L 

G  13 

M 

H  13 

N  1 

I  13 

B  9 

J  13 

C  9 

K  13 

1)  9 

L  13 

E  9 

M  13 

F  9 

N  13 

G  9 

B  14 

H  9 

C  U 

I  9 

D  U 

J  9 

E  K 

K  9 

F  U 

L  9 

G  U 

M  9 

H  U 

N  9 

I  U 

B  10 

J  U 

l]l 

K  U 

L  U 

B  15 

r  15 


F      1  N     5  I   10  D  15 

G     1  B     6  J   10     PROAL  E     5 

G  15 
H  15 
I   1'^ 
„     „  -    ..  J   1^ 

Ml  H     6  C   11  K   15 

N      1  16     POLAL  D    11  L     5 

2  J  6  E  11  M  5 
r  2  K  6  F  11  N  15 
5  2  L  6  Gil  PROERR  B  16 
E  2  H  6  H  11  C  16 
F  2  N  6  1  t)  16 
G  2  B  7  J  11  E  16 
H  2  C  7  K  11  F  16 
12  D  7  Ml  G  16 
J     2                                   E     7                                   Mil  H  16 

<  2  P  7  N  11  I  16 
L  2  G  7  B  12  J  16 
M  2  H  7  C  12  K  16 
N     2  17  D  12  L   16 

3  J  7  E  12  M  16 
C      3  "  "  " 

E  3  M     7  ^"  H  12     PROXPT 

f  3  - 

G  3 

H  3 

I  3 

J  3 

K  3 

L  3 

M  3 

N  3 

B  4 

C  4 

D  4 

E  4 

F  4 

H  4  C     9  K    13     SYMBL 

14 

J  4 

<  4 
L  4 
M  4 
!V  4 
B  5 
C  5 
D  5 

F      5  N     9  I    14      IMPACT 

G      5 

H       5 

I     5 


TMPACT     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:38 
MACRO  CROSS  REfERENCC 


B  1 

PAGE  5 

CREF   OA.OO 


TMP/i 
ACT  I 


MACRO  NAME 
CALL 


CALLR 
EMSGS 
EMSGSR 
NTLERS 

RETURN 


SLTDF$ 
SOB 


REFERF  . 

6-125 

11-228 

18-393 

22-532 

8-172 

#5-59 

#5-59 

#5-59 
6-134 
17-364 
24-605 

#5-59 
26-641 


6-129 

12-251 

18-394 

23-576 

8-180 

12-251 

13-277 

5-74 

7-156 

18-398 

25-618 

5-61 


7-151 
13-265 
19-433 
24-603 

23-576 

13-278 

5-75 

9-198 

19-438 

26-644 


8-169 
14-299 
19-434 
27-664 

24-603 

26-649 

5-76 

10-215 

20-463 

27-665 


8-175 

14-302 

20-458 


27-664 

26-650 

5-77 

11-232 

20-489 


9-192 

14-304 

20-459 


5-78 

12-252 

21-512 


9-193 

15-322 

20-480 


5-79 

13-272 

22-530 


10-210 
16-340 
20-485 


5-80 

14-308 

22-541 


10-211 
17-359 
21-506 


5-81 

15-326 

22-544 


11-227 
17-360 
22-526 


16-345 
23-578 


•  •►  :.t'*:r"«TMPAco 


c    1 


IMP/ 

act: 


B  2 

TMPACO  -  NTL  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85  00:58 
ACTION  ROUTINES 


257 
258 
259 
260 

261  000252 

262  000260 

263  000266 


;  ERROR  CONDITIONS 

ini 

121$: 
1313 


EMSGSR  23 
EMSGSR  Ih 
EMSGSR  25 


Pcge  13-1 


INTERRUPT  LINKAGE  ERROR 
VECTOR  NOT  IN  SYSTEM 
VECTOR  NOT  AVAILABLE 


TMPAi 


TMPACl  -  NTL  TEMPLATE  PR0CES51N  MACRO  V05.05b  Saturday  29-Jun-85 
ACTION  RCU'INE'^ 


S0:i 


8  Page  U 


TMPA 


B  3 
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TMPAT 


296  000606 

297 

?98 

299 

300 

30T  000610 

302  000616 

303  000624 
304 

305 


40$:    RETURN 

ERROR  CONDITIONS 

i01$:  EMSGSR  41 
111$:  FM^G$R  42 
CTLERR:  EMSG$R  22 

.DSA8L  LSB 


".MPLHD"  OPERATOR  MISSING 
".LFLHD"  OPERATOR  MISSING 
FILE  COUNT  TOO  LARGE 
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TMPAi 
Svmh( 


B  4 
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TMPA( 


180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192  000210 

193  00021 A 

194  000216 

195  000222 

196  000224 

197  000232 
193  000236 

199  000242 

200  000244 

201  000250 

202  000252 

203  000256 

204  000260 

205  000266 
206 

20/ 
208 


REP2A  -  REPLACE  PROCESS  TYPE  AND  SYMBOL  NAME 

INPUTS: 

R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 
ASYM=ASCn  SYMBOL  (6  CHARACTERS) 

OUTPUTS: 

R0,R1=DESTR0YED 
R3,R4=UPDATED 


112314 
122724 
001374 
112764 
012700 
012701 
112014 
122724 
001403 


005204 

112764  000042 


000052 

000042 

000000' 

0C0006 

000040 


177777 


REP2A: 
10$: 


20$: 


177777  30$: 


000001 


CALL 
M0V8 
CMPB 
BNE 

Move 

MOV 
MOV 

Move 

CMPB 
BEd 
S08 
INC 

Move 

RETURN 


.END 


$REP.C 

(R3)+,(R4) 

*'*,(R4)+ 

10$ 

#"',-1(R4) 

#ASYM,RO 

#6,R'! 

(R0)+,(R4) 

#'  ,(R4)+ 

30$ 

R1,20$ 

R4 

#"',-l(R4) 


REPLACE  PROCESS  NAME 
LOOK  FOR  SECOND  ASTERISK 


DEPOSIT  DOUBLE  QUOTE 
GET  ASCII  SYMBOL  ADDRESS 
MAXIMUM  OF  6  CHARACTERS 
LOOK  FOR  FIRST  BLANK 


OR  6  NON-BLANKS 

NO  BLANK  TO  CLOBBER 

STORE  ANOTHER  DOUBLE  QUOTE 


C     4 
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5vmhol    fable  _   . 


TMPA 
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MAXU  -  CHECK  FOR  NO  MORE  THAN  U.  ALLOCAT'n-'S 

INPUTS: 

$NALL=NUM8ES  OF  ALLOCATIONS 
$NLi3^NUM8ER  OF  I  '8RARIES 

OUTPUTS: 

C-8IT  =  SUCCESS/FA.UURE 
RO=DESTROYED 


TMPACA   - 

NTL    TEMPLATE   PR0CESS:N 

335 

336 

337 

338 

339 

3A0 

3A1 

3'' 

34i 

34A 

3A5 

3A6 

00057A 

116^00     OOOOOOG 

3A7 

000600 

0100A6 

3A8 

00060? 

116700     0O00C"G 

3A9 

000606 

062600 

350 

000610 

022700     000015 

351 

0006-!A 

103A0I 

352 

000616 

353 

35A 

355 

356 

357 

000620 

TMP/ 


MAXU:  M0V8 
MOV 
M0V8 
ADD 
CMP 
BCS 
RETURN 


$NALL,RO 

RO,-(SP) 

$NLI8,R0 

(SP)+,RO 

#13.,R0 

101$ 


ERROR  CONDITION 
iOlt:   EM3GSR  78 


GET  NUMBER  OF  ALLOCATIONS 

SAVE  IT 

GET  NUMBER  OF  LIBRARIES 

ADD  THE  TWO  TOGETHER 

ARE  WE  AT  THE  MAXIMUM  ALREADY? 

IF  CS,  NO  MORE  ALLOWED 


ONLV  U.  ALLOCATIONS/LIBRARIES  ALLOWED 
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TMP 
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THPACS  -  MIL  TEMPLATE  PROCESSIM  MACRO  V05.03b  Saturday  29-Jun-85  00;^0  Page  8-1 


TMF 
$LI 


24A  000310 
2A5  000316 
2A6  00032A 
2A?  000352 
2A8  0003A0 
2A9 
250 
251 


116777  OOOOOOG  OOOOOOG 


000001 


101$: 

Move 

$I0S8,5 

$CLIOS 

EMSG$R 

n 

111$: 

EMSG$R 

73 

121$: 

EMSGIR 

7A 

131$: 

EMSG$R 

75 

COPY  ERROR  CODE 
LABEL  BLOCK  READ  FAILURE 
INVALID  BINARY  IMAGE 
SIZE  EXCEEDS  32K-32  WORDS 
EXTENSION  EXCEEDS  32K  WORDS 


.END 


TMPAC5  -  NTL  TEMPI  ATE  PROCESSIN  MACRO  V0^.03b  Saturday  29-Jun 


-85  00:40  Page  8-2 


«hol   ^iKI  ( 


TMI 


TMPAC6 
$LIBR1 


NTL  TEMPLATE  PROCi 
.LIBR  OPERANP  1 


176 

177 

178 

179 

•ISO 

181 

182 

185 

18A 

185 

186 

187 

188 

189 

190 

191 

19" 

193  000106 

19A  000106 

195  0001U 

196  000116 

197  000124 

198  000130 

199  0001 3A 
200 

201 

202 

203 

204 

205 

206 

207 

?0« 

209 

210 

211 

212 

213  OOOUO 

214 

215 

216  000''42 

217 

218 

217 

220 

221 

222  000;46 

223  COC152 

224  000156 

225  000160 

226  000164 

227  000170 

228  000174 
22"  000200 
23C  0u0204 
231  000210 
r32  000214 
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.SBTTL  SLieRl  -  .LIBR  OPERAMD  1 

SLIBRI  -  ".LIBR"  OPERAND  1  ACTIOM  ROUTIW 

THIS  ROUTINE  IS  CALLED  TO  LOOK  FOR  AN  EXISTING  LIBRARY  WHOSE  NAME  MATCHES 
THE  FIlE  name  from  THE  TEMPLATE  LINF.  IF  NO  MATCH  IS  FOUND,  THE  TPARS 
TRANSITION  IS  REJECTED. 


INPUTS 


PSTPT=TPAfiS  STRING  POINTER 
PSTCN=TPARS  COUNT 


OUTPUTS: 

F2.L8R  SET  IF  A  MATCH  IS  FOUND 
$LBIAS=LIBRARV  DESCRIPTOR  BIAS  (MAPPED  ONLY) 
$L8ADR=LI8RAfiY  DESCRIPTOR  ADDRESS  OR  0 


032767 
001517 
016767 
016700 
012701 
016702 


COOOOOG  OOOOOOG 

OOOOOOG  000042- 
OOOOOOG 
000030' 
OOOOOOG 


klBRl 


112021 


5$: 


10$: 


012702 
166702 
001404 
112721 

012700 

010167 

010167 


000011 
OOOOOOG 

000040 

000030' 

OOOOOOG 

000002G 


20$: 
30$: 


BIT 
BEQ 
MOV 
MOV 
MOV 
MOV 

.IF  DF 

SAVRG 

MOV 

MOV 

CLRB 

SOB 

RESRG 

MOV 

MOVB 
.IFTF 

MOVB 

.IFF 

SOB 

.IFT 

SOB 

RESRG 

.ENDC 

MOV 
SUB 

BEQ 

MOVB 

SOB 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 


#F2.FI'  ,$FLAG2 

65$ 

SFLAGS,. FLAGS 

.PSTPT.RO 

#ASCII,R1 

.PSTCN,R2 

R$$MPL 

<R3,R2> 

*$LI6NM,R3 

#10.,R2 

(R3)  + 

R2,1$ 

<R2> 

*$LIBNM,R3 

(R0),(R3)<' 
(R0)+,(R1)+ 

R2,10$ 

R2,5$ 
<R3> 


#9.,R2 

.PSTCN,R2 

30$ 

*'  ,(Rl)t 

R2j0$ 

#ASCII,RO 

$CAT5 

Rl,$FNR50 

$CAT5 

R!,$FNR50'-2 

$CAT5 


WAS  VALID  FILE  NAME  SEEN: 

IF  EQ,  NO 

MAKE  A  LOCAL  COPY  OF  $FLAGS 

GET  TPARS  POINTER 

LOCAL  DATA  ADDRESS 

AND  TPARS  LENGTH 


SAVE  REGS 

GET  BUFFER  ADDRESS 
GET  BUFFER  SIZE 
SPACE  OUT  BUFFER 

RE-  tore'!pstcn 

GET  BUFFER  ADDRESS 


COPY  FILE  NAME 
;  COPY  FIlE  name 

•  restore'reg 


BLANK 
IF  EO, 

CONVER 


LL  OUT  TO  9  CHARACTERS 
NAME  WAS  9  LONG 

ILE  NAME  TO  RAD50 
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ti  IDD1   _ 


IDD  nDCDAMn  1 


TMPAC6     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:40 
SV^BOL  CROSS  REFERENCE 


SVMBOL  VALUE 


X2BHI 

X2BL< 

X2BL0 

X2WHI 

X2WL0 

X3BH1 

X3BL0 

X3Wh! 

X3WLC 

SAZFS 

SBFPTR 

tCAPR 

SCATS 

SCORE? 

SELINE 

SERR2K 

$ERR39 

$ERR89 

$ERR90 

$ERR91 

SriLEN 

SFLAGS 

$FLAG1 

$FLAG2 

$FNR50 

SLBADR 

SLBIAS 

SLIBR1 

SLINKS 

SMAPX 

SREP.C 

SRQI 

JRQ7 

SSIZE 

STERR 

STWARN 

SUMROF 

SUMRON 

SVALlJE 

SVFLLC 
SVFLVl 
SVXLLC 
$X2CHB 
SX2CHW 
SX3CHB 
SX3CHW 
.BASEB 
.CXLBR 
.CXLB' 
.FLAGS 
.LINKS 


000003 
000002 
000001 
000005 
OOOOOA 
000013 
000003 
000002 
000001 

****** 


-  ****** 
r  ****** 

-  ****** 


GX 
GX 
GX 
GX 

000000  RG 
»***♦.  GX 
0OC1O6  R 
00004A  R 
000150  R 
000176  R 
000232  R 

GX 
GX 
GX 
GX 
GX 
GX 
GX 

000106  RG 
00057A  RG 
«**♦*»  GX 
••♦*»♦  GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 


****** 
****** 


****** 
****** 


-   ****** 


*  *** 

000700  RG 
000622  RG 
*♦«**.  (3x 

001156  R 
*♦«***  GX 
001176  R 
001034  RG 
000710  RG 
001076  RG 
000752  RG 
UOOOO 
******  GX 
******  GX 
000042  R 
......  GX 


REFERENCES 

#6-73 
#6-74 
#6-72 
#6-71 
#6-70 
#6-69 
#6-68 
#6-67 
#6-66 

10-297 
♦10-286 
*9-168 

10-228 
#9-152 

8-117 
#8-118 
#8-117 
#8-120 
#8-121 
#8-122 

10-295 

10-196 

9-153 

9-169 
•10-229 
*10-234 
*11-314 
#10-193 
#12-354 

10-238 

8-117 

12-356 

10-285 
♦12-359 

8-118 

8-117 
#14-408 
#13-376 

9-155 

16-473 

12-355 

10-280 

15-437 
#16-472 
#15-430 
#16-482 
#15-440 
#5-62 

10-24  7 

10-241 
#7-108 

12-358 


16-475 
15-431 
16-473 
15-435 
15-433 
16-485 
16-483 
15-443 
15-441 


♦10-284 
10-230 

8-118 

13-391 

9-163 

17-511 

18-529 

15-445 

17-509 

11-329 

10-194 

•10-231 

•11-337 


13-384 

8-118 

15-449 

•15-451 
8-120 


•9-166 
16-475 
15-446 

16-4  79 


16-477 


10- '32 
8-120 

16-487 

18-527 
♦13-377 

10-276 
•10-233 


8-120 
16-491 

•16-493 
8-121 


7-98  10-283 

♦10-196  11-527 


B     8 
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CREf        04.00 


Ty 


8-121 


8-122 


•14-409 

•10-288         ♦11-336 
11-320  11-322 


11-339 
11-324 


8-121 


8-122 


♦10-283  15-431 

16-477  16-483 

16-488  #17-508 

#18-527 


8-122 


15-433 
16-485 


15-435 
16-489 


15-441 


15-443 


15-447 


TflPACe 
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TM[ 


36A 
365 
366 
367 
368 
369 
370 
371 
372 
373 

375 
376 
377 
378 

379  00057A 

380  000576 

381  000602 

382  00060A 

383  000610 

384  000512 

385  00C614 

386  000616 

387  000620 

388  000622 
38'T  000626 

390  00063J 

391  000634 

392  000636 

393  000642 

394  000646 
395 

396 
397 
398 
399 


REP6  -  REPLACE  LIBRARY  NAME  AMD  THEN  FORM  APR  NUMBER 

INPUTS: 

R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 
$CAPR=APR  NUMBER  IN  BINARY 

OUTPUTS: 

RO=DESTROYED 
R3,R4=UPDATED 


.IF  DF   MSSMGE 


112314 

122724  000052 

005304 

012700  OOOOOOG 

112024 

001376 

005304 

Ci0500 

005720 

122720  000120 

001375 

122720  000122 

00^3^2 

1127i0  000060 

156710  OOOOOOG 


000001 


REP6: 


10$: 


20$: 


Move 

CMPB 

DEC 

MOV 

MOVB 

BNE 

DEC 

MOV 

TST 

CMP8 

BNE 

CMPB 

BNE 

MOVB 

BIS8 

RETURN 

.ENDC 


.ENJ 


tR3)+,(R4) 

*'*,(R4)t 

R4 

#$FJLEN,RO 

(R0)+,(R4)t 

10$ 

R4 

R5,R0 

(kO)  + 

#'P,(RO)+ 

20$ 

#'R,(RO)t 

20$ 

*'0,(R0) 

$i.APR,fRO) 


COPY  FORMAT  STRING 
LOOKING  FOR  FIRST  ASTERISK 
SKIP  THE  ASTERISK 
GET  ASCIZ  FILE  NAME  ADDRESS 
COPY  THE  FILE  NAME 

SKIP  the"zero  byte 
copy  error  message  block  address 
now  points  at  text  string 
look  for  "p" 

followed'by  "R" 

FORM  APr'nuMBER 
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TMP 


2 
3 

5 

6 

7 

8 

9 

10 
11 
12 
13 
K 
15 
16 
17 
18 

10 

20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
3^ 
32 
33 
3A 
35 
36 
37 
38 
39 
AG 
41 
A2 
43 
^.A 
A5 
46 
47 
48 
49 
50 
51 
52 


.TITLE   TMPAC9  -  NTL  TEMPLATE  PROCESSIMG  ACTION  ROUTIMES 
.JDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARC,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  \  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONIY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  T9  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
Tt^ANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOP  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SurPLIED  BY  DIGITAL. 

MODULE  DESCRIPTiON: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  9 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.G 
DECNbT-IIM-PLUS  VI .0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22- MJL-85 

DECnet-llM/S   V4.2 
DECnet-llM-Plui   V3.0 
DECnet-Micro/RSX   Vl .0 


ITS 
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TMF 
XIC 


K9 
150 
151 
152 
153 
15A 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 

168  000000 

169  OOOOOA 

170  000006 

171  OCOOH 

172  000016 

173  000024 

174  000026 

175  00003? 

176  000040 

177  000042 

178  000046 

179  000050 

180  000054 
181 

182  000056 

183  000062 

184  0CO066 
185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200  000072 

201 

202 

203 

204  000076 

205  OCOIOO 


005767 
100507 
0327^^7 
001103 
032767 
001411 
016^01 
032761 
001003 


.SBTTL  STMALT  -  ALLOCATE  LINE  TABLE 

'STMALT  -  ALLOCATE  LINE  TABLE  FROM  DYNAMIC  STORAGE 

THIS  ROUTINE  IS  CALLED  TO  ALLOCATE  THE  PROCESS  LINE  TABLE  FROM  DYNAMIC 
STORAGE  AND  TO  SAVE  ITS  ADDRESS  FOR  THE  BINARY  EXPANSION  ROUTINES. 


INPUTS: 


$SIZE=NUMBER  OF  BYTES  NEEDED 


OUTPUTS: 

RO.Rl 
$ADDR 
$1C8AD 
SICBSZ 


OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 


STMALT: 


103466 

016701  OOOOOOG 

001464 

062701  000003 

042701  000003 

010167  OOOOOOG 


5$: 

10$: 


11$: 
12$: 


103465 

010067  OOOOOOG 


.ENABL 
:TST 
BMI 
BIT 
BNE 
BIT 
BEQ 
MOV 
BIT 
BNE 
CALL 
BCS 
MOV 
BEO 

ADD 
BIG 
MOV 

.IF  DF 

MOV 

ADD 

BJT 

BEO 

BIT 

BEQ 

CALL 

BR 

CALL 


.IFF 
CALL 
.ENDC 


BCS 
MOV 


=  DESTROYED 

=  LINE  TABLE  ADDRESS 

=   ADDRESS  OF    KB    (ONLY   FOR   DDM'S) 

=  SIZE  OF  KB 

NOTE:  ALL  KB ' S  FOR  A  CONTROLLER  ARE  ALLOCATED  CONTIGUOUSLY. 


LS8 

SFLAGl 

30$ 

#FL.CHA,$FLAGS 

30$ 

#FL.DDM,$FLAGS 

5$ 

$PDVA,R1 

*ZF. PSE,Z.FLG(R1) 

5$ 

KRBAL 

30$ 

$SIZE,R1 

101$ 

*3,fi1 
*3,R1 
R1,$SIZE 

R$$MPL 

FMASK,FM2TMP 

*2,FM2TMP 

#F?.DAS,SFM2TMP 

11$ 

#FL.DDM,$FLAGS 

11$ 

$ALP16 

12$ 

$ALPRO 


$A'_PRO 


111$ 
RO,$ADDR 


ANY  ERROR  YET? 

BR  IF  YES,  DO  NOTHING 

MUX  CHARACTERISTICS  UPDATE  ONLY 

YES  .. 

IS  THIS  A  DDM  ? 

IF  EQ,  NO 

GET  PDV  ADDRESS 

IS    THIS   A  PSEU'JO-DEVKE? 

BR    IF    YES 

ALLOCATE  THE  KRB 

IF  CS,  FAILURE 
GET  BYTE  COUNT  NEEDED 
IF  ZERO,  ERROR 

ROUND  UP  NEXT  MULTIPLE  OF  4 

RESET  LINE  TABLE  SIZE 


GET  SFMASK  ADDRESS 

$FMASK+2 

IS  DATA  SPACE  ENABLED  ■>. 

IF  EQ,  NO  -  JUST  LIKE  IIM 
IS  THIS  A  DDM? 
IF  EQ,  NO 

TRY  TO  ALLOCATE  SPACE  FROM  PROCESS 
AND  CONTINUE 
TRY  TO  ALLOCATE  FROM  PRO/CEX/RSX 


.-ALLOCATE  SINGLEWORD  STORAGE 


;BR    IF    FAILURE 

;SET   LINE    TABLE    ADDRESS 


c  n 
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XKB  -  DEALLOCATE    KB 

753 

754 

755 

756 

757 

758 

75=5 

760  30$: 

761 

762 

763 

764 

765  001352     016700     OOOOOOG  40$: 

766 

767 

768 

76'? 

770 

771 

772 

773 

774 

775 

776 

777 

773  001364 

779 

780 

781 

782  001370  50$: 

783 


001352     016700     OOOOOOG 

001356     001404 

001360     016701      OOOOOOG 


SUB 

CALL 

MOV 

BEQ 

MOV 

BNE 

CRASH 

MOV 

BR 

#2,R3 

DEAC2 

(SP)t,RO 

30$ 

R2.-(SP) 

10$ 

(SP)  +  ,ai>;SAR5 
50$ 

♦  DE-ALLOCATE  THE  ICB 

*  IS  THERE  ANOTHER  ICB  ? 

•  IF  EQ,  NO 

*  DOES  POINTER  CONTAIN  A  CPU  NUMBER  ? 
«  IF  Nf,  YES 
**»  ONLr  1  ICB  PER  CONTROLLER  ???  •♦♦ 

*  RESTORE  PREVIOUS  MAPPING 

•  AND  LEAVE 

.IFTF 

;  DF  R$$MPL 

MOV 
BEQ 
MOV 

$jC8AD,R0 

50$ 

$IC8SZ,R1 

* 

* 

GET  THE  ICB  ADDRESS 
IF  EQ,  NONE  -  SO  LEAVE 
GET  THE  LENGTH  OF  THE  ICB 

.IFT 

;  DF  R$$MPL 

TST 
MOV 

sue 

CALL 

-(RO) 
ICAVL,R2 
*2,R2 
5)DEAC1 

* 
* 
* 

■  * 

INCLUDE  COUNT  AND  SIZE  FIELDS 
GET  ADDRESS  OF  ICB  LISTHEAD 

DE-ALLOCATE  THE  ICB  BLOCK 

.:ff 

;  DF  R$$MPL 

CALL 

SDEACB 

•  * 

DE-ALLOCATE  THE  ICB  BLOCK 

.ENCC 

;  DF  R$$MPL 

RETURN 
.ENDC 

;  DF     R$$nM  £  M$$MGE 

•   * 

BACK  TO  USER  MODE  AND  TO  CALLER 
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,       B 

13 

IMP ALT 

CREATED   BY 

MACRO     ON  29 

-JUN-85  AT 

00:41 

PAGE   5 

SYMBOL 

CiiOSS   REFERENCE 

CREF        04 

00 

SYMBOL 

VALUE 

REFERENCES 

UBLTA 

00120A 

R 

11-549 

11-597 

#13-674 

XICB 

001312 

R 

8-301 

11-636 

#14-710 

XLT 

001272 

R 

8-302 

11-637 

#14-701 

ZF.PSE 

-   ****** 

GX 

8-175 

8-212 

10  449 

14-716 

Z.AVL 

r   ****** 

GX 

15-845 

Z.FLG 

i:     ****** 

GX 

8-175 

8-212 

10-449 

14-716 

$ADDR 

-     ****** 

GX 

»8-205 

»8-296 

13-678 

14-701 

*14-703 

14-718 

$ALN18 

=     ****** 

GX 

11-581 

SALPRO 

z:      ****** 

GX 

8-200 

$DEAC2 

=      ****** 

GX 

15-847 

$DEA16 

z:     ****** 

GX 

15-879 

SERR33 

000012 

R 

*7-103 

8-299 

$ERR3A 

OOOOA'. 

R 

#7-104 

8-300 

$ERR35 

000112 

R 

#7-105 

10-473 

$ERR36 

000150 

R 

#7-106 

10-474 

$ERR37 

000216 

R 

#7-107 

10-475 

SERRBA 

000260 

R 

#7-108 

10-476 

$ERR86 

000322 

R 

#7-109 

11-638 

$ERR9B 

000372 

R 

#7-110 

8-303 

$ERR9r 

000432 

R 

#7-111 

9-428 

$ERR9Y 

000472 

R 

#7-112 

SFLAGS 

-      ****** 

GX 

8-170 

8-172 

8-209 

8-297 

10-446 

14-713 

SFLAGI 

r      ****** 

GX 

8-168 

10-444 

SICBAD 

r      ***■**♦ 

GX 

«8-275 

14-765 

SICBLN 

~      ****** 

GX 

8-241 

SICBSZ 

=     ****** 

GX 

*8-214 

*8-244 

14-767 

SKRBLN 

-      ****** 

GX 

9-330 

$LDA 

r     ****** 

GX 

*11-508 

11-546 

♦13-693 

$MAPX 

=     ****** 

GX 

11-515 

11-590 

15-839 

$NALL 

-     ****** 

GX 

11-499 

13-682 

13-686 

13-689 

SNLIG 

r     ****** 

GX 

11-500 

SNVECT 

3     ****** 

GX 

8-240 

10-451 

IPCB 

-     ****** 

GX 

15-829 

$PDVA 

-      ***  **ir 

GX 

8-174 

8-211 

10-448 

12-657 

14-715 

15-816 

SPRAVL 

-      ****** 

GX 

15-842 

15-848 

SREP.P 

r     ****** 

GX 

7-103 

7-104 

7-105 

7-106 

7-107 

7-108 

7-109 

7-110 

7-111 

SSIZE 

-     ****** 

GX 

8-179 

•8-184 

13-679 

14-702 

SSLTA 

-     ****** 

GX 

9-371 

STERR 

r     «***■** 

GX 

7-104 

7-105 

7-106 

7-107 

7-108 

7-109 

7-110 

7-111 

7-112 

STMALT 

000000 

RG 

#8-168 

STMCHK 

000450 

RG 

#10-443 

STWE 

-    ****** 

GX 

7-103 

SUBIAS 

-    ****** 

GX 

»13-675 

$UDA 

-    ♦♦♦*** 

GX 

M1-498 

11-575 

.13-638 

SSCSR 

-    ****** 

GX 

9-367 

$$PRI 

—     ****** 

GX 

9-362 

$ijECT 

--    *♦****■ 

GX 

9-363 

.CXUNL 

—     «*♦*+* 

GX 

11-316 

11-599 

*1 1-602 

.DEA16 

001372 

R 

14-704 

#15-800 

T MP ALT 
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TMPEXP 
Symbol 

A$$CH<= 
AS$CP5= 
A$iPRI= 
ASSTRP: 
Ct$CK,P= 
C$$ORE: 
C$$RSH= 
D$$BUG  = 
D$$ISK  = 
DSSL11= 
D$$YNC: 
DSSYNM: 
EitXPR: 
FL.CHA: 


B  H 

-  MTi  TEMPLATE  EXPANSION  MACRO  V05.03b  Saturday  29-Jun-85  00:A2 
table 


OOOOOC 
000000 
000000 
000000 
000000 
OOOAOO 
17756A 
1775U 
000000 
000001 
000000 
000000 
000000 
•**•*•  6X 


F$$LVL= 
6$$TFP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
;$SRAR= 
1$$RDN= 
K$$CMT= 
'$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 

l$$d:?v= 


000001 
000000 
000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 


L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
N$1ACC= 
N$$eUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 


000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
00000-' 
000001 
000001 
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N$$M0V= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
S$$WRG= 
S$$YSZ= 
T$$KMG= 


000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000000 
007600 
000000 


T$$MIN= 

000000 

V$SCTR= 

001000 

X$$DBT= 

000000 

SADDR  = 

****** 

(,X 

$FLAGS= 

****** 

(iX 

$FLAG1= 

****** 

GX 

$NALL  = 

****** 

GX 

STMEXP 

OOOOOORG 

$TMEX2= 

****** 

(iX 

$TMEX3= 

****** 

GX 

$TMEX5= 

****** 

GX 

$TMEX6= 

****** 

GX 

$TMEX7= 

****** 

GX 

.  ABS.  000000 
000112 
Errors  detected: 


000 
001 
0 


(RU,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 


***  Asb'mbler  statistics 


0 

0 

8920  Words      (    35   Pages) 

14440  Words      (    55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  oool  : 
Ope^atifig      system; 

SY?TMPEXp!v2;[132,134]TMPEXP/LR/-SP-?v..[1,ijrsxMCM.SML/Ml,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[132,10]TMPEXP 
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ADDRB,ADDRW,BLKB,BLKW 
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346 
347 
348 

';    SVSTEM  LINE  NUMBER  (WORD) 

549 

350  000470 

005000 

SLNW: 

CLR     RO 

ASSUME  NORMAL  EXPANSION 

351  000472 

005767 

000154' 

TST     FLAGS 

IS  IT  MUX  EXPANSION? 

552  000476 

100003 

BPL     10$ 

IF  PL,  NO 

353  000500 

016700 

000152' 

MOV     INDEX, RO 

GET  MUX  INDEX 

554  000504 

122020 

CMP8    (RO)t,(RO)t 

SKIP  DLC  LINE  NUMBER 

355  000506 

005003 

10$: 

CLR     R3 

GET  LINE  NUMBER  AS  A  WORD 

356  000510 

156003 

OOOOOOG 

BISB    $SLN(R0),R5 

357  f^00514 

010324 

MOV     R3,(R4)t 

STORE  IT 

358  000516 

RETURN 

359 
360 
561 
362 
363  000520 

;  LOCAL 

NODE  ADDRESS 

017700 

OOOOOOG 

NOD: 

MOV     aDECPT.RO 

STORE  DECNET  HOME  BLOCK  POINTER 

564  000524 

016024 

000014 

MOV     D$LNUM(R0),(R4)+ 

;  COPY  LOCAL  NODE  ADDRESS 

365  000530 

RETURN 

366 
567 
368 

;  PROTOCOL  OVERHEAD  SIZE 

369 

570 

371  000532 

112524 

PRTOV: 

M0V8    (R5)+,(R4)t 

COPY  PROTOCOL  OVERHEAD  SIZE 

372  000534 
373 

RETURN 

374 
375 
376 
377  000556 

;  STATION  NUMBER  (BYTE) 

105767 

000154' 

STNB: 

TST8    FLAGS 

IS  IT  MTP  EXPANSION? 

378  000542 

100404 

BMI     10$ 

IF  MI,  YFS 

379  000544 

022767 

000001 

OOOOOOG 

CMP     #I,$$MTP 

ARE  WE  DEALING  WITH  ONLY  1  STATION  ? 

580  000552 

001005 

BNE     101$ 

IF  NE,  NU 

381  000554 

016700 

000152' 

10$: 

MOV     INDEX, RO 

GET  CURRENT  STATION  INDEX 

382  000560 

116024 

OOOOOOG 

MOVB    $$SNUM(R0),(R4)+ 

;  STORE  STATION  NUMBER 

583  000564 

RETURN 

584  000566 

112724 

177777 

101$: 

MOVB    #-1,(R4)t 

DLC  STNB  NOT  IN  MPTAB  FILE 

385  000572 

RETURN 

586 
387 
388 

389 

590  000574 

;  STATION  NUMBER  (WORD) 

105767 

000154' 

STNW: 

TSTB    FLAGS 

IS  IT  MTP  EXPANSION? 

391  000600 

100404 

BMI     10$ 

IF  MI,  YES 

392  000602 

022767 

000001 

OOOOOOG 

CMP     #1,$$MTP 

ARE  WE  DEALING  WITH  ONLY  1  STATION  ? 

593  000610 

001007 

BNE     101$ 

IF  NE,  NO 

394  000612 

016700 

000152' 

10$: 

MOV     INDEX, RO 

•  GET  CURRENT  STATION  INDEX 

395  000616 

005003 

CLR     R3 

•  GET  STATION  NUMBER 

596  000620 

156003 

OOOOOOG 

BISB    $$SNUM(R0),R5 

397  000624 

010324 

MOV     R3,(fi4)t 

•  STORE  it" 

398  C00626 

RETURN 

599  000630 

012724 

M7m 

101$: 

MOV     #-1,(R4)+ 

;  DLC  STNW  NOT  IN  MPTAB  FILE 

400  000634 

401 

402 

RETURN 

; 

TMPFX?  -  NTL  EXPANSION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85 
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Symbol  table 


'*«  Assembler  statistics 
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Work   tile  reads: 

0 

Jork   file  writes- 

0 

Size  of  work  f i  U  . 

12125  Words 

49  Pages) 

Size  of  core  cool : 

KA40  Words 

55  Pages) 

Oof'ating  system; 

RSX-11M/FLUS 

SY;?MPEXr.y2![°32?°3A]rMPEX2/CR/-Sf --SY:[1  JDRSXMCM.SML/ML  J130J10]rjErLI8/ML,[150JO]RSXrirM^ 


rpPATFn  RY     MAfRn     m  ?9-.lUN-85   AT   00:A2 
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■  •i^PACO 


C     1 


TMPA 
ACTl 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

000000 

TTTTTnTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

000000 

TT 

MMM^ 

MMMM 

PP 

DP 

AA 

AA 

00     00 

TT 

MMMM 

MMMM 

PP 

Dp 

AA 

AA 

00     00 

TT 

MM 

MM  MM 

PP 

PP 

AA 

AA 

00    0000 

TT 

MM 

MM  MM 

PP 

pp 

AA 

AA 

00    0000 

TT 

MM 

MM 

PPPPPPPP 

AA 

AA 

00  00  00 

TT 

MM 

MM 

PPPPPPPP 

AA 

AA 

00  00  00 

TT 

MM 

MM 

PP 

AAAAAAAAAA 

0000    00 

T 

MM 

MM 

PP 

AAAAAAAAAA 

0000    00 

TT 

MM 

MM 

PP 

AA 

AA 

00     00 

TT 

MM 

MM 

PP 

AA 

AA 

00     00 

TT 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

000000 

TT 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

000000 

I.L 

SSS5S5S5 

TTTTT 

TTTTT 

LL 

S5SSSSSS 

TTTTT 

IIIM 

LL 

5S 

LL 

ss 

lL 

ss 

LL 

ss 

LL 

ssssss 

Ll 

SS5SSS 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LlLLlLLLLL 

SS5SSSSS 
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TMPA 
Symt 
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ACTION  ROUTINES 
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TMPA 


265 
266 

REP28 

-  REPLACE  PROCESS  TYPE  AND  VECTOR  VALUE 

267 

268 

INPUTS: 

269 

R2=VECT0R  VALUE 

270 

R5=F0RMAT  STRING  ADDRESS 

271 
272 
273 

R4=ERR0R  MESSAGE  BUFFER  ADDRESS 

OUTPUTS: 

274 

RO.RI 

R2=DESTR0YED 

275 
276 
277 

R3,R4- 

:UPDATED 

00027A 

^EP2B: 

CALL 

SREP.C 

REPLACE  PROCESS  NAME 

2  78 

000300 

11 2^14 

0$: 

MOVB 

(R3)t,(R4) 

LOOK  FOR  SECOND  ASTERIS 

279 

000302 

122724  000052 

CMPB 

*'»,(R4)t 

280 

000306 

001374 

BNE 

10$ 

281 

000310 

005304 

DEC 

R4 

SKIP  the'asterisk 

282 

0003"' 2 

010400 

MOV 

R4,R0 

COPY  BUFFER  ADDRESS 

283 

0003U 

010201 

MOV 

R2,R1 

COPY  VECTOR  VALUE 

284 

000316 

005002 

CLR 

R2 

SUPPRESS  LEADING  ZEROES 

285 

000320 

CALL 

SCBOMG 

CONVERT  TO  OCTAL 

286 

000324 

010004 

MOV 

R0,R4 

SET  NEW  BUFFER  ADDRESS 

287 

000326 

RETURN 

288 

289 

000001 

.END 

TMPACO  -  NTL  TEMPLATE  PROCESSIN  MACRO  V05.05b  Saturday  29-Jun-85  00 
Symbol  table  
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30' 
308 
309 
310 
311 
V2 
313 
3TA 
315 
316 
317 
318 
319 
320 

321  000532 

322  000632 

323  000636 
32A  0006^,2 

325  0006A6 

326  000652 

327  000660 

328  000666 
32^  000672 

330  000676 

331  000702 

332  00070A 

333  000704 

334  000710 

335  0007U 

336  000722 

337  C00724 

338  000730 

339  000^32 

340  000^36 

341  000740 

342  000742 

343  000746 

344  000752 

345  000756 

346  000762 

347  000764 

348  000770 

349  000772 

350  000776 

351  001002 

352  001004 

353  001010 

354  001014 

355  001016 
356 

357 


SMXTAB 
SCFJLE 

INPUTS: 


".MXTAe"  ACTION  ROUTINE 

".FILE"  ACTION  ROUTINE  IF  COUNT  IS  SPECIFIED 


$$MUX/$VALUE=FILE  REPEAT  COUNT 
$FILEN=SECONDARY  TEMPLATE  FILE  NAME 

OUTPUTS: 

R0,R1,R2=0ESTROYED 


tMXTAB: 


012700  OOOOOOG 


016767 
016767 
012700 


0000006  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG 


010067  OOOOOOG 


SCFILE: 


012700 
022767 
103740 
005757 
001432 

103427 
110022 
116712 
016746 


012600 

103412 
112712 
166700 
000402 
160067 
005367 
001373 


OOOOOOG 

000400  OOOOOOG  5$: 

OOOOOOG 


OOOOOOG 
OOOOOOG 


0000006 
0000006 

0000006 
0000006 


10$: 
20$: 

30$: 


.ENABL  LSB 


CALL 

CALL 

MOV 

CALL 

MOV 

MOV 

MOV 

CALL 

MOV 

RETURN 

'call 

MOV 

CMP 

BLO 

TST 

BEQ 

CALL 

BCS 

M0V8 

MOVB 

MOV 

CALL 

CALL 

MOV 

CALL 

BCS 

M0V8 

SUB 

BR 

SUB 

DEC 

BNE 

RETURN 


SVFDDM 

$VFMUX 

#F1.MXT,R0 

SVFSPC 

$SIZE,$0FF 

$$MUX,$VALUE 

#.MXTAB,R0 

5$ 

RO,$MXLEN 


$EVEN 

#.FILE,RO 

*256.,$VALUE 

C7LERR 

SVALUE 

30$ 

$RQ2 

30$ 

R0,(R?)<- 


$VALU 

$SIZE 

$FILE 

SEVEN 

(SP)  + 

SROl 

30$ 

#.El'F 

$SIZE,RO 

20$ 

RO,$SIZE 

$VALUE 

10$ 


(R2) 
(SP) 


,R0 


(R2) 


.DSABL   LSB 


MAKE  SURE  IT'S  A  DDM 

AND  A  MUX  LINE 

MAKE  SURE  THIS  IS  THE  ONLY  OCCURANCE 

USE  CURRENT  SIZE  AS  OFFSET  VALUE 
DO  IT  <UNIT  COUNT>  TIMES 
FUNCTION  CODE  TO  BE  USED 
PROCESS  SECONDARY  TEMPLATE 
SAVE  MUX  TABLE  LENGTH 


AUTOMAHC  WORD  ALIGNMENT  ($FILE  NOT  ALIGNED) 
FUNCTION  CODE  TO  BE  USED 
IS  COUNT  >  256.: 

IF  l:,  yes 

IS  COUNT  0? 

IF  EQ,  YES 

REQUEST  BINARY  FILE 

IF  CS,  NO  ACCESS 

STORE  FUNCTION  CODE 

AND  FILE  REPEAT  COUNT 

SAVE  CURRENT  LINE  TABLE  SIZE 

PROCESS  SECONDARY  TEMPLATE 

AUTOMATIC  WORD  RE-ALIGNMENT 

RESTORE  SIZE  FROM  START  OF  FILE 

REQUEST  BINARY  FILE  AGAIN 

IF  CS,  NO  ACCESS 

STORE  END  OF  FILE  FUNCTION  CODE 

GIVING  AMOUNT  ADDED  BY  SECONDARY  TEMPLATE 

ADJUST  DATA  BASE  SIZE 

BY  ^FILE  C0UNT-1>  *  <FILE  SIZE> 


D  S 
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ThPAC 


ASYM 

A$SCH<= 

A$tCPS= 

Ai$PRl= 

AS$TRP= 

:$$C<P= 

Ct$ORE  = 

C$$RSH= 

D$tBUG= 

.$$ISK= 

D$$Ln  = 

D$$YNC= 

Di$YNM= 

E$$XPR= 

FMT2A 

FMT4 

FM.2A  = 

Fn.4   = 


OOOOOOR 

000000 

000000 

000000 

000000 

000000 

OOOAOO 

17756A 

1775U 

000000 

000001 

000000 

000000 

oooooc 

00022AR 
OOC25AR 
000000 
000000 


002  F$$LVL- 
fl.STE= 
GBLK 
&ETAB 
GSVM 
GVAL 
G$$TPP= 
G$$TSS= 
6$$TTK= 
G$$WRD= 
1$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
002  K$$LDC= 
002  K$$TPS= 
LDSLP  = 
L$SASG= 


000001 

*t****  GX 

000006R 

000022R 

00001 2R 

000016R 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

00007A 

000000 

000000 


L$$DRV= 

L$$P11-- 

002  L$$nR= 

002  M$$CRB= 

002  M$$CRX= 

002  M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$L[)V= 

N$$MCP= 

N$$MLL= 

N$$M0V= 

N$$NCT= 

M$SPEM= 

P$$P45= 


000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 


P$$WRD= 

0$$0PT= 

REP2A 

R$SDER= 

R$$K11= 

R$$SND= 

R$$11M= 

STBEXT 

S$$WRG= 

S$$YSZ= 

T$$KMG= 

T$$MIN= 

V$$C1R= 

X$$rBT= 

$AZF3  = 

SCATS  = 

$CLEVL= 

IELINE= 


000000 

000010 

000210R 

000000 

000001 

000000 

000000 

000304R 

000000 

007600 

000000 

000000 

001000 

000000 

****** 


$ERR27 
$ERR29 
$ERR30 
$ERR31 
$ERR32 
SFLAG1= 
$FNOUT= 
002  SGLOBL 
$PRV.N= 
$REP.C= 
$REP.P= 
$SYMBL= 
STERR  = 
$TWARN= 
$VALUE= 
.PSTCN= 
.PSTPT= 


000C32R 
000054R 
000112R 
000150R 
0001 76R 
*****^  GX 
******  GX 
OOOOOORG 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
*.**«*  GX 


002 
002 
002 
002 
002 


.  ABS.  000000 
000270 
DATA    000310 
Error?  detected: 


000 
001 
002 
0 


(RW,1,6BL,ABS,0VR) 
(RW,I,LCL,REL,COI^) 
(RW,D,LCL,REL,CON) 


*♦*   Assembler   statistics 


Work      file      reads:  0 

Work      file  writes:  0 

Size  of  work   file:  10034  Words      (   40  Pages) 

Size   of   core   pool:  14440  Words      (    55   Pages) 

Operating     system:  RSX-1  IM-'PLUS 

Elapsed   time:    00:00:09.31 
SY:TMPAC3.V2,[r32,134:TMPAC3/CR/-SP  =  SY:[1 


,1]RSXMCM.SML/l«IL,[13C,110]NETLIB/ML,[130,10]RSXMCM/PA:1,[132,10]Ti'lPAC3 


TMPAC3 


CREATED   BY      MACRO     ON  29-JUN-85   AT   00:59 
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359 
360 
361 
362 
363 
36A 
365 
366 
367 
368 
369 
370 
371 
372 
373 
37A 
375 
376 
377 
378 
379 
380 
38' 
382 
383 
38A 
385 
386 
387 
383 


REP6  -  REPLACE  PROCESS  NAME  ANO  THEN  FORM  APR  NUMBER 

INPU'S: 

R3=F0RMAT  STRING  ADDRESS 
R4=ERR0R  MESSAGE  BUFFER  ADDRESS 
$CAPR=APR  NUMBER  IN  BINARV 

OUTPUTS: 

R0=DES.R0rF'' 
R3,Ri;=UPDAIlrD 


. IF    DF      M$$MGE 


G0'j626 

000632  010500 

000634  005720 

000636  122720     000120 

0006A2  0013:"5 

0006A4  122720     000122 

000650  001372 

000652  112710     000060 

000656  156710     OOOOOOG 

000662 


000001 


REPt: 


10$: 


CALL 

MOV 

TST 

CMPB 

BNE 

CMPB 

BNE 

M0V8 

BIS8 

RETURN 

.ENDC 


.END 


SREP.C 

R5,R0 

(R0)t 

*'P,(RO)t 

10$ 

#'R,'RO)t 

10$ 

*'0,(RO) 

$CAPR,(RO) 


REPLACE   PROCESS   NAME 

copy   ERROR  MESSAGE   BLOCK   ADDRESS 

now  points  at  text  string 
look  for  "p" 

followed'by  "R" 

FORM  APR'nUMBER 
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IMP 
SLl 


AtSiHK= 

A$SCPS= 

A$$PRI= 

AStlRP= 

BN.LBL 

BN.OPM 

BUFUMP= 

CMODE  = 

Ct$CKP= 

r$$ORE= 

C$$RSH= 

DFAPR  = 

D5K8UF 

DIJBUG= 

DtlISK= 

D$$L11= 

DS$YNC= 

D$$YNM= 

E$SXPR= 

FL.CHA= 

FMT6 

FM.6   = 

F$$LVL= 

F2.FIL= 

G$$tPP^ 


000000 

000000 

000000 

000000 

0001 62R 

000106R 

172354 

UOOOO 

000000 

OOO'.OO 

17756A 

000006 

OOOOOOR 

17751A 

000000 

000001 

000000 

000000 

oooooo 

».,..*  6X 
00031  OR 

oooooo 

OC0001 
*♦»*»«  GX 
OOOOOO 


G$$TSS= 
G$$TT<= 
G$$WRD= 
I$$RAR= 
1$$RDN-- 
KISARO= 
<ISAR6= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
<$$TPS= 
LDSLP  = 
003  L$BEXT= 
L$BFLG= 
L$BLDZ= 
L$BMXZ= 
LSBSA  = 
L$$ASG= 
L$$PRV= 
L$$P11= 
L$$11R= 
MPAR  = 
MPCSR  = 
M$$CRB= 
Mt$CRX= 


002 


OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

172340 

172354 

177546 

177546 

OOOOOO 

00007s 

OOOOOO 

«»»*»*  GX 

♦*«*♦*  GX 

******  GX 

******  GX 

«»«*»*  GX 

00'>C00 

OOOOOO 

000001 

OOOOOO 

172100 

177746 

000124 

OOOOOO 


M$$FCS= 

OOOOOO 

M$$HGE= 

OOOOOO 

M$$NET= 

OOOOOO 

M$$OVR= 

OOOOOO 

N$$ACC= 

000001 

N$$eUF= 

000001 

N$$LDV= 

000001 

N$$MCP= 

000001 

N$$MLL= 

000001 

N$$MOV= 

000010 

N$$NCT= 

000001 

N$$PEM= 

000001 

PIRQ  = 

Mini 

PMODE  = 

030000 

PRO   = 

oooooo 

PR1 

000040 

PR2   = 

000100 

PR3 

000140 

PR4 

000200 

PR5 

000240 

PR6 

000300 

PR7   = 

000340 

PS 

177776 

P$$P45= 

OOOOOO 

P$$WRD= 

oooooo 

Q$$0PT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SWR 

S$$WRG= 

S$$YSZ= 

TPS 

TS$NHD= 

T$$KMG= 

T$$MIN= 

UBMPfi  = 

UISAR0= 

UISAR1= 

V$$CTR= 

X$$DBT= 

$ABFI 

$A2FS  = 

$BFALL= 

$8FBAS= 

$8FLBN= 

$BFPTR= 

$BFXFR= 

SfAPR  = 


000010 
OOOOOO 
000001 
OOOOOO 

oooooo 

177570 

oooooo 

007600 
177564 

******  GX 

oooooo 
oooooo 

170200 
177640 
177642 
001000 
OOOOOO 
OOOOOORG 
******  GX 
s*****  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 


.  ABS.  00OO''O 
000346 
DATA  000332 
..BUF  00000? 
Errors  d?tectec: 


000 
001 
002 
003 

0 


(RW,I,GBL,ABS,OVR) 
(RW,1,LCL,REL,C0N) 
(RW,D,LCL,REL,C0M) 
'RW,I,LCL,REL,C0N; 


$CLDEQ= 

******  GX 

$CLIOS= 

******  GX 

$CLOPE= 

******  GX 

$CUR.N= 

******  GX 

$EFNLL= 

******  GX 

$ERR69 

OOOOOOR 

002 

$ERR71 

000036R 

()()2 

$ERR72 

000066R 

002 

$ERR73 

0001 40R 

002 

$ERR74 

000202R 

(H.V 

$ERR75 

000244R 

002 

$FILEN^ 

******  GX 

SFLAGS^ 

******  GX 

$FLAG2= 

******  GX 

$I0S&  = 

******  GX 

$LBN  -- 

*****  GX 

$PRV.N= 

******  GX 

$REP.C= 

******  GX 

$REP.P= 

******  GX 

$RLBL  = 

******  GX 

$RQ7  = 

******  GX 

STERR  = 

******  GX 

$VALUE= 

******  GX 

$VFLV1= 

******  GX 

.BASEB= 

140000 

•♦«  Assembler  statistics 

Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  11137  Words  (  44  Pagps) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operat^'ng  system:  RSX-11M/PLUS 

SrfTMPAC5!"/2!ci32,134jT|viPAr5/CR/-SP=SY:[l,1]RSXhCM.SML/ML,[130,110]NETL.'B/ML,[130,10]PSXMCM/PA:l,[132,10]TMPAC5 
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SLlB^i  -  .LIBR  OPERAND  1 


233  000220 

23A  00022A 

235 

256  000230 

237  000234 

238  0002AO 
259 

240  000244 

241  000246 

242  000252 
245  000256 

244  000260 

245  000264 
246 

247  000266 

248  000272 

249  0C0274 

250  000276 

251  000300 

252  000504 

253  000506 

254  000312 

255  000314 

256  000320 

257  000322 

258  000326 

259  000330 

260  000354 
261 

262 

265  000336 
264  C00340 
265 

266  000342 
267 

268 
269 
270 
271 
272 
275 
274 
275 

276  000344 

277  000352 
2n  000554 
27?  0C0560 

280  000562 

281  000366 
232 

283  000372 
28'.  000400 

285  000^' J6 

286  000412 
2^7   000416 

288  000420 

289  000426 


010167 
005067 


000004G 
OOOOOOG 


017700  OOOOOOG 


C1020C 
062702 

105C51 

105026 

016011 
001425 
0100C2 
022222 

103016 

105015 

103010 

103005 

105002 


oron 

001555 


OOOOOOG 


OOOOOOG 


40$: 


052767 
001003 
062716 
000422 


012767 
112767 

010267 
■03003 
042767 


50$: 
50i.: 

50$: 

OOOOOOG  OOOOOOG  60$ 

000002         65$ 

70$ 

140000  OOOOOOG 
000006  OOOOOOG 

OOOOCCG 

OOOOOOG  OCOOOuG 

80$: 


MOV 
CLR 

SWST.<$ 

MOV 

CALL 

MOV 

ADD 

CALL 

BCC 

CAlL 

BCC 

MOV 

BED 
MOV 

cMr 

CALL 

BCC 

CALL 

BCC 

CALL 

BCC 

CALL 

BCC 

CALL 

BCC 

.IF  DF 

MOV 

BNE 

RETURN 

CALL 

.IFF 

MOV 

BNE 

.ENDC 

BIT 

BNE 

ADD 

BR 

CALL 

CALL 

MOV 

M0V8 

CALL 

MOV 

BCC 

B!C 

RETURN 


R1,$FNR50t4 
$L6ADR 

60$ 

SNTLPT,RO 

$MAPX 


P2 


R2,R0 

#.CXLB1, 

CHECK 

50$ 

CHECK 

50$ 


.CXL6R(R0),(R1) 
50$ 


(R2)< 


R0,R2 

(rJ)+, 

CHECK 

50$ 

CHECK 

50$ 

CHECK 

50$ 

CHECK 

50$ 

CHECK 

50$ 


M$$MGE 

;R0),(R1) 

40$ 

.IF  DF   R$$nM 

.IFF 

a(SP)+ 

.ENDC 

(R0),R0 
40$ 


#F2.L8R,$FLAG2 

70$ 

*2,(SP) 

80$ 

$VFLV1 

FFN 

*.8ASEB,$VALUE 

#DFAPR,$rAPR 

$RQ7 

R2,$tiFPTR 

80i 

#F2.FIL,$FLAG2 
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INDICATE  NO  LIBRARV  ADDRESS  VET 

.  ENTER  KERNEL  MODE 

'  GET  NETLDR  DATA  BLOCK  BIAS 

r  MAP  TO  THE  DATA  BLOCK 

>  SAVE  VIRTUAL  ADDRESS 

>  OFFSET  lu  LIBRARY  DESCRIr'TORS 
'  LOOK  FOR  A  MATCH 

>  IF  CC,  GOT  ONE  I 

'  TWO  DESCRIPTORS  IN  DATA  BLOCK 


MAP  TO  THE  FIRST  LIBRARV  BLOCK 
IF  EQ,  THERE  IS  NONE 
RESTORE  VIRTUAL  ADDRESS 


5Y 
SY 

_p 

Ip 

.X 
.X 


SKIP  L 


LOOK  FOR  A  MATCH 


WITH  F 


NK  WORD  AND  COUNT 


VE  DESCRIPTORS  IN  IHIS  BLOCK 


;•  MAP  TO  THE  NEXT  LIBRARY  BLOCK 
;*  IF  NE,  THERE  IS  ANOTHER  ONE 

;*  BACK  TO  USER  MODE 

;;;  RE-ENABLE  TASK  SWITCHING 


GET  NEXT  LIBRARY  BLOCK  ADDRESS 
IF  NE,  THERE  IS  ANOTHER  ONE 


WAS  LIBRARV  FOUND? 

IF  NE,  YES 

REJECT  TPARS  TRANSITION 

MAKE  SURE  IT'S  THE  PRIMARY  TEMPLATE 
FIX  FILE  NAME  FOR  ERROR  MESSAGES 

SET  DEFAULT  MAPPING 

AND  DEFAULT  APR  NUMBFR 

RESl'ESI  BINARY  BUFFER  ACCESS 

SAVE  BUFFER  POINTER 

IF  CC,  ACCESS  GRANTED 

ELSE  CLEAR  VALID  FILE  NAME  FLAG 


TMPi,-|^  -  NTL  TEMPLATE  PROCESSIN  MACRO  V05.05b  Saturday 
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TMPAC6     CREATED  BY 
SYMBOL  CROSS  REFERENCE 
SYMBOL   VALUE 


MACRO  OM  29-JJN-85  AT  00:40 


C  8 

PAGE  3 

CRfF   04.00 


P^TCN  =  ****** 

Ipstpt  =  ****** 

.X2CH1  -  ****** 

.X3r01  =  »♦**«* 


GX 
GX 
GX 
GX 


REFERENCES 

10-199 
10-197 
15-430 
15-440 


10-223 

16-472 
16-482 


Tf 

Sy 
A$ 

A5 
AJ 
A$ 
B/i 
C5 
CI 
C! 
D1 
DI 
D1 
Di 
DJ 
El 
Fl 
Ff 
ff 
F« 
F^ 
FS 


D/ 
Ef 


Wc 


0| 
E 


TMPAC6 


CREATES  BY      MACRO     ON  29-JUN-B5   AT   00:40 
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Symbol  table 
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ASICHK= 

At$CPS= 

A$SPRI= 

AS$TRP= 

BASE 

C$SCK,P= 

C!.SORE  = 

C$$RSH= 

DS$BUG= 

DB$!S<= 

D$SL11= 

D$$YNC= 

D$$VNM= 

E$$XPR= 

FL.CHA= 

FMT2 

FHT6 

FM.2  = 

FM.6  = 

F$$LVL= 

Fl .UMR= 

F2.fIL= 


000000 

000000 

000000 

000000 

0C0356R 

000000 

000400 

177564 

17751A 

000000 

000001 

000000 

000000 

000000 

*»*««*  GX 

00023ARG 

0O0253RG 

000000 

000000 

000001 

•••»»*  GX 


F2.LeR= 

G$$TPP= 

G$$TSS= 

GS$TTK= 

G$$WRD= 

I$$RAR= 

I$$RON= 

K$$CMT= 

K$SrsR= 

K$$LDC= 

K$$TPS= 

LBLK 

LB.APR= 

,B.USE  = 

LDSLP  = 

002  LINK 

'"  L$S\SG= 
L$$DRV= 
L$$P11= 
L$$11R= 
MAX1A 
M$$CRB= 


002 


«» .*♦»  GX 

000000 

000000 

000000 

000000 

000000 

000000 

1775A6 

1775A6 

000000 

00007A 

OOOOOORG 

«***»*  GX 

******  GX 

000000 

000306R 

000000 

000000 

000001 

000000 

0OO252R 

00012A 


«$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
NTLPT  = 
N$$ACC= 
N$$BUF= 
NS$LDV= 
N$$MCP= 
N$$MLL= 
002  N$$MOV= 
NI$$NCT  = 
N$$PEM= 
P$$PA5= 
P$$WRD= 
Q$$OPT= 
REP6 
R$$[)ER  = 
R$$Kn  = 
R$$SND= 
R$$11M= 


000000 

000000 

000000 

000000 

000000 

******  6X 

000001 

00000  I 

OOOOul 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

00057AR 

000000 

000001 

000000 

000000 


S$$WRG= 

000000 

$ERRY6 

00015AR 

S$$YSZ= 

007600 

$FUEN= 

».*«»*  GX 

T$$KMG= 

000000 

$FLAGS= 

******  GX 

T$$MIN= 

000000 

$FLAG1= 

******  GX 

USE 

000A26R 

$FLAG2= 

******  GX 

V$$CTR= 

001000 

$LBADR= 

******  GX 

XFER 

000112R 

$L8ERR 

0005A0RG 

X$$D8T^ 

000000 

$LBIAS= 

******  GX 

$ALB  - 

******  GX 

$LBXFR= 

******  GX 

$ALL18= 

*'****  GX 

SLIBR 

OOOOOORG 

$ALNi8= 

***•-**  GX 

$MAPX  = 

******  GX 

$BFALL= 

******  GX 

SNAIL  = 

******  GX 

$BF8AS= 

******  GX 

SNLIB  = 

******  GX 

$BFPTR= 

******  GX 

$REP.C= 

******  GX 

$CAPR  = 

******  GX 

$REP.P= 

******  GX 

$CLDEQ= 

******  GX 

SSIZE  = 

******  GX 

$[)EA18= 

******  GX 

STERR  = 

******  GX 

$EFNLL= 

******  GX 

STWARN= 

******  GX 

$ELINE= 

******  GX 

SVALUE- 

******  GX 

$ERRY2 

000002R 

002 

.CXLBR-- 

******  GX 

$ERRY3 

000036R 

002 

.LIBR  = 

******  GX 

SERRYA 

000110R 

002 

002 


.  ABS.  000000 
000650 
DATA    00027A 
Errors  c'e''ected: 


000 
00- 
002 

0 


(RW,I,G8L,ABS,0VR) 
{RW,I,LCL,REL,CONJ 
!RW,D,LCL,REL,CON) 


♦♦♦   AsserTibler   staf'stics 

work      file      reads:  0 

Work      'lie   writes:  0 

Size  of    work    file:  10250   Words      (    A1    Pages) 

Size   or   core  tooi:  UAAO  Words      (    55   Pages) 

Operdting      system:  RSX-11M/PLUS 

SYfTMPAC7!v2![132,13A]tMPAC7/CR/-SP  =  5Y:[1,1]RSXM(l»I.SML/ML,[130,110]NETLI8/ML,[130,10]RSX|V|CM/PA:1,[132,10]TMPAC7 
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TMF 
ST^ 


5A 

55 

56 

57 

58 

59 

60 

61 

62 

63  000000 

64 

65 

66 

67 

68  000000 

69 

70 

71 

72 

73  000.  2 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 


90 

91 

92 

93 

94 

95 

96 

97 

98  000004 

99 
100 
101 
102  000000 


LIBRARY  MACROS 

.MCALL  ASR$,EMSG$,NTLER$ 

LOCAL  DATA 

*  ** 

.PSECT  DATA.D 

LISRARV  ADDRESS  WITHIN  NTPOOL 
BFADR:   .BLKW    1 

NETLDR  DATA  BLOCK  BIAS 

NLBLK:   .BLKJ   1 

.IF  DF   R$$MPL 

LISTAB:  .ASCII   /SXXXVT/ 
LIBLEI^:  .ASCII   /SXXXVL/ 

ST8EXT:  .ASCIZ   /ST8/ 


LI8TB:  .WORD 

LI8r85:  .BLKW 

TA8VAL:  .WORD 

LI8LN:  .WORD 

LIBLN5:  .8LKW 

LENVAL:  .WORD 


LI8LN,0 

2 

0 

0,0 

2 

0 


LIBRARY  VECTOR  TABLE  START 
LIBRARY  VECTOR  TABLE  LENGTH 

SYMBOL  TABLE  EXTEMSIOM 

SYMBOL  CONTROL  BLOCK  FOR  $XXXVT 

SYMBOL  CONTROL  BLOCK  FOR  SXXXVL 


.ENDC 

ERROR  MESSAGE  (FORMAT  STRING  ADDRESS  DEFINED  GLOBALLY  IN  "TMPAC7") 

.ENABL  LC 

NTLERS  ,Y5,6,$TERR,SCUR.N,$EFNLL,<Read  Failure  (-***.)> 

.DSABL  LC 
.PSECT 
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STMAL'  -  ALLOCATE  LINE  TABLE 


Page 


IMF 
.DE 


206 

207 
208 
209  000104 

.IF    DF 

M$$MGE 

052767 

OOOOOOG  OOOOOOG 

BIT 

*FL.DDM,$FLAGS 

210  000112 

001442 

BED 

20$ 

211   000114 

016701 

OOOOOOG 

MOV 

$PDVA,R1 

212  000120 

032761 

OOOOOOG  OOOOOOG 

BIT 

*ZF.PSE,Z.FLG(R1) 

213  000126 

001034 

BNE 

20$ 

214  000130 

005067 

OOOOOOG 

CLR 

$IC8SZ 

215 

216 

.IF    DF    R$$MPL 

2^7 

BIT 

#F2.DAS,aFM2TMP 

218 

BNE 

13$ 

219 

2  2 'J 
221 

.ENDC 

.IF    DF 

R$$11M 

222  000134 

020027 

120000 

CMP 

R0,/*120000 

223  000140 

103427 

BLO 

20$ 

224 

225 

.IFF 

226 

227 

CMP 

R0,*60000 

228 

BHIS 

20$ 

229 

.ENDC 

230 
231 
232 
233 
234  000142 

■    ALLOCATE    K8 

FOR   DDM. 

005001 

13$: 

CLR 

R1 

235 

236 

.IF    DF 

R$$11M 

237  000144 

SWSTK$ 

18$ 

238 
239 

240  000150 

.ENDC 

016700 

OOOOOOG 

MOV 

$NVECT,R0 

241   000154 

066701 

OOOOOOG 

15$: 

ADD 

$ICBLN,R1 

242  000160 

005300 

DEC 

RO 

243  000162 

003374 

BGT 

15$ 

244  000164 

245 

246 

247 

248 

010167 

OOOOOOG 

MOV 

R1,$ICSSZ 

.IF    DF      R$$MPL 

ADD 

#4,$KBSZ 

249 

CAH 

SAL  KB 

250 

251 

252 

.IFF 

253 

254 

.IF    DF 

R$$11M 

255  000170 

CALL 

aALOCB 

?56 

257 

.JFF 

258 

MEG 

Rl 

"59 

CLC 

}Q 

.INHO 

.51 

CALL 

SALOCB 

262 

ADC 

CSP) 

IS  PROCESS  A  DDM? 

IF  EQ,  MO 

GET  PDV  ADDRESS 

IS  This  A  PSEUDO-DEVICE? 

BR  IF  YES 

CLEAR  SIZE  OF  THE  IC8  ALLOCATION 


:IS  DATA  SPACE  ENABLED  ? 

;IF  NE,  YES  -  ALWAYS  NEED  KB 


,-IS  LINE  TABLE  AT  END  OF  PARTITION? 
;  IF  LO,  NO 


IS  LINE  TABLE  AT  END  OF  PARTITION? 
BR  IF  NO 


;  CLEAR  BYTE  COUNT  NEEDED 
;*  ENTER  KERNEL  MODE 


*  GET  NUMBER  OF  INT.  VETCTORS 

*  ADD  IN  SIZE  OF  EACH  INT.  VECTOR 

*  DONE? 

*  IF  GT,  NO 

*  STORE  SIZE  OF  REQUIRED  ALLOCATION 


*  DON'T  FORGET  LINK  POINTER  AND  COUNT  FIELD 

*  ALLOCATE  THE  ICB'S 

*  NOTE  -  RO  =  ZERO  ON  MP  SYSTEMS 


:•  ALLOCATE  FROM  RSX  FOOL. 


*  DON'T  ALLOCATE  FROM  CEX  POOL 

*  BE  SURE  CARRY  IS  CLEAR 

*  DISABLE  TASK  SWITCHING 

*  ALLOCATE  FROM  SCOM 
«  SAVE  CARRY 
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TMI 


'MPALT  -  TEMPLATE  ALLOCATION  RO  MACRO 
.DEAIt  -  END  OF  PROCESS  DEALLOCATION 


785 
786 
787 
788 
789 
790 
791 
792 
79 'i 
79A 
7Q5 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 


C  12 

V05.03b  Saturday  29-,)un-85  00:41  Page  15 

.S8TTL   .DEA16  -  END  OF  PROCESS  DEALLOCATION 

.DEA16  -  END  OF  PROCESS  OE-ALLOCATION  ROUTINE 

THIS  ROUTINE  iS  CALLED  IN  PI  ACE  OF  "$DEA16",  TO  ALLOW  BOTH  NORMAL  AND 
PARTITION  ALLOCATIONS  TO  BE  RELEASED. 


001372 


001372     022700     120000 
001376     101036 


INPUTS: 
RO 
R1 


ALLOCATION  ADDRESS 
ALLOCATION  SIZE 


OUTPUTS: 

R0,R1,R2  =  DESTROYED 
R3,R4,R5  =  SAVED 

'.DEA16: 


809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
82A 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
341 


001400     016704     OOOOOOG 


001404 


001410 
001412 


010003 
010105 


0014,4     016700 
001420     016000 


OOOOOOG 
OOOOOOG 


001424 

001430  010300 

001432  010501 


.IF  DF 

M$$MGE 

.IF  DF  R$$11M 

CMP 
BHI 

#1 20000, RO 
20$ 

.IFF 

;  DF  R$$11M 

CMP 

BHIS 

SAVRG 

RO. #10000 

20$ 

<R3,R4,R5> 

.if:f 

;  DF  R$$11M 

MOV 

$PDVA,R4 

.IFT 

;  DF  R$$11M 

SWSTK$ 

30$ 

.IFTF 

;  DF  R$$11M 

MOV 
MOV 

R0,R3          ; 
R1,R5 

.IFT 

;  DF  K$$11M 

MOV 
MOV 

$PC8,R0 
P.REL(R0),R0 

.IFF 

;  DF  R$$11M 

MOV 
MOV 

$GCD,RO 
G.8A(R0),R0 

.IFTF 

;  DF  R$$11M 

CALL 

MOV 

MOv 

$MAPX 
R3,R0 
R5,R1 

IS  ALLOCATION  FROM  PARTITION  SPACE 
NO  ..  DE-ALLOCATE  NORMALLY 


IS  ALLOCATION  FROM  PARTITION  SPACE? 
BR  IF  NO  -  DEALLOCATE  NORMALLY 
SAVE  R3-R5 


GET  THE  PDV  ADDRESS 


•  ENTER  KERNEL  MODE 


*  C3PV  ALLOCATION  ADDRESS 

*  AND  SIZE 


♦  GET  THE  PCB  ADDRESS 

♦  MAP  TO  THE  PROCESS 


•  GET  THE  GCD  ADDRESS 

♦  GET  BIAS  OF  PROCESS 


•  RESTORE  ALLOCATION  ADDRESS 

*  AND  SIZE 
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TMPALT     CREATED  Br 
MACRO  CROSS  REFERENCE 


MACRO 


»1ACR0  NAME 

ASR$ 
CALL 


CALL" 

CRASH 

EMSG$ 

EMSGtR 

NkRDF$ 

NTLERS 

RESRG 
RETURN 

SAVRG 
SLTf^Ft 
SOB 
SWSTKS 


REFERENCES 

»5-58 

8-177 

11-512 

14-778 

14-704 

9-429 
#5-58 
»5-58 
*5-59 
*5-58 

7-11? 
»5-59 

8-276 

15-858 
#5-59 
#5-58 

11-596 

8-237 


8-200 

11-515 

15-820 

12-661 

8-299 
5-69 

7-103 


8-291 
15-880 

5-61 

9-329 


-85  AT 

00 

41 

PAGE 
CREf 

C  13 

4 

04.00 

8-237 

11-549 

15-839 

8-255 

11-581 
15-847 

8-288 

11-586 

15-879 

8-301 
11-590 

8-302 

11-597 

9-329 
11-636 

9-331 
11-637 

8-300 

8-303 

9-428 

10-473 

lP-474 

10-475 

10-476 

7-104 

7-105 

7-106 

7-107 

7-108 

7-109 

7-110 

9-334 


11-512 


9-424 


11-586 


10-468 


14-721 


11-559 


15-820 


11-631 


12-668 


13-694 


11-497 
14-721 


11-638 

7-111 

14-782 


'FILE* 


«TMPERR 


0  13 


TMPEXP 

CHEATED   BY 

MACRO     ON  29-JUN-85   AT   00:A2 

PAGE 

SYMBOL 

:R0S5   REFERENCE 

CREF 

SYMBOL 

VALUE 

REFERENCES 

FL.CHA 

Z       ****** 

fix 

5-76 

MS$I*IGE 

=  000000 

5-79 

R$$11M 

=  000000 

5-81                5-107 

tADDR 

-    ****** 

GX 

5-72               5-82               5-108 

tFLAGS 

~    ****** 

GX 

5-76 

SFLAGI 

~    ****** 

GX 

5-74 

SNALL 

-    ****** 

GX 

5-99 

STMEXP 

000000 

RG 

#5-71 

$TMEX2 

r     ****** 

GX 

5-97 

$TMEX3 

r     ******* 

GX 

5-10' 

$TMEX5 

z      ****** 

GX 

5-123 

$TMEX6 

-    **♦**» 

GX 

5-84 

$TMEX7 

r     ****** 

GX 

5-110 

c  u 

04.00 


CRFATFn   RY      MACRil      ON   P9-JUN-85    AT    00:42  PAGE    ^ 


TMPEX?  -  NTL  EXPANSION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85 
ADDRB,ADt)RU,BLKB,BLKU 


b0:A 


2  Page  9-5 


403 

404 

405  000635 

005767 

000154' 

406  000642 

001403 

407  000644 

116724 

000152' 

408  000650 

409  000652 

112724 

177777 

410  000656 

411 

412 

413 

4'4 

415  000660 

005767 

000154' 

416  000564 

001403 

417  000665 

016724 

000152' 

418  000672 

419  000674 

012724 

17777?" 

420  000700 

421 

422 

423 

424 

425  0C0702 

112524 

426  000704 

112524 

427  000706 

;  UNIT 

NUMBER 

BYTE) 

UNB: 
101$: 

TSl 

BEQ 

M0V8 

RETURN 

M0V8 

RETURN 

FLAGS 
101$ 
INDEX, (R4)t 

#-1,(R4)t 

;  UNIT 

NUMBER 

WORD) 

UNW: 
101$: 

TST 

BEQ 

MOV 

RETURN 

MOV 

RETURN 

FLAGS 
101$ 
INDEX, (R4)t 

*-1,(R4)t 

;  SINGLE  WORD 

WORD: 

Move 
Move 

RETURN 

(R5)t,(R4)t 
{R5)+,(R4)t 

IS  IT  EITHER  MUX  OR  MTP  EXPANSION? 

IF  EQ,  NO 

STORE  CURRENT  MUX  INDEX 

UNB  NOT  IN  EITHER  MXTAB  OR  MPTAB  FILE 


IS  IT  EITHER  MUX  OR  MTP  EXPANSION? 

IF  EQ,  NO 

STORE  CURRENT  MUX  INDEX 

UNW  NOT  IN  EITHER  MXTAB  OR  MPTAB  FILE 


COPV  A  WORD 
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IMPEX2  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:42 

CROSS  REFERENCE 


C  16 

PAGE   1 

CftEF       04.00 


A. ORB 

ADDRW 

APR 

BLKB 

BLUW 

BYTE 

CORE 

CSR 

CTIM 

DECPT 

DPRB 

DPRW 

OVCHA 

DSLNUM 

DSMLL 

EOF 

FILE 

FLAGS 

FL.DDM 
FL.DLC 
FL.KMX 
FL.MUX 
INDEX 


INT 

I$$AS 

<SAR5 

LB. ADR 

LFILE 

LF.ACT 

LF.BRO 

LF.BWT 

LF.ENA 

LF.LPB 


VALUE 

000046 
000072 


R 

R 

OOT630  R 


000122 
000134 
000146 


000710  R 


GX 


000152 
000164 

:z      ****** 

001656 
001664 
000172 
000014 
000040 
000342  R 
001200  R 
000154  R 


=  ******   QX 

=  ******  GX 

r  ******   GX 
r  ******   GX 

000152  R 


001122  R 


001266  R 

100000 

000400 

000007 

002000 

001000 


GX 
GX 


REFERENCES 

6-89 

6--90 

6-120 

6-91 

6-92 

6-95 

6-94 

6-95 

6-96 

9-300 

6-121 

6-122 

6-97 

9-364 

9-301 

6-98 

6-99 
#6-151 

9-405 

8-195 

8-195 

9-325 

9-257 
#6-i46 

9-407 

15-690 

6-100 

10-484 

12-553 

14-652 

6-103 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 


#8-195 
#8-205 
#15-714 
#8-217 
#8-226 
#9-235 
#10-432 
#9-241 
#9-249 
9-363 
#15-726 
#15-732 
#9-254 


»/-295 

#13-575 

•7-174 

9-415 

8-205 

8-205 

9-282 
.7-173 

9-417 
M5-693 
#12-552 

10-^01 

12-556 

#13-597 


9-259 

*13-574 

9-255 


17-799 

9-261 

*13-585 

15-716 

11-542 


9-284 

»13-590 

9-280 

17-809 
9-286 
13-586 
17-801 


9-322 
.13-596 


17-819 

9-324 

.13-589 

17-811 


9-340 

.13-622 


17-829 

9-342 

.13-617 

17-821 


9-351 
.15-674 


17-839 
9-353 
13-618 
17-831 


9-377 
.15-696 


9-381 

.13-621 

17-841 


9-390 
15-714 


9-394 
.15-689 


LF.MDC 

=  000100 

#5-64 

LF.MFL 

=   004000 

#5-64 

LF.MTP 

=   000020 

#5-64 

LF.PAC 

=   000200 

#5-64 

LF.RDY 

^   040000 

#5-64 

LF.REA 

=   010000 

#5-64 

LF.SER 

=  000040 

#5-64 

LF.TIM 

=  000010 

#5-64 

LF.UNL 

=  020000 

#5-64 

LF.X2P 

=  000000 

#5-64 

LIBR 

001406  R 

6-101 

#14-628 

LINKS 

000344  R 

6-102 

#9-300 

1  N.CLO 

=  000000 

#5-64 

LN.DUM 

=  000005 

#5-64 

LN.LOA 

=  000004 

#5-64 

LN.LOO 

=  000003 

#5-64 

TMPFX? 


CRFATFD   RY      MACRO      ON   29-JUN-85    AT    00:42 
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'aCe  c'  contents 

5-  S5    MACRO  DEFINTIONS 

e-  68    LOCAL  DATA 

^-  «1    ERROR  MESSAGES 

8-  ''2  ACMON  ROuMNES 
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Symbol  table 


A$$CH<= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

D$$BUG= 

D$$IS<= 

D$$L11= 

0$$YNC= 

D$$YNM= 

E$$XPR= 

FL.CHA= 

FMT2 

FMT2B 

FM.2  = 

FM.2B  = 

F$$LVL= 

F1.INT= 


000000 

000000 

000000 

000000 

000000 

OOOAOO 

177564 

1775U 

000000 

000001 

000000 

000000 

000000 

»**»**  GX 

0001 34RG 

0001 53RG 

000000 

000000 

000001 

**♦»»*  GX 


Fl.iNl= 
F1.IN2= 
F1.IN3== 
G$$rPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
002  L$$ASG= 
002  L$$DRV= 
L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 


******  GX 

******  GX 

******  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000124 

000000 


M$$FCS= 

M$$"1GE  = 

M$$NET= 

M$$0VR= 

NSITAB 

NSO   = 

NSI 

MS2   = 

NS3 

NS4   = 

NS5 

NS6   = 

NS7   = 

N$$ACC= 

N$$8UF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

NS$MOV= 

N$$NCT= 


000000 
000000 
000000 
000000 
OOOOOOR 
**♦«»«  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 
*•*»**  GX 
000001 
000001 
000001 
000001 
000001 
000010 
000001 


N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$1PT= 
002  REP2B 
R$$DER= 
R$$K11= 
R$$rND= 
R$$nM= 
S$$URG= 
S$$YSZ= 
T$$KHG= 
T$$MIN= 
VFVCT 
V$$CTR= 
X$$DBT= 
$CBOMG= 
$ELINE= 
$ERR23 
$ERR24 


000001 

000000 

000000 

000010 

000274R 

000000 

000001 

000000 

000000 

000000 

007600 

000000 

000000 

000146R 

001000 

000000 

******  GX 

******  GX 

000020R 

000060R 


$ERR25 
$FLAGS= 
$FLAG1= 
$INT 
$INTX 
$INT1 
$INT2 
$INT3 
$HXVCT= 
$NVECT= 
$REP.C= 
$RQ3  = 
SSIZE  = 
$TERR  = 
$VALUE= 
$VECT1= 
$VFDDM= 
$VFSPC= 
002  $$VECT= 
002  .INT  = 


0001 06R 
*♦*«*»  GX 
******  GX 
000032RG 
OOOOOORG 
000054RG 
000076RG 
000122RG 
GX 
GX 
GX 
GX 
6X 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


000000 
000330 
000204 
Errors  detected: 


ABS. 
DATA 


000 
001 
002 
0 


(RU,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 


♦  '■■»  Assembler  statistics 

Work  file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  10230  Words  (  40  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 

SY : TMPACO^ v!; [132  J 34]TMPAC0/CR/-SP=SY:[1 J 3RSXMCM.SML/ML, CI  30,1 10]NETLIB/ML, [130,1 0]RSXMCM/PA:1, CI  32,1 OlTMPArO 
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359 

+ 

360 

$SECSR  -  ".SECSR"  ACTION  ROUTINE 

361 

362 

INPUTS: 

363 

NONE 

36A 

365 

OUTPUTS: 

366 

R2=DESTR0YED 

367 

368  001020 

;SECSR:: 

369  001020 

CALL    $VFDDM 

MAKE  SURE  IT'S  A  DDM 

370  001024 

CALL    SVFMUX 

AND  THAT  IT'S  A  MUX  LINE 

371  001030 

032767 

OOOOOOG 

OOOOOOG 

BIT     #fL.LHC,$FLAGS 

IS  IT  A  coMiop  device: 

372  001036 

001411 

BEQ     101$ 

IF  EQ,  NO 

373  OOlO^iO 

CALL    $RQ1 

request  binary  file 

374  001044 

103405 

BCS     10$ 

IF  CS,  NO  ACCESS 

375  001C46 

112712 

OOOOOOG 

MOVB    #. SECSR, (R2) 

STORE  FUNCTION  CODE 

376  001052 

062767 

OOOOC. 

OOOOOOG 

ADD     #2,$SIZE 

ADJUST  DATA  BASE  SIZE 

377  001060 

10$:    RETURN 

378 
379 
380 
381 
382  "01062 

;  ERROR  CONDITION 

i01$:   EMSGSh  £5 

NOT  COMIOP  DEVICE 

D     A 


TMPAC3 

CREATED  BY 

MACRO  ON 

29-JUN-85 

AT  00:39 

PAGE   1 

SYMBOL 

CROSS  REFERENCE 

CREF        n^.OO 

SYMBOL 

VALUE 

REFERENCES 

ASYM 

000000 

R 

#5-72 

6-139 

6-152 

7-197 

FMT2A 

00O22A 

R 

5-95 

#5-108 

FMT4 

00025A 

R 

5-96 

5-97 

5-98 

5-99 

FM.2A 

=  000000 

#5-95 

FM.A 

=  000000 

#5-96 

#5-«7 

#5-98 

#5-99 

F1.STE 

=  ** ■  ■  4* 

GX 

6-136 

6-176 

GBLK 

000006 

R 

#5-77 

6-163 

GETAB 

000022 

R 

#5-85 

6-177 

GSYM 

000012 

R 

#5-78 

*6-155 

♦6-153 

GVAL 

000016 

R 

#5-79 

6-166 

REP2A 

000210 

R 

5-95 

#7-192 

STBEXT 

000304 

R 

#5-117 

6-161 

S$$BAS 

=   ****** 

5-95 
5-99 

5-95 

5-96 

5-96 

$AZFS 

=   ****** 

GX 

6-162 

$CAT5 

~      ****** 

GX 

6-154 

6-157 

$CLEi/L 

r  ****** 

GX 

6-174 

SELINE 

=  ****** 

GX 

5-95 

$ERR27 

000032 

R 

5-84 

#5-95 

$ERR29 

00005A 

R 

5-85 

#5-96 

$ERR50 

000112 

R 

5-86 

#5-97 

$ERR31 

000150 

R 

5-87 

#5-98 

$ERR32 

000176 

R 

5-88 

#5-99 

SFLAGI 

r  ****** 

GX 

6-136 

•6-176 

BFNOUT 

-  ****** 

GX 

5-96 

5-97 

5-98 

5-99 

tGLOBL 

000000 

RG 

#6-134 

SPRV.N 

=    ****** 

GX 

5-96 

5-97 

iREP.C 

=    ****** 

GX 

7-192 

SREP.P 

r:   ****** 

GX 

5-98 

5-99 

SSYMBL 

=       K*+*** 

GX 

6-164 

STERR 

=       ****** 

GX 

5-96 

5-97 

5-98 

5-99 

STWARN 

=   ****** 

GX 

5-95 

SVALOE 

=   ****** 

GX 

*6-135 

•6-166 

.PSTCM 

~       ****** 

GX 

6-140 

.PSTPT 

=       ****** 

GX 

6-138 

#5-109 


5-97 


5-97 


5-98 


5-98 


5-99 


TMPAC3 
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Symbo'.  table 
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ALLERR 

A$$CHK= 

A$$CPS= 

A$$PRI= 

A$STRP= 

BUFUMP= 

CMODE  = 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DFAPR  = 

0$$BUG= 

D$$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FL.CHA= 

FMT2 

FMT6 

FM.2   = 

FM.6   = 

F$$LVL^ 

F1.UMR= 

F2.FIL= 

G$STPP= 

G$STSS= 


000AA4R 

000000 

000000 

000000 

000000 

17235^ 

UOOCO 

000000 

000^00 

177564 

000006 

1775U 

000000 

000001 

000000 

000000 

000000 

.*«»»»  GX 

00021 oR 

000235R 

000000 

000000 

000001 


****** 
000000 
000000 


GX 
GX 


G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
KISARO= 
KISAR6= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
L$$ASG= 
LS$DRV= 
L$$P11= 
LS$11R= 
MAXU 
MPAR  = 
MPCSR  = 
002  M$$CRB= 
002  M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$0VR= 
Ni$ACC= 
N$$8UF= 
N$$I.DV= 


000000 

000000 

000000 

000000 

172340 

172354 

177546 

177546 

000000 

000074 

000000 

000000 

OOUOOO 

000001 

000000 

000574R 

172100 

177746 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 


N$$MCP= 

N$$MLL= 

N$$M0V= 

N$$NCT= 

N$$PEM= 

PIRQ  = 

PMODE  = 

PRO   = 

PRl 

PR2 

PR3   = 

PR4 

PR5   = 

PR6 

PR7   = 

PS 

P$$P45= 

P$$WRD^ 

Q$$OPT= 

REP6 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SWR   = 

S$$WRG= 


00000 i 

000001 

000010 

000001 

000001 

177772 

030000 

OOUOOO 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

000000 

000000 

000010 

000626R 

000000 

000001 

000000 

000000 

177570 

000000 


.  AB5.  000000 
000664 
DATA    000256 
Errors  detected: 


000 
001 
002 
0 


CRW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


♦♦♦  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  0*  cc-e  pool: 
Operating  system: 


0 

0 

11161  Words 

14440  Words 

RSX-11M/PLUS 


(  44  Pages) 
(  55  Pages) 


S$$YSZ= 

IPS   = 

T$$KMG= 

r$$MIN= 

UBMPR  = 

UISAR0= 

UISAR1= 

V$$CTR= 

X$$DBT= 

$ALL16= 

$ALL18= 

$ALN18= 

$8fALL= 

$BFBAS= 

$BFL8N= 

$8fPTR^ 

I&fXFR= 

$8  INF 

SCAPR  = 

$CLDEQ= 

$CLI0S= 

SCORE 

SCOREI 

$CUR.N= 

SCVAL  = 

$EFNLL= 


007600 
177564 
000000 
000000 
170200 
177640 
177642 
001000 
000000 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

OOOOOORG 
******  GX 
***»»*  GX 
******  GX 
000306RG 
000236RG 
******  GX 
******  GX 
******  GX 


GX 
GX 
GX 
GX 
GX 
6X 
GX 
GX 


$fLINE= 

******  GX 

$ERR26 

OOOOOOR 

002 

$£RR76 

000044R 

00^ 

$ERR77 

OOOIOOR 

002 

$ERR78 

0001 36R 

00^ 

$FLAGS= 

*♦*♦*♦  GX 

$FLAG1= 

******  GX 

$FLAG2= 

******  GX 

$1038  = 

******  GX 

$LBN  = 

**«*♦♦  GX 

SLLEN  = 

******  GX 

SMALL  ^ 

******  GX 

SNLIB  = 

******  GX 

$READX= 

♦*♦*♦*  GX 

SREP.C= 

******  GX 

SRQ5  = 

******  6X 

$RQ7  = 

******  GX 

SSCOM 

000452RG 

SSIZE  = 

******  GX 

STERR  = 

******  GX 

STWARN= 

******  GX 

SVALUE= 

******  GX 

SVFLV1= 

******  GX 

.BASEB= 

140000 

.CORE  = 

******  GX 

.SCOM  = 

******  GX 

SrtTMPAC4'v2;[132,134]TMPAC4/CR/-SP=SY:[1,13RSXMCM.SML/ML,[1iO,110]NETLIB/ML,[!30,10]RSXMCM/PA;1,C132,10]TMPAC4 


TMPAC4 
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TMPAC5     CREATED  BY  MACRO  ON  29-J'^N-85  AT  00:40 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


BN.LBl 

BN.OPN 

BUFUMP 

CMODE 

DFAPR 

DSKBUF 

FL.CHA 

rMT6 

FM.-: 

F2.FIL 

I$$AS 

KISARO 

KISAR6 

LSBEXT 

LSBFLG 

L$BLDZ 

LSBMXZ 

LSBSA 

MPAR 

MPCSR 

M$$MGE 

PIRQ 

PMODE 

PRO 

PR1 

pm 

PR3 

PR4 

PR5 

PR6 

PR7 

PS 

R$$E1S 

R$$MPL 

R$$11D 

R$$11M 

SWR 

S$$BAS 

IPS 

TSSNHD 

UBMPR 

UISARO 

UISAR1 

$A8FI 

S.-ZFS 

SBFALL 

SBFBAS 

$5FLBN 

iBFPTR 

SBFXFR 

SCAPR 


GX 


CX 


GX 
GX 
GX 
GX 
GX 


000162  I 
000106  I 
=  V2354 
=  UOOOO 
=  000006 

000000  I 
=  ****** 

000310  I 
=  000000 

=  ****** 
=   ****** 

=  172340 
=  172354 

-  ****** 

=.  ****** 

=  ****** 

=:  ****** 

=  ****** 

=  17210C 
=  177746 
=  OOOOOC 
=  177772 
=  030000 
=  000000 
=  000040 
=  000100 
=  000140 
=  000200 
=  000240 
=  000300 
=  000340 
=  177776 

=       ****lv  * 

=    ****** 

=  000000 
=  177570 

~   ****** 


177564 
******  GX 
1 70200 
177640 
177642 
000000  RG 
*»<**♦  GX 
*»*»«*  jX 
«»»*♦*  GX 
****** 
****** 


GX 
GX 
GX 
GX 


REFERENCES 

6-153 

6-151 
#5-64 
#5-64 
#5-104 
#5-112 

6-149 

5-77 
#5-77 

6-130 

5-64 
#5-64 
#5-64 

8-228 

8-209 

8-216 

8-217 

8-208 
#5-64 
#5-64 

5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-64 
#5-6'. 
#5-64 

8-231 

5-64 

5-64 

5-81 
#5-64 

5-77 

5-82 
#5-64 

8-209 
#5-64 
#5-64 
#5-64 
#6-129 

7-177 

'6-148 
»8-208 
•8-204 
*6-147 
»8-232 
•0-135 


#8-201 
#7-169 


6-135 
8-201 

5-78 
#5-78 
6-156 
8-231 


5-103 


5-64 

3-231 

8-207 

5-77 
5-86 


•8-238 
•8-205 


D     6 

PAGE   1 

CREF        04.00 


TMF 
$L1 


5-79 
#5-79 


5-80 
#5-80 


5-82 
#5-82 


5-86 
#5-86 


#5-95 


6-133 


6-140 


8-234 


5-64 

8-220 

5-78 
5-86 


5-78 


5-79 


5-79 


5-80 


5-80 


5-82 


TMP;C5 
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IMPACT  -  NTL  TEMPLATE  PROCESSI^^  MACRO  V05.03b  Saturday  29-Jun-85  00:40  Page  10-2 
$LIBR1  -  .LIBR  OPERAND  1 


290 
291 
292 
293 

294  0OO'.5O 

295  000^32 

296  000436 
29^  0004A0 


005000 
012701 
00:002 


OOOOOOG 


;  Fix  FILE  NAME  FOR 
fFN: 


.BIN/. LIBR  ERROR  MESSAGES 


CLR 
MOV 
CLR 
CALLR 


RO 

#$FiLEN,R1 
R2 
$AZFS 


RESET  FILE  NAME 

FOR  .BIN/. LIBR  ERROR  MESSAGES 


TMPAC6  -  NTL  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85 
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TMPAC6     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:40 
MACRO  CROSS  REFERENCE 


MACRO  NAME 
CALL 


CALLR 

EMSG$ 

NHWDFt 

NTLERS 

RESRG 

RETURN 


SAVRG 

SOB 

SWSTKS 


REFERENCES 

9-163 

10-253 

13-384 

17-511 

10-297 
#5-58 
#5-58 
#5-58 
#5-58 

9-172 

17-512 
#5-58 

10-216 

10-236 


9-171 
10-255 
13-391 
18-529 

9-163 

5-62 

8-117 

10-266 
18-530 

10-226 
13-383 


10-228 
10-257 
15-437 


13-391 

8-118 

10-289 


0     PAGE 

D  8 

4 

CREF 

04.00 

10-230 
10-259 
15-445 

15-446 

10-236 
10-281 
15-449 

10-,^38 
10-u'85 
16-479 

10-242 
12-355 
16-487 

10-244 
12-356 
16-488 

15-445 

16-487 

17-511 

18-529 

8-120 

8-121 

8-122 

11-342 

12-360 

13-387 

13-393 

14-410 

15-452 

10-251 
13-383 
16-491 


16-494 


•♦FlLE"ll)»»TMPAC7 
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TMPAC7     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:41 
SYMBOL  CROSS  REFERENCE 


0    9 

PAGE   1 

CREF        OA.OO 


r 

TMl 


SYMBOL   VALUE 


BASE 
FL.CHA 

MT2 
FMT6 
FM.2 
FM.6 
F1 .UMR 
F2.FIL 
F2.LBR 
LBL< 
LB. APR 
LB. USE 
LINK 
MAXU 
M$$MGE 

NTLPT 

REP6 

R$$11M 

SSIBAS 

USE 

XFER 

$ALB 

$ALL18 

$ALN18 

SBFALL 

$BFB'-S 

SBFPTR 

$CAPR 

SCLDEQ 

$DEA18 

SEFNLL 

SELINE 

$ERRY2 

$ERRY3 

$ERRY4 

$ERRY6 

SFILEN 

SFLAGS 

SFLAGI 

$FLAG2 

SLBADR 

SLBERR 

SLBIAS 

$LBXFR 

JLIBR 

SflAPX 

IrjALL 

SNLIB 

SREP.C 

SREP.P 

$Si7£ 


000556  R 
»*•»••«  GX 
000234  RG 
000253  RG 
000000 
000000 
»**»»»  GX 
.**♦«»  GX 
**«»**  GX 
000000  RG 
»♦*♦♦♦  GX 
»♦*♦»*  GX 
000306  R 
'/10252  R 
)00000 


000574 
000000 

****** 

000426 
000112 


=  ****** 

-  ****** 
=:  ****** 

=  ****** 

=:  ****** 

r  ****** 

-  ****** 

=:  ****** 

=  ****** 

r  ****** 

000002 
000036 
000110 
000154 

=   **•*♦* 

-  *♦*♦♦ * 

r  ****** 
=  ****** 

-  ****** 

000540 

=      ****** 

-  ****** 

000000 

-  V  *  *  *  *  * 

=  **♦*+♦ 

3  ****** 

r  ****»« 

-  ****** 
z  ****** 


R 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

R 

R 

R 

R 
GX 
GX 
GX 
GX 
GX 

RG 
GX 
GX 

RG 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

6-137 

6-120 

5-86 

5-78 
#5-86 
#5-78 

7-176 

6-118 

6-123 
#5-70 

10-274 
«11-322 

6-133 

6-140 

5-77 

13-377 

9-237 

5-78 

5-82 

5-78 

6-142 

6-129 

6-127 

7-182 

7-178 

7-173 

7-159 

n-299 

10-282 

12-351 

7-198 

5-78 

5-86 
#5-78 
#5-83 
#5-86 
#5-87 

13-382 

6-120 

7-176 

6-118 

6-125 

7-192 

10-266 

7-184 
#6-117 

9-239 

8-213 

8-214 

5-86 

5-83 
»11-313 


#10-266 
11-314 
5-87 
5-83 

#5-87 

#5-83 


12-349 
♦6-122 


#9-235 
7-171 
6-136 


#13-379 

7-158 

5-78 

#11-29" 

#7-156 


7-197 
7-161 

13-393 

12-361 

5-83 

5-87 

7-170 

7-193 

7-196 

8-224 

11-314 

6-123 
10-273 
7-195 
11-303 


10-272 

*1 1-338 
5-87 


#5-96 
#5-97 


6-131 


#8-213 
7-157 


7-191 
5-83 


*10-274 


10-284 


12-549 
11-507 
7-199 
11-304 


11-^20 


9-243  9-249 


7-175  7-191 


10-268  10-276 

5-83  5-86 


12-552 


10-264 


11-317 
5-86 


11-302 


11-525 
5-87 


11-310  12-555 


5-87 


10-282 


11-508  11-521 

8-225  #12-343 

11-316 


TMPAC7 
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TM 
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TMF 


104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
lU 

115  000000 

116  000000  OlOOu? 

117  000004  016767 

118  000012  016767 

119  000020  016767 

120  000026 

121  000052  105446 

122  000034 
123 

124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
158 
139 
140 
VI 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
'60 


SLBXFR  -  TRANSFER  LIBRARY  FILE  INTO  CORE 

INPUTS: 

RO    =  LIBRARY  BIAS 
$BFLBN=L0GICAL  BLOCK  NW8ER 
$BFXFR  =  TRANSFE!<  SIZE  IN  dYTES 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 


000000' 
OOOOOCG  OOOOOOG 
000002G  000002G 
OOOOOOG  OOOOOOG 


IlBXFR: 


MOV 

MOV 

MOV 

MOV 

CALL 

BCS 

CALL 


RO.BFADR 

$BFLBN,$l  BN 

$8FLBN+2,$L8N*2 

$BFXFR,$LLFN 

SREADX 

101$ 

SCLDEQ 


.IF  DF  R$$MPL 

,10Ve  $LI8NM,LIBTA8+1  ; 

MOVB  $LIBNM,LIBLEN+1 

MOVB  SLIBNM+l,LIBTAB+2 

MOVB  $LIBNM+l,LIBLENt2 

MOVB  $LI8NM+2,LIBTAB+5 

MOVB  $LI8NMt2,LIBLEN+3 

MOV  #LIBTAB,RO 

CALL  $CAT5 

MOV  R1,LIBTB5 

CALL  $CAT5 

MOV  Rl,LIBTB5+2 

MOV  #LieLEN,RO 

CALL  SCATS 

MOV  R1,LIBLN5 

CALL  $CAT5 

MOV  Rl,LIBLN5+2 

MOV  #$CXUIC,RO 

MOV  #$LIBNM,R1 

MOV  #ST3EXT,R2 

CALL  SAZFS 

MOV  #LI8TB,R0 

CALL  SSYMBl 

BCS  101$ 

MOV  LENVAL,$LBVL 

BEQ  5$ 

MOV  TABVAL.SLBVT 

BIC  «160000,$LBVT 

BIS  #IhG0O0,$LBVT 

MOV  BFADR,$lBBL< 

CALL  $v:tlb 


SMi   LIBRARY  ADDRESS 
COPY  LOGICAL  BLOCK  NUMBER 

AND  TRANSFER  SIZE  IN  BYTES 
READ  INTO  EXTENDED  MEMORY 
IF  CS,  READ  FAILURE 
CLOSE  LIBRARY  FILE 


COPY  FIRST  THREE  CHARACTERS  OF  LIBRARY  NAME 


SET  UP  SYMBOL  NAME 

CONVERT  TO  RAD50 

STORE  VALUE 

CONVERT  TO  RAD50 

STORE  RAD50  VALUE  OF  LAST  3  CHARACTERS 

SET  UP  SYMBOL  NAME 

CONVERT  TO  RAD50 

STORE  RAD50  VALUE 

CONVERT  TO  RAD50 

STORE  RAD50  VALUE  OF  LAST  5  CHARACTRES 

GET  DEFAULT  UK 

GET  LIBRARY  FILENAME 

;  GET  FILE  EXTENSION 

SET  UP  FILc  SPEC 

GET  START  OF  SYMBOL  BLOCKS 
LOOKUP  SYMBOLS 


COPY  $XXXVL  VALUE 

IF  NOT  VECTORED  -  LRANCH 

COPY  SXXXVT  VALUE 

CLEAR  APR  BITS 

MAP  IHRU  APR6 

COPY  LIBRARY  BIAS 

SET  UP  LIBRARY  VECTOR  TABLE 


10 
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TMPALT  -  TEMPLATE  ALLOCATION  RO  MACRO  V05.03b   Saturday  29-Jun-85  00;^ 
$TMALT   -  ALLOCATE   LINE    TABLE 


Page  8-2 


TMf 
.D! 


2b5 
26^ 
265 
266 
267 
268 
269 
270 

271  0001 7A 

272  000176 

273  000202 

274  000204 

275  000210 

276  0002U 
277 

278 

279  000216 

280 

281 

282 

283 

284 

285 

286 

287 

288  000220 

289 

290  000224 

291  000224 
292 

293 
294 
295 

296  000226 

297  000234 

298  000242 

299  000244 

300  000252 

301  000260 

302  000264 

303  000270 
304 


103005 
017701 
011101 
005261 
010067 


105420 


OOOOOOG 

000006 
OOOOOOG 


16$: 


18$: 


20$: 

30$: 
RTSPC: 


.ENbO 
.ENDC 


.IF  DF 

BCC 

MOV 

MOV 

INC 

MOV 

RETURN 

.IFTF 

BCS 

.IFF 
MOV 

.ENDC 

.ENDC 

CALL 

RETURN 


.ENDC 


R$$11M 

16$ 

aHEADR.RI 

(RD.Rl 

6(R1) 

R0,$IC8AD 


121$ 

r:,$icbad 

UBA 


;  ERROR  CONDITIONS 


012767 
032767 
001370 


1777 '7     OOOOOOG   101$: 
v'OOOOG  OOOOOOG 


111$: 
121$: 


MOV 

BIT 

BNE 

EMSG$R 

EMSGSR 

call 
call 

EMSG$R 
.DSASL 


#-1,$ADDR 

#FL.LLC,$FLAGS 

30$ 

33 

34 

XI C8 

XLT 

98 

LS8 


;•  RE-ENABLE  TASK  SWITCHING 


*  IF  CC,  GOT  IT 

*  GET  USER  MODE  SP 

*  ... 

*  SET  USER  MODE  C-BIT 

*  STORE  ADDRESS  OF  ALLOCATION 

*  RETURN  TO  USER  MODE 


;  IF  CS,  ALLOCATION  FAILURE 
;  STORE  ADDRESS  OF  ALLOCATION 

; CALCULATE  UNLOAD  BLOCK  ADDRESS 


SET  ADDRESS  FOR  EMPTY  LLC  DATA  BASE 

IS  THIS  AN  LLC? 

IF  NE,  YES 

LINE  TABLE  EMPTY 

LINE  1ABLE  ALLOCATION  FAILURE 

DEALLOCATE  ANV  ALLOCATED  ICB'S 

RELEASE  THc  LINE  TABLE  ALLOCATION 

KB  ALLOCATIOn  FAILURE 


E  11 
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TM 


u 
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TMPALT   -   TEMPLATE   ALLOCATION  RO  MACRO  V05.03b   Saturday  29-Jun-85   00:41 
.DEA16  -   END  OF    PROCESS   DEALLOCATION 


8A2  00H3A 
845  00U4O 

844  001444 

845  001450 

846  001454 

847  001456 

848  00146? 

849  001466 
850 

851 

852 

853 

854 

855 

856 

857 

858  001472 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

873 

879  001 47A 

880  00^500 


012703  177776G 

062704  OOOOOOG 

011463  000002 

042700  160000 
050200 

016714  OOOOOOG 

042714  160000 


10$: 


20$: 
30$: 


m 

BIS 

CALL 
MOV 
8IC 

.IFF 

CALL 
RESRG 


#$PRAVL-2,R3 

#Z.AVL,R4 

(R4),2(R3) 

#160600,R0 

R2,R0 

$DEAC2 

$PRAVL.(R4) 

#160000, (R4) 

;  DF  R$$11M 

a(SP)t 
<R5,R4,R3> 


.ENDC  ;  DF  R$i11M 


RETURN 

.IFF 

CMP 

BHJ 

JSR 

MOV 

MOV 

MOV 

CMP 

BLO 

ADD 

CMP 

BLO 

MOV 

MOV 

ADD 

MOV 

CALL 

MOV 

BR 

.ENDC 

CALL 

RETURN 


aEXSIZ.RO 

20$ 

R5,$SAVRG 

aNTLPT,R2 

.CXPCB(R2),R2 

P.REL(R2),R3 

R0,R3 

lOi 

P.S1ZE(R2),R3 

R0,R3 

20$ 

$PDVA,R5 

#$PRAVL-2,R3 

#Z.AVL,R5 

(R5),2(R3) 

aDEACI 

$PRAVL,(R5) 

30$ 

$DEA16 


Page  15-1 


POINT  AT  COMMON  LISTHEAD 

POINT  AT  PROCESS  ALLOCATION  WORD 

SETUP  PARTITION  FREE  SPACE  POINTER 

CLEAR  GIVEN  APR 

USE  APR  FROM  MAPX 

DE-ALLOCATE  BACK  TO   PARTITION  SPACE 

RESTORE  PCB  ALLOCATION  WORD 


CALL  CO-ROUTINE  TO  RESTORE  MAPPING 
RESTORE  REGISTERS 


;*  BACK  TO  USER  MODE 

IS  ALLOCATION  FROM  RSX  POOL  ? 

YES  ..  DE-ALLOCATE  NORMALLY 

SAVE  R3,R4,R5 

GET  NTL  DATA  BLOCK  ADDRESS 

COMM  EXEC  PCB  ADDRESS 

AND  COMM  EXEC  STARTING  ADDRESS 

IS  ALLOCATION  FROM  CEX  POOL  ? 

NO  ..  IT'S  FROM  PARTITION  SPACE 

GET  COMM  EXEC  ENDING  ADDRESS 

IS  ALLOCATION  FROM  CEX  POOL  ? 

YES  ..  DE-ALLOCATE  NORMALLY 

GET  PDV  ADDRESS 

POINT  AT  COMMON  LISTHEAD 

POINT  AT  PROCESS  ALLOCATION  WORD 

SETUP  PARTITION  FREE  SPACE  POINTER 

DE-ALLOCATE  BACK  TO  PARTITION  SPACE 

RESTORE  PCB  ALLOCATION  WORD 


DE-ALLOCATE  NORMALLY 
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TTTTT 

TTTTl 

MM 

MM 

pppppppp 

EEEEEEEEEE 

RRRRRRRR 

RRRRRRRR 

TTTTT 

TTTTT 

MM 

MM 

pppppppp 

EEEEEEEEEE 

RRRRRRRR 

RRRRRRRR 

MMMM 

MMMM 

PP      PP 

EE 

RR      RR 

RR      RR 

MMMM 

PP      PP 

EE 

RR      RR 

RR      RR 

MM 

*IM  MM 

PP      PP 

EE 

RR      RR 

RR      RR 

MM  MM 

PP      PP 

EE 

RR      RR 

RR      RR 

MM 

MM 

pppppppp 

EEEEEEEE 

RRRRRRRR 

RRRRRRRR 

MM 

MM 

pppppppp 

EEEEEEEE 

RRRRRRRR 

RRRRRRRR 

MM 

MM 

PP 

EE 

RR  RR 

RR  RR 

MM 

MM 

PP 

EE 

RR  RR 

RR  RR 

MM 

MM 

PP 

EE 

RR    RR 

RR    RR 

MM 

MM 

PP 

EE 

RR    RR 

RR    RR 

MM 

MM 

PP 

EEEEEEEEEE 

RR      RR 

RR      RR 

MM 

MM 

PP 

EEEEEEEEEE 

RR      RR 

RR      RR 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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TMPEXF  TREATED  BY     MACRO     ON  29-JUN-85   AT   00:42  PAGE    "> 

MACRO  CROSS  REFERENCE  CREF       04.00 

MACRO  NAME  REFERENCES 

CALL  5-84  5-97  5-101  5-110  5-123 

RETURN  5-124 


E  U 

**FILE»MD««TMPEX2  
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IMPEX2  -  NTL  EXPANSION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00:42 

aodrb,addrw,bl<b,blk;w 

429 
430 
431 
432 


.-  000710 

433  000712 

434 

435 

436 

437  000714 

438  000716 
439 

440 

441 

442  000720 

445  000722 

444  000726 

445  000730 
446 

447 

448 

449 

450 

451  000732 

452 

453 

454 

455  000736 

456  000742 
457 

458 

^59 

460  000746 

461 

462 

463 

464  000752 

465 

466 

467 

468 

469 

470 

471 

472  000756 

473  000760 

474  000762 

475  000764 
476 

477 
478 

479  000770 

480  000774 

481  000776 

482  001002 

483  001006 

484  001010 
485 


112524 
112524 


irj24 
1V524 


112546 
112566 
012603 
001436 


000001 


016700  OOOOOOG 


016702  OOOOOOG 


016422  177774 


006303 
005203 
010322 
010267  OOOOOOG 


105765 
1C0014 
016411 
042702 
005303 


177771 

177774 
017777 


POINTER  TO  ALLOCATED  CORE 

RE :   M0V8 
MOVB 

(R5)f,(R4)t 
(R5)+,(R4)t 

.IF  DF 

M$$MGE 

MOVQ 
M0V8 

(R5)  +  ,(R'i)t 
(R5)+,(R4)t 

.IFTF 

MOVB 
MOVB 
MOV 
BEQ 

(R5)+,-(SP) 
(R5)*,1(SP; 
{SP)t,R3 
10$ 

.IFT 

.IF  DF   R$$11M 

SWSTKS 

10$ 

.ENDC 

MOV 
CALL 

$U6IAS,R0 
$MAPX 

.iFn 

MOV 

$UDA,R2 

.IFT 

MOV 

-4(R4),(R2)t 

•  IFF 

MOV 

-2(R4),(R2)»    ; 

.IFTF 

ASL 
INC 
MOV 
MOV 

R3 

R3 

R3,(R2)+ 

R2,$U0A 

.IFT 

TSTB 

BPL 

MOV 

BIC 

DEC 

ASL$ 

-7(R5) 

10$ 

-4(R4),(Ri) 

*17777, R2 

R3 

4,R3 

Page  10 

COPY  FIRST  WORD  OF  ADDRESS 

COPY  SECOND  WORD  OF  ADDRESS 

ASSEMBLE  COUNT 

IF  zero! 'no  unload  data  to  STORE 

»  ENTER  KERNEL  MODE 


*  GET  UNLOAD  BLOCK  BIAS 

*  MAP  TO  UNLOAD  BLOCK 


;*  GET  UNLOAD  DATA  ADDRESS 


»  STORE  ALLOCATION  BIAS 


STORE  ALLOCATION  ADDRESS 


*  SHIFT  COUNT  LEFT  1  PLACE 

*  MAKE  IT  ODD 

*  STORE  COUNT 

*  SET  NEW  UNLOAD  DATA  ADDRESS 


»  IS  THIS  .CORE  OR  .BIN? 

*  IF  PL,  .BIN 

*  MAP  TO  THE  .CORE  ALLOCATION 

*  GIVING  VIRTUAL  ADDRESS 

*  CONVERT  TO  A  WORD  COUNT 


TMDC»7   -  MTi    FVPiM;inM   BniiTlNF<;  MArRD  vnS-03h   Sstiiniav   29-Jun-85 
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TMPEX2     CREATED  BV  MACRO  ON  29-JUN-85  AT  00:A2 

SyMBOL  CROSS  REFERENCE 

SYMBOL   VALUE  REFERENCES 


0  16 

PAGE  2 

CREF   04.00 


LN.OAU 
LN.OFF 
LN.ON 
LN.OOP 
LN.OPE 
LN.REF 
LN.SER 
LN.STA 
LN.5UB 
LN.TRI 
LSTHD 
LTAB 
L.COST 
L.CTL 
CVA 
L.DDM 
L.DDS 
L.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN 
L.MPF 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 
MPTAB 
MXPTB 
MX  TAB 
M$$MGE 
NOD 
PEC  HA 
PRl 
PRfOV 
PR7 
R$$EIS 
R$$11D 
R$$11M 
SAVALC 
5C0M 
SECSR 
SF.ACT 
SF.ENA 
SF.LPB 
SF.MFL 
SF.PAC 
SF.REA 
5F.SER 
SF.SVC 
SF.UNL 


000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000360  R 
000570  R 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
OOOOU 
000021 
000013 
001260  R 
001500  R 
001172  R 
:  OOCOOO 
000520  R 
000274  R 
001160  R 
000532 


=  ****** 
-  ****** 
=  ****** 


GX 


000000 

001066  R 

001030  R 

000376  R 

000200 

000100 

000004 

000040 

000020 

C00010 

000001 

000002 

000040 


#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 
6-104 
6-105 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 
6-106 
6-124 
6-107 
10-435 
6-108 
6-125 
6--' 09 
6-110 
12-567 
10-484 
10-484 
10-449 

#11-524 
6-111 
6-112 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 

#5-64 


#9-308 
#9-316 


*9-267 


#13-596 
#15-674 
#13-574 
11-524 
#9-363 
#9-279 
#12-567 
#9-371 


10-501 

11-526 

15-698 

#11-511 

#9-322 


14-628 


11-542 
14-645 


TMPFX? 
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TM-ACO  -  NIL  TEMPL^;.  PROCESSIN  MACf J  V05.03b  Saturday  29-Jun-85  00:38  Page  1 


.TITLE  TMPACO  -  NTL  TEMPLATC  PROCESSING  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  dE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  TH:S  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINF^:,  PART  7 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  U-APR-81 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-°LUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  VA.O 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-P!us  V3.0 
OECnet-Mi'cro/RSX  VI. 0 


OF  ITS 


TMPACO  -  NTL  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85  00:33  Page 
MACRO  DEFINTIONS  - 


TMPACO     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:39 
SYMBOL  CROSS  REFERENCE 


E  2 

PAGE  1 

CREF   OA.OO 


TMPA 


SYMBOL 

VALUE 

REFERENCES 

FL.CHA 

=   ♦«»«»»     GX 

13-221 

FMT2 

000134  RG 

7-100 

#7-104 

FMT2B 

000153  RG 

7-101 

7-102 

#7-105 

FM.2 

=  000000 

#7-100 

FM.2B 

=  000000 

#7-101 

#7-102 

FLINT 

=    »*«»**     GX 

9-144 

10-162 

11-179 

12-196 

F1.1N1 

=   ******     GX 

9-145 

10-161 

F1.IN2 

=   ******     GX 

9-145 

11-178 

F1.IN3 

=   ******     GX 

9-145 

12-195 

I$$AS 

=   ****** 

13-226 

NSITAB 

000000  R 

#6-75 

13-242 

NSO 

=   ***««♦     GX 

6-75 

NS1 

=   ******     GX 

6-76 

NS2 

=   ******     GX 

6-77 

NS3 

=   ******     GX 

6-78 

NS4 

=   ***»««     GX 

6-79 

NS5 

=**.*♦     GX 

6-80 

NS6 

=   ******     GX 

6-81 

NS7 

=   ******     GX 

6-82 

REP2B 

000274  R 

7-101 

7-102 

#14-277 

RSSEIS 

=   ****** 

13-226 

RSSMPL 

-   ****** 

5-62 

6-85 

13-229 

13-247 

R$$11D 

=   ****** 

13-226 

R$$11M 

=  000000 

6-74 

S$$BAS 

=    ****** 

7-100 

7-100 

7-101 

7-101 

7-102 

VFVCT 

000146  R 

9-147 

10-164 

11-181 

12-198 

#13-212 

SCBOMG 

=   ******     GX 

14-285 

SELINE 

=   ******     GX 

7-100 

7-101 

7-102 

$ERR23 

000020  R 

#7-100 

13-261 

$ERR24 

000060  R 

#7--01 

13-262 

$ERR25 

000106  R 

#7-102 

13-263 

SFLAGS 

=   ******     GX 

13-221 

SFLAGI 

I   ******     GX 

13-214 

SINT 

000032  RG 

#9-142 

SINTX 

000000  RG 

#8-122 

SINTI 

000054  RG 

#10-159 

$INT2 

000076  RG 

#11-176 

$INT3 

00U122  RG 

#12-193 

SMXVCT 

=   **«»*♦     GX 

13-219 

SNVECT 

=   ******     GX 

*13-255 

SREP.C 

=   ******     GX 

7-100 

14-277 

$RQ3 

=    *»*«*»     GX 

8-123 

rsizE 

=    ******     GX 

*8-128 

13-216 

STERR 

=    .*♦***     GX 

7-100 

7-101 

7-102 

SVALUE 

=    ******     GX 

8-126 

8-127 

SVECTl 

-.    ******     GX 

•13-216 

$\/FDDM 

=    .***»»     GX 

9-143 

10-160 

11-177 

12-194 

SVfSPC 

r    ,«***«      GX 

13-212 

SSVECT 

=    »♦♦.*»     GX 

13-218 

.INT 

:r    *...»»      GX 

8-125 

7-102 


TMPACO 
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Symt 


TMPAC2  -  NTL  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85  00:39  Page  12 

SVFMUX  -  VERIFY  MULTIPLEXED  LINE 


INPUTS: 

NONE 

OUTPUTS: 

ERROR  UNLESS  MULTIPLEXED  LINE 


384 
385 
386 
387 
388 
389 
390 
391 

393  001070  ivFHUX: : 

394  001070  032767  OOOOOOG  OOOOOOG        BIT     #FL.MUX,$FLAGS  ;  MUX  LINE? 

395  001076  001 C03  BNE     10$  ;  IF  NE,  YES 

396  001100  EMSGS   81  ;  NOT  MULTIPLEXED  LINE 

397  001106  10$:    RETURN 
398 

399        000001  .END 


TMPA' 
MACRI 
MACRI 

CALL 

CALLI 
NTLEI 
RETU 
SOB 


TMPAC2  -  NTL  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85  00:39 
Symbol  table  


Page  12-1 


»*F1 


TMPAC3     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:39     PAGE 
MACRO  CROSS  REFERENCE  CREF 

MACRO  NAME      REFERENCES 


CALL 

CALLR 

NTLER$ 

RETURN 

SOB 


6-154 
6-178 
#5-59 
6-169 
6-U6 


6-157 

5-95 

7-205 

6-151 


6-162 

5-96 

7-202 


6-164 
5-97 


E     4 

04.00 

7-192 
5-98 


5-99 


F     I, 


'*FILE«*ID**TMPAC4 


TMPACi     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:39 
SYMBOL  CROSS  REFERENCE 


E     5 

PAGE  1 

CREf        OA.OO 


SYMBOL 

VALUE 

REFERENCES 

ALLERR 

000^4-; 

R 

8-26'7 

#8-295 

9-324 

BUFUMP 

=   172354 

#5-64 

CMODE 

=   KOOOO 

#5-64 

DFAPR 

=  000006 

#5-76 

7-217 

FL.CHA 

=   *♦*♦♦* 

GX 

6-127 

8-253 

9-313 

FMT2 

000216 

R 

5-84 

5-91 

#5-10U 

FHT6 

000235 

R 

5-86 

5-90 

#5-101 

FH.2 

=  000000 

#5-84 

#5-91 

FM.6 

=  000000 

#5-86 

#5-90 

Fl.UMR 

=      ****** 

GX 

6-147 

8-262 

F2.FIL 

=      ****** 

GX 

6-124 

!$$AS 

-      ****** 

5-64 

7-214 

KISARO 

=   1723A0 

#5-64 

<ISAR6 

=   172354 

#5-64 

MAXU 

000574 

R 

6-142 

8-258 

9-318 

#10-346 

MPAR 

=  172100 

#5-64 

MPCSR 

=  177746 

#5-64 

M$$MGE 

=  000000 

5-64 

5-75 

5-85 

6-130 

8-261 

8-276 

8-284 

11-372 

PIRQ 

=   177772 

#5-64 

PMODE 

=  030000 

#5-64 

PRO 

=  000000 

#5-64 

PR1 

=  000040 

#5-64 

PR2 

=  000100 

#5-64 

PR  3 

'-  000140 

#5-64 

PRi, 

=  000200 

#5-64 

PR  5 

=  000240 

#5-64 

PR6 

=  OC0300 

#5-64 

PR7 

=  000340 

#5-64 

PS 

=   177776 

#5-64 

REP6 

000626 

R 

5-86 

#11-374 

R$$EIS 

=      ****** 

7-214 

R$$MPL 

-      ****** 

5-64 

5-64 

5-64 

R$$11D 

r      ***  »r  *♦ 

5-64 

7-214 

R$$11M 

=  000000 

6-131 

SWR 

=   177570 

#5-64 

S$$BAS 

3      >•***** 

5-84 

5-84 

5-86 

5-86 

TPS 

=  177564 

#5-64 

UBMPR 

=  170200 

#5-64 

UISARO 

=   177640 

#5-64 

U1SAR1 

=   177642 

#5-64 

$ALL16 

::     ****** 

GX 

9-323 

$ALL18 

::     ****** 

GX 

6-153 

8-268 

$ALN18 

r     ****** 

GX 

6-149 

8-264 

SBFALL 

-     ****** 

GX 

6-144 

6-167 

6-168 

SBFBAS 

=     ****** 

GX 

6-132 

SBFLBN 

=     ****** 

GX 

6-178 

6-179 

SBFPTR 

-     ****** 

GX 

6-156 

SBFXFR 

r     ****** 

GX 

6-180 

SBINF 

000000 

RG 

#6-123 

$CAPR 

-    ****** 

GX 

*7-217 

11-582 

SCLDEQ 

r       *  *  (r  *  »  * 

GX 

6-185 

6-191 

6-146 


6-162 


6-170 


7-207 


8-245 


5-90 


5-90 


5-91 


5-91 


TMPAC4 
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TMPAC5  CREATED  BY     MACRO     ON  29-JUN-85  AT   00:40 

SYMBOL    CROSS   REFERENCE 


E     6 

PAGE   2 

CREF       04.00 


TMF 
CHE 


SYMBOL 

VALUE 

REFERENCES 

SCLDEQ 

- 

****** 

GX 

6-155 

7-184 

I*-'  "OS 

r 

****** 

GX 

7-174 

8-244 

SCLOPE 

- 

****** 

GX 

7-175 

SCUR.N 

- 

****** 

GX 

5-79 

SEFNLL 

- 

****** 

GX 

5-77 

5-78 

5-79 

$ERR69 

000000 

R 

#5-77 

7-185 

$FRR71 

000036 

R 

#5-78 

7-185 

$ERR72 

000066 

R 

#5-79 

8-245 

$ERR73 

000140 

R 

#5-80 

8-246 

$ERR74 

000202 

R 

#5-82 

8-247 

$ERR75 

000244 

R 

#5-86 

8-248 

SFILEN 

= 

******* 

GX 

7-170 

SFLAGS 

- 

****** 

GX 

6-i4t) 

$FLAG2 

= 

****** 

GX 

6-130 

*6-156 

SIOSB 

- 

****** 

GX 

8-2^ 

$LBN 

- 

****** 

GX 

8-204 

8-205 

SPRV.N 

r 

****** 

GX 

5-77 

SREP.C 

= 

****** 

GX 

5-80 

5-82 

5-86 

SREP.'^ 

- 

****** 

GX 

5-78 

SRLBL 

= 

****** 

GX 

8-202 

$RQ7 

= 

****** 

GX 

6-141 

STERR 

r 

****** 

GX 

5-77 

5-78 

5-79 

SVALUE 

= 

****** 

GX 

*6-134 

SVFLVl 

- 

****** 

GX 

6-138 

.BASES 

I 

140000 

#5-64 

5-104 

6-154 

5-80 


5-82 


5-86 


5-80 


5-82 


5-86 


TMPAC5 
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E  7 

TMPAC6  -  MTL  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85  00:40  Page  11 
CHECK  -  CHECK  LIBRARY  DESCRIPTOR  FOR  MATCH 


299 

300 

301 

302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312  000444 

313 

3U  000444  011167  OOOOOOG 

315 

316 

317 

318  000450 

319  000452 

320  000454 


.S8TTL   CHECK  -  CHECK  LIBRARV  DESCRIPTOR  FOR  MATCH 

CHECK  -  CHECK  THIS  LIBRARY  DESCRIPTOR  FOR  A  MATCH 

INPUTS: 

(R1)=LIBRARV  BLOCK  3IAS  (MAPPED  ONLY) 

R2=L18RARY  BLOCK  VIRTUAL  ADDRESS 

$FNR50=RAD50  FILE  (LIBRARY)  NAME  TO  BE  MATCHED 


OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R2  INCREMENTED  BY  12. 


CHECK: 


321  000460 

322  000462 

323  000470 

324  000472 

325  000500 
326 

327  000502 

328  000510 

329  000512 

330  000520 

331  000522 

332  000530 

333  000532 

334  000540 
335 

336  000542 

337  000550 

338  000554 

339  000560 

340  000566 

341  000570 

342  000572 


005712 
001436 
021267 
001035 
026267 
001031 
026267 
001025 

332767 
001014 
032767 
001404 
026277 
103411 
126227 
001405 

052767 
010267 
062702 
032767 

001001 
000261 


OOOOOOG 

000002 

000004 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
000014 
OOOOOOG 


000002G 
000004G 

000042' 
OOOOOOG 
OOOOOOG 
000377 

OOOOOOG 

OOOOOOG 


5$: 


.IF  DF 

MOV 

.ENDC 

TST 
BEQ 
CMP 
BNE 
CMP 
BNE 
CMP 
BNE 

BIT 

BNE 

BIT 

BEG 

CMP 

BLO 

CMPB 

BEQ 


M$$MGE 
(R1),$LBIAS 


8$: 

BIS 

10$: 

MOV 

20$: 

ADD 

BIT 

BNE 

SEC 

30$: 

RETURN 

(SIZE  OF  LIBRARY  DESCRIPTOR) 


;*  SAVE  BIAS  OF  THIS  BLOCK 


(R2) 

10$ 

(R2),$FNR50 

20$ 

2(R2),$FNR50+2 

20$ 

4(R2),$''NR50+4 

20$ 

#FL.CHA, .FLAGS 

8$ 

#F1.UMR,$FLAG1 

5$ 

L8.ADR(R2),aQSTRT 

20$ 

LB.USE(R2),*377 

20$ 

#F2.LBR,$fLAG2 

R2,$LBADR 

#12.,R2 

#F2. LBR,$FLAG2 

30$ 


♦  IS  THIS  AN  EMPTY  SLOT? 

»  IF  EQ,  YES  -  SAVE  ITS  ADDRESS 

*  COMPARE  THREE  WORDS 


*  MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

*  YES  .. 

*  MUST  FILE  BE  IN  UMR  SPACE? 

*  BR  IF  NO,  DOESN'T  MATTER 

;*  IS  THIS  COPY  IN  UMR  SPACc 

*  BR  IF  NO,  CAN'T  USE  IT 

*  IS  USE  COUNT  AT  MAX  VALUE? 

*  IF  EO,  YES  -  CAN'T  USE  THIS  ONE 

*  WE  FOUND  it: 

*  SAVE  ADDRESS  OF  THIS  DESCRIPTOR 

*  ADVANCE  R2  TO  NEXT  DESCRIPTOR  (CLEARS  C-8IT) 
»  DID  WE  FIND  A  MATCH? 

*  IF  NE,  YES 

*  INDICATE  FAILURE 


F  7 
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I  Mk'  c  AT  T  I  riM  Dm  IT  T  MF 


•♦FILE»«ID«*TMPAC7 


E  8 


$1 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

7777777? 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAA/> 

CCCCCCCC 

77771777 

MMM^ 

MMMM 

PP      PP 

AA 

AA 

77 

MMM!* 

MMMM 

PP      PP 

AA 

AA 

77 

MM 

m     MM 

PP      PP 

AA 

AA 

77 

MM 

•IM  MM 

PP      PP 

AA 

AA 

77 

MM 

MM 

PPPPPPPP 

AA 

AA 

77 

MM 

MM 

PPPPPPPP 

AA 

AA 

77 

MM 

MM 

PP 

AAAAAAAAAA 

77 

MM 

MM 

PP 

AAAAAAAAAA 

77 

MM 

MM 

PP 

AA 

AA 

77 

MM 

MM 

PP 

AA 

AA 

77 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

77 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

77 

LL 

SSS5SSSS 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

lL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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[■ 


TMPAC7     CREATED  Bv 

SYMBOL  CROSS  REi^ERENCE 

SYMBOL  VALUE 

$TERR  =  »♦»*»♦  GX 

STUARN  =  »»*♦♦*  GX 

iVALUE  =  .*.*♦♦  GX 

.CXLBR  =  »♦*♦•*  GX 

.LIBR  =  •«♦»♦*  GX 


MACRO  ON  29-JUN-85  AT  00:11 


E  9 

PAGE  2 

CREF   01.00 


TM 


REFERENCES 

5-85 

5-78 

7-161 

9-210 

11-300 


5-86 

11-311 
»9-213 


5-87 

11-312 


TMPAC7     CREATED  BY  MACRO  ON  29-JUN-85  AT  00;11 
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TMI 


161 
162 
163 

164  OOOOAQ 

165  00004A 
166 

167  000052 
168 

169  000056 

170  000062 
171 

172  000066 

173  000070 

174  000074 

175  000100 

176  000104 

177  000110 

178  000114 

179  000120 

180  000124 
181 

182  000126 

183  000132 

184  000134 

185  000144 
186 

187  000146 

188 

189 

190 

191 

192  000150 

193  000156 

194  000164 

195  000170 
196 

197 
198 


5$: 


.EMDC 


016700 

OOCOOOG 

MOV 

$L8IAS,R0 

017767 

OOOOOOG  000002' 

MOV 

aNTLPT,NLBLIC 

SWSTKS 

20$ 

CALL 

SMAPX 

026700 

000002' 

CMP 

NLBLK.RO 

001402 

BEQ 

10$ 

005262 

000002 

INC 

2(fi2) 

016702 

OOOOOOG       10! 

:    MOV 

$L8ADR,R2 

016722 

OOOOOOG 

MOV 

$FNR50,(R2)t 

016722 

000002c 

MOV 

$FNR50+2,(R2)+ 

016722 

000004G 

MOV 

$FNR50t4,(R2)+ 
BFADR,'R2)+ 

016722 

000000' 

MOV 

016722 

OOOOOOG 

MOV 

$8FALL,(R2)t 

005022 

CLR 

(R2)  + 

016700 

OOOOOOG 

MOV 

$8FBAS,R0 

006000 

ROR 

RO 

ASR$ 

4,R0 

010042 

MOV 

R0,-(R2) 

;  GET  DESCRIPTOR  BIAS 

;  SAVE  NETLDR  DATA  BLOCK  BIAS 

;*  ENTER  KERNEL  MODE 

;♦  MAP  TO  THE  DESCRIPTOR 

;♦  IS  DESCRIPTOR  WITHIN  NETLDR  DATA  BLOCK? 

IF  EQ,  VES 

TALLV  DESCRIPTORS/BLOCK 
GET  DESCRIPTOR  ADDRESS 
COPY  RAD50  NAME 


LIBRARY  ADDRESS 
AND  LIBRARY  SIZE 
ZERO  THE  USE  COUNT 

GET  BASE  ADDRESS 
CONVERT  TO  AN  APR  NUMBER 


20$: 


RETURN 


1 '6777 
016700 

000001 


ERROR  CONDITION 


OOOOOOG  OOOOOOG  101$: 
000000' 


MOVB 
EMSG$ 

MOV 
RETURN 


.END 


$IOSB,a$CLIOS 

Y5 

BFADR.RO 


;*  STORE  IT 


COPY  I/O  ERROR  CODE 

LIBRARY  FILE  READ  ERROR 

RETURN  WITH  LIBRARY  ADDRESS  IN  RO 

AND  C-8IT  SET 
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TMI 
$AI 


306 

307 

308 

309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326  000276 

327 

328  000276     005000 

329  000300 

330  000304     012701 

331  000310 

332  000314  103402 

333  000316  010066 

334  000322 
335 

336  000324  005700 

337  000326  001444 
338 

339 
340 
341 
342 
343 
344 
345 
346 
3^7 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362  000330  116760 


.SBTTL  KR8AL  -  ALLOCATE  THE  KRB 

*♦*  -  KRBAL  -  ALLOCATE  THE  KRB 

THIS  ROUTINE  ALLOCATES  THE  KRB  (ONE  PER  CONTROLLER)  AND  LINKS  IT  INTO 
THE  SLT  FOR  ALL  LINES  ON  THIS  CONTROLLER. 

INPUT: 

$$PRI  =  DEVICE  PRIORITY 
$$VECT  =  VECTOR  ADDRESS 
$$CSR  =  CSR  ADDRESS 
SSLTA  =  SLT  ADDRESS 

FOR  RSX-11M+,  THE  FOLLOWING  ADDITIONAL  INFO: 
$URM  =  THE  UNIBUS  RUN  MASK 

OUTPUTS: 

R0-R4  =  DESTROYED 


KRBAL: 


OOOOOOG 
000002 


OOOOOOG  000000 


.IF  DF  RSJUM 


CLR 

RO 

SWSTKS 

20$ 

MOV 

#$KRBLN,R1 

CALL 

aALOce 

BCS 

10$ 

MOV 

R0,2(?P) 

10$: 

RETURN 

20$: 

T5T 

RO 

BEG 

101$ 

.IFF 

;  DF  R$$11M 

MOV 

R3,-(SP) 

MOV 

R4,-(SP) 

MOV 

#$KR8LN,R3 

CLC 

.INHO 

CALL 

$$RQC8 

ADC 

(SP) 

.ENBO 

MOV 

R4,R0 

MOV 

(SPJ+,R4 

MOV 

(SP)+,R3 

BCS 

101$ 

.ENDC 

;  DF  R$$11M 

.IF  OF 

R$$MPL 

SUB 

*K.PRM,RO 

.ENDC 

;  DF  R$$MPL 

M0V8 

$$PRI,K.PRI(RO) 

KRB  ALLOCATION  ADDRESS 

*  ENTER  KERNEL  MODE 
»  GET  LENGTH  OF  KRB 

*  TRY  TO  ALLOCATE  A  CORE  BLOCK 
»  IF  CS,  COULDN'T 

*  RETURN  ADDRESS  OF  CORE  BLOCK 

*  RETURN  TO  USER  MODE 

ALLOCATION  SUCCESSFUL  ? 
IF  EO,  ALLOCATION  FAILURE 


GET  SOME  FREE  REGISTERS 

GET'lENGTH  of  KRB 
ASSUME  SUCCESS 
INHIBIT  TASK  SWITCHING 

ALLOCATE  MEMORY 

SET  C-BIT  FOR  RETURN 

ENABLE  TASK  SWITCHING 
COPY  ADDRESS  OF  BLOCK  ALLOCATED 
RESTORE  REGISTERS 

If'cS,  ALLOCATION  FAILURE 


POINT  AT  ZERO  OFFSET  TO  KRB 


STORE  THE  PRIORITY 
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882 

885 

S84 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

9i7 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

038 


.SBTTL  SALICB  -  ALLOCATE  AN  iC8 

«♦•  -  SALICb  -  ALLOCATE  AN  KB 

THIS  ROUTINE  SHOULD  BE  CALLED  TO  ALLOCATE  AS  MANY  INTERRUPT 
CONTROL  BLOCKS  AS  ARE  NEEDED  TO  HANDLE  THE  CURRENT  CONTROLLER. 
THE  K8'S  ARE  THEN  INSERTED  INTO  THE  iC8  CHAIN  STARTING  FROM 
K.PRM  OF  THE  KRB. 

SINGLE  PROCESSOR,  NON-IRD  SPACE 
AN  KB  IS  ALLOCATED  FOR  EVERY  CONTROLLER  IN  THE  SYSTEM.  FOR 
EXAMPLE,  "  SYSTEM  WITH  TWO  DL'S  HAS  FOUR  ICB'S  AND  FOUR  INTERRUPT 
VECTORS  (AN  INPUT  VECTOR  AND  AN  OUTPUT  VECTOR  FOR  EACH  DL). 
EACH  INPUT  VECTOR  POINTS  TO  IT'S  OWN  KB,  AND  EACH  OUTPUT 
VECTOR  POINTS  TO  IT'S  OWN  KB.  THE  ICB'S  ARE  GROUPED  IN  BLOCKS, 
ONE  INPUT  KB  AND  ONE  OUTPUT  KB  PER  BLOCK.  EACH  BLOCK  OF  ICB'S 
ARE  ASSOCIATED  WITH  ONE  CONTROLLER,  AND  THERE  MAY  BE  UP  TO  THREE 
K8'S  PER  BLOCK  (ONE  FOR  MODEM  CONTROL). 

THE  IC8  BLOCKS  ARE  ALLOCATED  OUT  OF  THE  EXECUTIVE  DYNAMIC  MEMORY  POOL. 

KB  BLOCKS  ARE  LINKELi  TOGETHER  SO  THEY  CAN  BE  FOUND  BY  VECTOR  CREATION 
(JNITL,  SAV,  AND  CON)  AND  DRIVER  UNLOADING  (NTL).   THE 
FIRST  KB  OF  AN  KB  CHAIN  IS  POINTED  TO  BY  K.PRM  OF  THE  APPROPRIATE 
KRB.   A  POINTER  TO  AN  KB  IS  THE  VIRTUAL  ADDRESS/2  OF  THE  FIRST 
WORD  OF  THE  KB.   A  VECTOR  THAT  POINTS  TO  AN  KB  CONTAINS  THE 
VIRTUAL  ADDRESS  OF  THE  SECOND  WORD  (THE  MOV  B1AS,-(SP)  OF  THE  KB. 

MULTIPROCESSOR,  NON-I&D  SPACE 
BASICALLY  THE  SAME  AS  SINGLE  PROCESSOR,  N0N-I8D  SPACE  SYSTEMS. 

SINGLE  PROCESSOR,  I8D  SPACE 
BASICALLY  THE  SAME  AS  SINGLE  PROCESSOR,  NON-ISD  SPACE  SYSTEMS,  EXCEPT 
THAT  THE  KB  IS  ALLOCATED  FROM  A  SPECIAL  POOL.   THIS  MUST  BE  DONE 
BECAUSE  THE  EXECUTIVE  POOL  IS  MAPPED  AS  DATA  SPACE,  AND  THE  KB 
CONTAINS  INSTRUCTIONS  .  THE  KB  POOL  IS  IN  THE  MODULE  LOWCR. 
THE  USE  OF  THAT  POOL  IS  TRANSPARENT,  BECAUSE  THE  NAME  OF  ITS  LISTHEAD 
IS  THE  SAME  WHETHER  OR  NOT  THE  POOL  IS  IN  D  SPACE  OR  I8D  SPACE. 

MULTIPROCESSOR,  I8D  SPACE 
EACH  PROCESSOR  HAS  ITS  OWN  t OW  MEMORY  CONTEXT.   IT  INCLUDES  NOT 
ONLY  RSX-llM  INFORMATION  (FOR  EXAMPLE,  WHICH  TASK  IS  THE  ACTIVE 
TASK  ON  THE  PROCESSOR)  BUT  THE  INTERRUPT  VECTORS  AND  ASSOCIATED 
ICB'S  FOR  THE  PERIPHERALS  CONNECTED  (EVEN  :HROUGH  A  BUS  SWITCH) 
TO  THE  PROCESSOR'S  UNIBUS.   THEREFORE  EVERY  CPU  NEEDS  AN  KB  FOR 
EVERY  VECTOR  TYPE  OF  EVERY  CONTROLLER  CONNECTED  TO  THE  CPU'S  UNIBUS. 
FOR  EXAMPLE,  TWO  DL'S  (EACH  ONE  ON  A  DIFFERENT  CPU)  REQUIRE  FOUR  ICB'S. 
AN  KB  FOR  EACH  INPUT  VECTOR  ON  EACH  CPU,  AND  AN  KB  FOR  EACH  OUTPUT 
VECTOR  ON  EACH  CPU. 

TO  AVOID  HAVING  TO  CREATE  ICB'S  ON  THE  FLY  (FOR  EXAMPLE,  WHEN  A 
BUS  SWITCH  IS  SWITCHED),  ALL  ICB'S  THAT  ARE  POSSIBLY  NEEDfl  ARE 
CREATED  WHEN  THE  DRIVER  IS  LOADED. 

THE  ICB'S  ARE  LINKED  TOGETHER  BY  A  16-611  POINTER  IN  EACH  KB. 
THE  LISTHEAD  IS  THE  WORD  L.KB  OF  THE  APPROPRIATE  CTB.   THE 
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.TITLE   TMPERR  -  NTL  TEMPLATE  ERROR  PROCESSING 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDcR  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIP:iENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  "NTLTM?"  AND  "TMPST6"  ERROR  MESSAGES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY; 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00     07-N0V-83 

DECNET-IIM  V4.0 
DECNET-llM-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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48i 
^87 
^88 
489 
490 
491 
492 
49? 
494 
495 
496 
497 

498  001020  005022 

499  001022 
500 

501 
502 
503 
504 
505  001026 


5Si 


10$: 


.IFF 

Tsra 

BPL 
MOV 
ASR 
ADD 
BIC 
ASR 

.ENDC 

CLR 
SOB 

.IF  DF 

CALL 

.ENDC 

RETURN 


-5(R5) 

10$ 

-2(R4), 

R3 

#77, R3 

#77, R3 

R3 


(R2)  + 
R3,5$ 

R$$11D 
a(SP)t 


R2 


I$$AS 


IS  THIS  .CORE  OR  .BIN? 
IF  PL,  .BIN 

GET  ALLOCATION  ADDRESS 
CONVERT  TO  A  WORD  COUNT 


;•  ZERO  THE  ALLOCATION 


;*  RESTORE  PREVIOUS  MAPPING 
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CREF       04.00 


SYMBOL 

VALUE 

REFERENCE 

S 

SLNB 

000444 

R 

6-113 

#9-339 

SLNW 

000470 

R 

6-114 

#9-350 

STNB 

000536 

R 

6-115 

#9-377 

STNW 

000574 

R 

6-116 

#9-390 

S.COST 

000001 

#5-64 

S.FLG 

000000 

#5-64 

S.LEN 

000004 

#5-64 

S.NMST 

000002 

#5-64 

S.OWNR 

000003 

#5-64 

TABLE 

000000 

R 

#6-89 

7-183 

13- 

583 

TIME 

001612 

R 

6-123 

#15-704 

UNB 

000636 

R 

6-117 

#9-405 

UNW 

000660 

R 

6-118 

#9-415 

WORD 

000702 

R 

6-119 

#9-425 

X2CH01 

001774 

R 

6-137 

#17-798 

X2CH02 

002022 

R 

6-138 

#17-808 

X2CH03 

002050 

R 

6-139 

#17-818 

X2CH04 

002076 

R 

6-140 

#17-828 

X2CH05 

002124 

R 

6-141 

#17-838 

X3CH01 

001672 

R 

6-126 

#16-741 

X3CH02 

001700 

R 

6-127 

#16-746 

X3CH03 

001706 

R 

6-128 

#16-751 

X3CH04 

001714 

R 

6-129 

#16-756 

X3CH05 

001722 

R 

6-130 

#16-761 

X3CH06 

001730 

R 

6-131 

#16-766 

X3CH07 

001736 

R 

6-132 

#16-771 

X3CH08 

001744 

R 

6-133 

#16-776 

X3CH09 

001752 

R 

6-134 

#16-781 

X3CH10 

001760 

R 

6-135 

#16-786 

X3CH11 

001766 

R 

6-136 

#16-791 

ZTIME 

-      ♦**♦♦♦ 

GX 

15-704 

SADDR 

=      ♦#♦♦*■♦ 

GX 

7-176 

9-316 

13 

-610 

$BIAS 

=      ****** 

GX 

12-555 

$BIN 

=      ****** 

GX 

7-175 

$CTIM 

-      ♦*♦**« 

GX 

9-249 

SFLAGS 

=      ****** 

GX 

8-195 

8-205 

9- 

?55 

17-819 

17-829 

17 

-839 

SLDA 

-      ****** 

GX 

14-663 

♦14-667 

$MAPX 

=      ****** 

GX 

10-456 

11-533 

14 

-651 

SMXSIZ 

~      ****** 

GX 

15-697 

$PTR 

-      ****** 

GX 

7-177 

$SLN 

-      ****** 

GX 

9-344 

9-356 

SSLTSV 

r     ****** 

GX 

9-266 

$TMEX2 

000000 

RG 

#7-172 

SUBIAS 

r     ****** 

GX 

10-455 

11-532 

14 

-653 

$UDA 

r     ****** 

GX 

10-460 

♦10-475 

11 

-537 

$X2HID 

-     ****** 

GX 

17-843 

$X2MBS 

-     ****** 

GX 

17-813 

$X2MRT 

=     ****** 

GX 

17-823 

$X2MWS 

-     ****** 

GX 

17-803 

$X2RET 

=     ****** 

GX 

17-835 

$X3CAL 

=     ****** 

GX 

16-761 

13-608 


15-687 


9-257 


9-280 


9-282 


9-325 


17-799 


17-809 


•11-540 


TMPFX? 
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.SBTTL  MACRO  OEFINTIONS 

LIBRARY  MACROS 

.MCALL  EMSGI,EMSGIR,N7LER$,ASR$ 

.IF  DF  R$$MPL 

.MCALL   STAF$,RMAF$S,DIR$ 

.ENDC 
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inCAl  DATA 


00:38  Pa 


ge  6 


TMPACO 

CREATED  BY 

MACRO  ON  29- 

JUN-85  AT 

00: 

39    PAGE 

MACRO  CROSS 

Ri 

TERENCE 

CREF 

MACRO  ^JAME 

REFERENCES 

ASR$ 

CALL 

CALLR 

EMSG$ 

EMSGSR 

NTLERt 

RETURN 

#5-60 
8-123 
9-U7 
#5-60 
#5-60 
#5-60 
8-129 

13-226 

9-U3 

10-16A 

13-261 

7-100 

13-256 

10-160 
11-181 

13-262 

7-101 

U-287 

11-177 
12-198 

13-263 
7-102 

F     2 


OA.OO 


12-19^ 


13-212 


^'^-277 


U-285 


♦♦FILE>«ID«»TMPAC2 
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A$$CH<= 

000000 

F1.MXT= 

»*»»»*  GX 

N$$LDV= 

000001 

$ELINE= 

******  GX 

SNALL  = 

******  GX 

A$$CPS= 

000000 

F2.flL= 

*♦«***  GX 

N$$MCP= 

000001 

SERRKX 

000316R 

002 

$NLIB  = 

******  GX 

A$$PRI= 

000000 

G$$TPP= 

000000 

N$$MLL= 

000001 

SERRKY 

000362R 

002 

$UFF  = 

******  GX 

A$$TRP= 

000000 

G$$TSS= 

000000 

N$$MOV= 

000010 

$ERR17 

000004R 

99? 

$PRV.N= 

******  GX 

CTLfR":: 

00062AR 

G$$TTK= 

000000 

N$$NCT= 

000001 

$ERR22 

000204R 

002 

$REP.C= 

******  GX 

C$$CfP= 

000000 

G$$WRD= 

000000 

N$$PEM= 

000001 

$ERR41 

969?^?" 

002 

$RQ1  = 

******  GX 

CS$ORE= 

OOOAOO 

I$$RAR= 

000000 

P$$P45= 

000000 

$ERR42 

000104R 

002 

$RQ?  = 

******  GX 

C$$RSH= 

177^64 

1$$RDN= 

000000 

P$$WRD= 

000000 

$ERR43 

000146R 

"9? 

$RQ4  = 

*♦*♦»*  GX 

D$$BUG= 

1775U 

K$$CNT= 

177546 

Q$$OPT^ 

000010 

$ERR81 

000242S 

99? 

SSECSR 

001020RG 

D$$ISK= 

000000 

K$$CSR= 

177546 

R$$DER= 

000000 

$ERR85 

000270R 

002 

SSIZE  = 

******  GX 

D$$L11= 

000001 

K$$LDC= 

000000 

R$$K11= 

000001 

SEVEN  = 

«»****  GX 

STERR  = 

******  GX 

[)$$YNC  = 

000000 

K$$TPS= 

000074 

R$$SNP= 

000000 

SFILE 

OOOOOORG 

$TMFIX= 

******  GX 

D$$YNM= 

000000 

LDSLP  = 

000000 

R$$11H= 

000000 

$FILEN= 

***««*  GX 

$VALUE= 

******  GX 

E$$XPR= 

000000 

L$$ASG= 

000000 

S$IURG= 

000000 

SFILEX 

000050RG 

$VF[>DM= 

******  GX 

FL.CHA= 

*»♦*♦*  GX 

L$$DRV= 

000000 

S$$YSZ= 

007600 

$FLAGS= 

******   GX 

$VFDLC= 

******  GX 

FL.LHC= 

»♦»*«♦  GX 

L$$P11= 

000001 

THPEXT 

OOOOOOR 

002  $FLAG1= 

******  GX 

SVFMUX 

001070RG 

FL.MUX= 

****««  GX 

L$$11R= 

000000 

T$$KMG= 

000000 

$FLAG2^ 

******  GX 

$VFSPC= 

******   GX 

FMT2 

000A42R 

002 

MAXU 

000336R 

T$$M1N^ 

000000 

SLflLE 

000436RG 

$$MTP  = 

******  GX 

FMT3 

000461 R 

002 

M$$CRB= 

000124 

V$$CTR- 

001000 

SLFLD  = 

******  GX 

$$MUX  = 

******  GX 

FM.2   = 

000000 

M$$CRX= 

000000 

X$$DBT= 

000000 

SMPLD  = 

******  GX 

.EOF  = 

******  GX 

FM.3  = 

000000 

M$$FCS= 

000000 

$ALL16= 

****** 

GX 

SMPTB 

000370RG 

.FILE  = 

******  GX 

F$$L'''L  = 

000001 

MS$MGE= 

000000 

$AZFS  = 

****** 

GX 

$HXADD= 

******   GX 

.LFILE= 

******  GX 

F1.LF!= 

******  GX 

M$$NET= 

000000 

SCFILE 

000704RG 

$MXLEN= 

******   GX 

.MPTAB= 

******  GX 

F1.LFL= 

******  GX 

M$$OVR= 

000000 

$CLIOS= 

****** 

GX 

SHXPTB 

000064RG 

.MXPTB= 

******   GX 

Fl .MPL= 

******  GX 

N$$ACC= 

000001 

$CLQUE= 

****** 

GX 

$MXSI2= 

******  GX 

.MXTAB= 

******  GX 

F1.MPT= 

******  GX 

N$$BUf= 

000001 

$EFNLL= 

****** 

GX 

SMXTAB 

000632RG 

.SECSR= 

******  GX 

.  ABS. 

000000 
001110 

000 
001 

(RW,I,GBL,ASS,OVR) 
(RW,I,LCL,REL,CON) 

DATA 

000506 

002 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

••*  Assembler  stat 

i  s  t  i  c 

S 

Work   f 

ile  reads 

0 

Work   f 

ile  writes 

0 

Size  of 

work  file 

10250  Words 

(  41  Pages) 

Size  of 

core  Dool 

K440  Words 

(  55  Pages) 

Operating  system 

RSX- 

11M/PLUS 

SY?TMPAC2lv2;[132,134]tMPAC2/CR/-SP=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,tl32,10]TMPAC2 
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MM 

MM 
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CCCCCCCC 

44    44 
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MM 

MM 
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AAAAAA 

CCCCCCCC 

44    44 

MMM^ 

MMMM 

PP      PP 

AA 

AA 

44    44 

mw 

MMMM 

PP      PP 

AA 

AA 

44    44 

MM 

*IM  MM 

PP      PP 

AA 

AA 

44    44 

MM 

^y\     MM 

PP      PP 

AA 

AA 

44    44 

MM 

MM 

PPPPPPPP 

AA 

AA 

^^A4444  44 

MM 

MM 

PPPPPPPP 

AA 

AA 

A444444444 

MM 

MM 

PP 

AAAAAAAAAA 

44 

MM 

MM 

PP 

AAAAAAAAAA 

44 

MM 

MM 

PP 

AA 

AA 

44 

MM 

MM 

PP 

AA 

AA 

44 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

44 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

44 

SSSSS5SS 

TTTTTl 

TTTT 

ssssssss 

TTTTTl 

1  1  1  i 

ss 

ss 

ss 

ss 

S5SSS5 

SSSSSS 

ss 

ss 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLMLLLL 

SSSSSSSS 
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TMPAC4 

creat: 

.   BY 

M-.CRO     ON  29 

-JUN-85  AT 

00:39 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SCLIOS 

:::     ****** 

fix 

6-183 

SCORE 

000506 

RG 

#8-242 

SC0RE1 

000236 

RG 

#7-205 

SCUR.N 

=      ****** 

(iX 

5-90 

SCVAL 

=      ****** 

GX 

♦7-215 

♦8-255 

8-256 

SEFNLL 

r     ****** 

GX 

5-86 

5-90 

tELINE 

=     *****  * 

GX 

5-84 

5-91 

$ERR26 

000000 

R 

#5-84 

6-192 

8-295 

$ERR76 

00004A 

R 

#5-86 

6-141 

$ERR77 

000100 

R 

#5-90 

6-184 

$ERR78 

000156 

R 

#5-91 

10-357 

SFLAGS 

-  ****** 

GX 

6-127 

8-253 

9-313 

SFLAGI 

~  ****** 

GX 

6-147 

8-262 

$FLAG2 

-   ****** 

GX 

6-124 

SIOSB 

~   ****** 

GX 

6-183 

$LBN 

r     ****** 

GX 

♦6-178 

♦6-179 

SLLEN 

-     ****** 

GX 

♦6-180 

SNALL 

=     ****** 

GX 

♦6-155 

•8-270 

♦9-525 

tNLIB 

r     ****** 

GX 

10-348 

$READX 

=     ****** 

GX 

6-181 

SREP.C 

-     ****** 

GX 

5-84 

5-91 

11-374 

$R05 

=     ****** 

GX 

9-310 

$RQ7 

=     ****** 

GX 

8-246 

SSCOM 

000452 

RG 

#9-308 

$SI7E 

=   ****** 

GX 

♦6-171 

♦8-285 

♦9-332 

STERR 

=  ****** 

GX 

5-84 

5-90 

5-91 

STWARM 

=   ****** 

GX 

5-86 

SVALUE 

=  ****** 

GX 

6-132 

6-163 

6-164 

♦9-322 

9-330 

9-331 

$VFLV1 

=   ****** 

GX 

8-243 

9-309 

.BASEB 

=  uoooo 

#5-64 

5-76 

7-216 

.CORE 

-    *♦****■ 

GX 

6-157 

8-271 

.SCOM 

-     ****** 

GX 

9-326 

F     5 

PAGE   2 

CREF       04.00 


8-281 


8-282 


TMP 

MAC 

MACI 

ASL' 
CALI 
EMS 
EMS' 
NHW 
NTL; 
RET 


10-346 


7-209 


♦7-216 


8-277 


8-278 


♦9-315 


9-316 


TMPAC4 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:39 


PAGE   3 


G     5 


TMPAC5     CREATED  BV 
MACRO  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  00:-,^ 


F  6 

PAGE  3 

CREf   OA.OO 


TW 
$L 


MACRO  NAME 

ASL$ 

CALL 

EMSGI. 

EMSGSR 

NHWDFS 

NTLERt 

RETURN 


REFERENCES 

#5-59 

6-138 
#5-59 
#5-59 
#5-59 
#5-59 

6-157 


8-231 
6-U1 

7-183 
5-64 
5-77 
7-178 


6-151 

7-185 

5-78 
8-239 


6-153 
8-245 
5-79 


6-155 
8-246 
5-80 


7-172 
8-247 
5-82 


7-173 
8-248 
5-86 


7-184 


8-202 


*'F1LE«»1D*»TMPAl6 
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345 

.SBTTL 

SLINKS  -  .LINKS  / 

\L IIUN  KUUI INt 

3A6 

SLINKS  -  ".LINKS"  ACTION  ROUTINE 

3A7 

3A8 

INPUTS: 

3A9 

NONE 

350 

351 

OUTPUTS: 

352 

R2^DESTR0VED 

353 

IlINKS:: 

354  OOOS'^A 

355  000574 

CALL 

SVFLLC 

MAKE  SURE  IT'S  AN  LLC 

356  000600 

CALL 

SRQ1 

REQUEST  BINARY  BUFFER 

ACCESS 

357  000604 

103405 

BCS 

10$ 

IF  CS,  NO  ACCESS 

358  000606 

112712 

OOOOOOG              M0V8 

#. LINKS, (R2) 

STORE  FUNCTION  CODE 

359  000612 

062767 

000002  OOOOOOG        ADD 

*2,$SIZE 

ADJUST  DATA  BASE  SIZE 

360  000620 

OS:    RETURN 
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1 
2 
3 
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8 

9 
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16 
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20 
21 
22 
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2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
10 
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44 
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.TITLE   TMPAC7  -  NTL  TEMPLATE  PROCESSING  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  7 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet~11M-PLus  V3.0 
DECnet-Micro/RSX  Vl.O 
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Ci 
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TMPAC7     CREATED  BY  MArRO  ON  29-JUN-85  AT  00:'.1 
MACRO  CROSS  REFE^'ENCE 


F  9 

PAGE  3 

CREF   04.00 


MACRO  NAME 
CALL 


EMSGS 

EMSGSR 
NTLERS 
RETURN 


SWSTKS 


REFERENCES 

6-127 

7-1 8A 

10-284 
#5-59 
#5-59 
#5-59 

6-K3 

15-394 

9-238 


6-129 

7-192 

n-318 

7-170 

7-193 

5-78 

7-186 

10-269 


6-133 

7-195 

11-320 

10-284 

7-196 

5-83 

7-201 

11-318 


6-137 
7-198 
12-351 

8-224 

5-86 

8-218 


6-140 
7-199 
12-361 


5-87 
9-251 


6-142  7-170  7-171  7-178  7-182 

8-223  9-238  9-239  10-269  10-272 


10-277  10-285  11-324  11-339  12-362 


»*FILE»MD*»TMPAC8 
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Symbol  table 


TM' 
KRI 


A$$CHii;= 

000000 

F$$LVL= 

000001 

M$$CR8= 

000124 

P$$P45= 

299295 

$BFXFR= 

*»«»**  GX 

A$$CPS= 

000000 

G$$TPP= 

000000 

l»l$$CRX= 

000000 

P$$WRD= 

000000 

$CLDEQ= 

*♦♦*««  GX 

A$$PR1= 

000000 

G$$TSS= 

000000 

M$$FCS= 

000000 

Q$$0PT= 

000010 

$CLI0S= 

*♦♦♦♦*  GX 

At$TRP= 

000000 

G$$TTK-- 

000000 

M$$I»IGE  = 

000000 

R$$DER= 

000000 

$CUR.N= 

*♦*♦»*  GX 

BFAOR 

OOOOOOR 

002 

G$$WRD= 

000000 

M$$NET= 

000000 

R$$K11= 

000001 

$EFNLL= 

******   GX 

C$$CKP= 

000000 

I$$RAR= 

000000 

M$$OVR=' 

000000 

R$$SND= 

000000 

$ERRY5 

000004R 

C$$ORE= 

000^00 

I$$RDN= 

000000 

NLBLK 

000002R 

002  R$$11M= 

000000 

$FNR50= 

******   GX 

C$$RSH= 

177564 

K$$CNT= 

1775A6 

NTLPT  = 

»«♦♦««  GX 

S$$WRG= 

000000 

SIOSB  = 

******  GX 

D$$BUG= 

1775  V. 

<$$CSR= 

177546 

N$$ACC= 

000001 

S$$YSZ= 

007600 

$LBADR= 

******  GX 

D$tISK= 

000000 

l<;$$LDC  = 

000000 

N$$BUF= 

000001 

T$$KMG= 

000000 

$LBIAS= 

«♦«***  GX 

D$$L11- 

000001 

K$$TPS= 

000074 

N$$LDV= 

000001 

T$$MIN= 

000000 

$LBN  = 

******   GX 

0$$YNC= 

000000 

LD$LP  = 

000000 

N$$MCP= 

000001 

V$$CTR= 

001000 

SLBXFR 

OOOOOORG 

D$$YNM= 

000000 

L$$ASG= 

000000 

N$$MLL= 

000001 

X$$D8T= 

000000 

$LLEN  = 

******  GX 

E$$XPR= 

000000 

L$$DRV= 

000000 

N$$M0V= 

000010 

$BFALL= 

»*«*•*  GX 

$MAPX  = 

******  GX 

FMT6  - 

******  Gx 

L$$P11= 

000001 

N$$NCT= 

000001 

$SFBAS= 

**♦*♦«  GX 

$READX= 

»****♦  GX 

FM.6  = 

000000 

L$$11R= 

000000 

N$$PEM= 

000001 

$BFLBN= 

******  GX 

$TERR  = 

***♦*♦  GX 

.  AB5. 

000000 
0C0172 

000 
001 

(RW,I,G3L,ABS,0VR) 
(RW,I,LCL,REL,C0N) 

DATA 

0000A2 

002 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

♦♦*  Assembler  statistics 

Work   f 

lie  reads 

0 

Work   f 

i le  writes 

0 

Size  of 

work  file 

10159  Words 

(  40  Pages) 

002 


Size  of   core  pool:    14440  Words      (   55  Pages) 
Operating      system:    RSX-11M/PLUS 

SYfTMPAC9!v2![?32J^4]TMPAC9/CR/-SP=SY:Cl  J]RSXMCM.SML/ML,[130,110]NErLIB/ML,C130J0]RSXMCM/PA:1,[1^ 
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TMPALT   -   TEMPLATE   ALLOCATION  RO  MACRO  V05.03b   Saturday  29-Jun-85  00:^1 
KlRPAL    -  ALLOCATE    THE    KRB 


365  000336 

364  000342 

365  000344 

366  000346 

367  000352 
368 

369 
370 

371  000360 

372  000364 

373  000370 
374 

375 
376 
377 
378 
379 
380 
381 

382  000374 

383  000400 

384  000404 
385 

386  000406 

387  000410 

388  000414 

389  000416 

390  000422 
391 

392 
393 

394  000424 

395  000430 

396  000432 

397  000434 
398 

399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 


016701 
006201 
006201 
110160 
016760 


016701 
116102 
116103 


OOOOOOG 


000001 
OOOOOOG  000002 


OOOOOOG 

000002 

000012 


MOV  $$VECT,R1 

ASR  R1 

ASR  R1 

Move  RI.K.VCKRO) 

MOV  $$CSR,K.CSR(RO) 


Page  9-1 


GET  THE  VECTOR  ADDRESS 
DIVIDED  BY  4 

STORE  THE  VECTOR/4 
STORE  THE  CSR  ADDRESS 


TM 
$A 


STORE  THE  KRB  ADDRESS  IN  ALL  SLT'S  ON  THIS  CONTROLLER 


MOV 

MOVB 

M0V8 


$SLTA,R1 

L.DDM(R1),R2 

L.CTL(R1),R3 


.]F  DF  R$$MPL 


017701 
017746 
001420 

012104 
120264 
001005 
120364 
001002 


010064 
005316 
003365 
005726 


OOOOOOG 
OOOOOOG 


000002 
000012 

000016 


MOVB 
ASL8 

.IFTF 

MOV 
MOV 
BEQ 

MOV 

CMPB 

BNE 

CMPB 

BNE 


FOUND  ONE 


30$: 


35$: 
37$: 


MOV 
DEC 
BGT 
TST 

.IFT 

CLRB 

MOV 

CLRB 

CLR 

MOV 

CLR 

MOV 

ADD 

MOV 


R3,K.C0N(R0) 
K.CON(RO) 

;  Df  R$$MPL 

aSLTMA,Rl 

aSLTNM,-(SP) 

111$ 

(R1)+,R4 

R2,L.DDM(R4) 

35§ 

R3,L.CTL(R4) 

35§ 


R0,L.KRBA(R4) 

(SP) 

30$ 

(SP)  + 

;  DF  R$$HPL 

K.IOC(RO)       ; 

#KS.OFL,K.STS(RO) 

K.HPU(RO) 

K.OWN(RO) 

$URM,K.URM(RO) 

K.CRQ(RO) 

RO.RI 

#K.CRQ,R1 

R1,K.CRQ+2(R0) 


GET  THE  SLT  ADDRESS 

SAVE  THE  DDM  PDV  INDEX  FOR  THIS  LINE 

SAVE  THE  CONTROLLER  NUMBER  FOR  THIS  LINE 


STORE  THE  CONTROLLER  NUMBER  IN  THE  KRB 
GET  CONTROLLER  NUMBER*2 


GET  THE  START  OF  THE  SLT  TABLE 

SAVE  THE  NUMBER  OF  SLT  ENTRIES  ON  STACK 

IF  EQ,  NO  ENTRIES  ..  LOGIC  ERROR 

GET  NEXT  SLT  ADDRESS 

IS  THIS  THE  SAME  DEVICE  TYPE  ? 

IF  NE,  NO  ..  KEEP  LOOKING 

IS  THIS  THE  SAME  CONTROLLER  ? 

IF  NE,  NO  ..  KEEP  LOOKING 


STORE  THE  KRB  ADDRESS  FOR  THIS  LINE 
REPEAT  <$SLTNM>  TIMES 

PURGE  THE  STACK 


INITIALIZE  THE  I/O  COUNT 

;  INITIALIZE  THE  STATUS  WORD,  OFFLINE 

CLEAR  THE  HIGHEST  UNIT  NUMBER 

NO  OWNER  TASK 

STORE  THE  UNIBUS  RUN  MASK 

INITIALIZE  THE  CONTROLLER  REQUEST  QUEUE 


INSERT  KRB  ADDRESS  INTO  CTB 


MOVB 

ADD 

MOV 

CALL 

BCC 

EMSG$ 

BIC 


K.CON(R0),R1 

$CT8AD,R1 

R0,L.KRB(R1) 

SHRCIN 

40$ 

9Y 

#F1.ERR,$FLAG1 


GET  THE  CONTROLLER  NUMBER*2 
CALCULATE  THE  START  OF  THE  CTB 
SET  KRB  ADDRESS  IN  CTB 
RE-INITIALIZE  HRC... 
IF  CC,  ALL  OKAY 
ELSE,  WARN  SOMEBODY 
THIS  IS  ONLY  A  WARNING 


OFFSET 


G  11 
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SALICB  -  ALLOCATE  AN  ICB 
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939 

9^0 

94-' 

9^2 

9^3 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 


POINTERS  NEED  TO  BE  18  BITS,  BECAUSE  THE  POOLS  THAT  CONTAIN  THE 
ICB'S  ARE  IN  THE  CPU  PARTITIONS,  WHICH  CAN  BE  ANYWHERE  IN  THE  124K 
OF  A  SAVED  SYSTEM  IMAGE.  TO  GET  AROUND  THIS,  THE  POINTERS  ARE  ENCODED 
VALUES.   THE  UPPER  FOUR  BITS  ARE  THE  NUMBER  OF  THE  CPU  TO  WHICH  THE 
ICB  BELONGS.   USING  THAT  AS  AN  INDEX  INTO  THE  TABLE  AT  $K;6TAB  GIVES 
THE  BLOCK  NUMBER  (32.  WORDS  PER  BLOCK)  OF  THE  BASE  OF  THE  CPU  DEPENDENT 
LOW  MEMORY  CONTEXT.   THE  LOWER  12  BITS  ARE  THE  VIRTUAL  ADDRESS/2  OF  THE 
ICB  WITHIN  THAT  LOW  MEMORY  CONTEXT.   NOTE  THAT  THIS  LIMITS  THE 
SIZE  OF  A  LOU  MEMORY  CONTEXT  TO  A  MAXIMUM  OF  4K. 

INPUTS: 

SSLTA  =  THE  SLT  ADDRESS  FOR  THIS  LINE 
CALLED  AT  SYSTEM  STATE 

OUTPUTS: 

C-eiT  =  SUCCESS/FAILURE 

IF  SUCCESS: 

ALL  ICBS  WERE  ALLOCATED  AND  LINKED  TOGETHER 

RO  =  ZERO  IF  THIS  IS  A  MULTI-PROCESSOR  STSTEM 

RO  =  THE  ICB  ADDRESS  IF  THIS  IS  NOT  A  MULTI-PROCESSOR  SYSTEM 

R1-R4  =  DESTROYED 


SAL ICB: 


.IF  DF   R$$MPL 


10$: 


TSTB 

BNE 

MOV 

SUB 

MOV 

CALL 

BCS 

M0V8 

M0V8 

MOV 

MOV 

MOV 

ASR 

MOV 

CLR 

RETURN 


5)NCPU 

20$ 

ICAVL,RO 

#2,R0 

$IC8SZ,R1 

aALOC" 

10$ 

$NVECT,(RO)* 

$ICBLN,(RO)+ 

SSLTA, R1 

L.KR8A(R1),R1 

R0,R2 

R2 

R2,K.PRM(R1) 

(RO) 


MORE  THAN  1  CPU  ? 

IF  NE,  YES 

GET  ADDRESS-2  OF  ICB  POOL  LISTHEAD 

AND  LENGTH  OF  AN  ICB 
ALLOCATE  THE  ICB 
IF  CS,  ALLOCATION  FAILURE 
STORE  THE  NUMBER  OF  ICB'S 
AND  THE  LENGTH  OF  EACH  ICB 
GET  THE  SLT  ADDRESS 
GET  THE  KRB  ADDRESS 
COPY  THE  ICB  ADDRESS 
DIVIDE  THE  ADDRESS  BY  2 
STORE  THE  ADDRESS  IN  THE  KRB 
CLEAR  THE  LINK  POINTER 
RETURN  TO  CALLER 


IF  THE  CONTROLLER  IS  ON  A  SWITCHED  BUS, 
PROCESSORS  THE  BUS  CAN  BE  SWITCHED  TO. 


DETERMINE  WHICH 


50$: 


30$: 


MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
CLR 
BIT 
BED 
MOV 
MOV 


aCPMSK,R2 

aKSAR5,-(SP) 

SSLTA, R4 

L.KR8A(R4),R4 

K.URM(R4),R0 

#K.PRM,R4 

(R4) 

R2,R0 

106$ 

DEVHD,R1 

(R1),R1 


GET  CPU  RUN  MASK 

SAVE  CURRENT  MAPPING 

GET  THE  SLT  ADDRESS 

GET  THE  KRB  ADDRESS 

GET  UNIBUS  RUN  MASK 

POINT  R4  AT  START  OF  ICB  CHAIN 

ZERO  LINK  TO  NEXT  ICB 

IS  CONTROLLER  ON  A  SWITCHED  BUS? 

IF  EQ  NO 

POINT  AT  DEVICE  LIST  HEAD 

GET  NEXT  DEVICE  IN  LIST 


TMPALT  -  TEMPLATE  ALLOCATION  RO  MACRO  V05.03b  Saturday  29-Jun-85 


00:41 
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56 

57 

S8 

59 

60 

61 

62 

63 

64  000000 

65 

66 

67 

68 

69 

70 

71  000000 

72  000026 

73  000064 

74  0001 16 
75 

76 

n 

78 

79  000K4 

80  000200 

81  000234 

82  000276 

83  000340 

84  000370 
85 

86 
87 
88 
89 
90 
91 
92 

93  000420 

94  000437 
95 

96 
97 
98 
99  000000 


•  *** 

;  LIBRARY  MACROS 

•  »»* 

.MCALL   EMSG$R,NTLER$ 
■  *** 

•  LOCAL  DATA 


•  *** 


.PSECT  DATA,D 

"NTLTMP"  ERROR  MESSAGES  (PLACED  HERE  FOR  OVERLAY  PURPOSES) 

.ENA8L  LC 

NTLERS  <:>,9,2,$TERR,$REP.C,$ELINE,<Syntax  Error) 

NTLERI  <:>,10,3,$TERR,$PRV.N,,<Read  Failure  (-•«*.)> 

NTLERS  <:>,11,3,$TUARN,$REP.P,,<No  End  Statement) 

NTLERS  <:>,12,3,STERR,$REP.P,$ELINE,<Read  0\/erfLow> 

"TMPSie"  ERROR  MESSAGES  (PLACED  HERE  FOR  OVERLAY  PURPOSES) 

NTLERS  <:>,l,2,$TERR,$REP.C,SELINE,<Undefined  Operator) 

NTLERS  <:>,3,2,STERR,SREP.C,SELINE,<No  Operands  Allowed) 

NTLERS  <:>,4,2,$TERR,$REP.C,$ELINE,<Only  One  Operand  Allowed) 

NTLERS  <:>,5,2,STERR,SREP.C,SELINE,<Only  Two  Operands  Allowed) 

NTLERS  <:>,6,2,STERR,SREP.C,SELINE,<0perand  Missing) 

NTLERS  <:),7,2,STERR,SREP.C,SELINE,<Illegal  Operand) 

.DSABL  LC 


ERROR  MESSAGE  FORMAT  STRINGS 


052 
052 


040 
040 


124 
124 


FMT2: 
FMT3: 


.ENABL 

.NLIST 

.ASCIZ 

.ASCIZ 

.EVEN 

.DSA8L 

.LIST 

.PSECT 


LC 
BEX 


Template  —  " 
Template  Fi  le  — 


LC 
BEX 


TMPERR  -  NTL  TEMPLATE  ERROR  PRO  MACRO  V05.03b  Saturday  29-Jun-85 


00:4 


2  Page  6 


F  U 

TMPEX,:  -  NTL  EXPANSION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-S5  00:^2 
T^b'e  ot  contents 


s- 

55 

MACRO  DEFINIIiONS 

(S- 

78 

LOCAL  DATA 

1- 

155 

$TMEX2  -  EXPAND  BINARY  INFO 

R- 

187 

ADDRB,ADDRW,8LKB,8LKU 

1(S- 

736 

X5CH 

\l- 

79A 

X2CH 

G  U 
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TMPEX?  -  NTL  EXPANSION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00;42 
ADDRB,ADDRW,BLKB,BLKW 


507 
508 
509 
510 

511  001030 

512  001032 

513  00103A 
5U  001036 

515  001042 

516  001044 

517  001046 

518  001052 

519  001054 

520  001056 

521  001060 

522  001064 
523 

524  001066 

525 

526 

527 

528  001066 

529 

530 

531 

532  001072 

533  001076 
534 

535 
536 

537  001102 

538  001106 

539  001112 

540  WIII4 
541 

542 

543 

544 

545 

546  001120 

547 


112524 

112524 

112546 

112566  000001 

012603 

001425 

016400  177776 

010346 

006203 

005020 

012603 


•  POINTER  TO  ALLOCATED  SCOM 


SCOM: 


5$! 


SAVALC: 


016700  OOOOOOG 


016702  OOOOOOG 

016422  177776 
010322 

010267  OOOOOOG 


10$: 


.ENABL 

LS8 

Move 

(R5)t,(R4)+ 

Move 

(R5i+,(R4)+ 

MOVB 

(R5)+,-(SP) 

M0V8 

(R5)t,1(SP) 

MOV 

(SP)+,R3 

BEQ 

10$ 

MOV 

-2(R4),R0 

MOV 

R3,-(SP) 

ASR 

R3 

CLR 

(R0)+         ; 

SOB 

R3,5$ 

MOV 

(SP)+,R3 

.IF  DF 

M$$MGE 

.IF  DF   R$$11M 

SWSTKS 

10$ 

.ENDC 

MOV 

$UBIAS,RO 

CALL 

$MAPX 

.ENDC 

MOV 

$UDA,R2 

MOV 

-2(R4),CR2)+ 

MOV 

R3,(R2>t 

MOV 

R2,$UDA 

.IF  DF 

R$$11D  :  I$$AS 

CALL 

S(SP)t 

.ENDC 

RETURN 

.DSA8L 

Lse 

Page  11 


copy  address 
assemble'count 


IF  ZFRO,  NO  UNLOAD  DATA  TO  STORE 
GET  SCOM  ADDRESS 
SAVE  R3 

convert  to  a  word  count 
zero  the  allocated  scom 

restore'r3 


*  ENTER  KERNEL  MODE 


*  GET  UNLOAD  BLOCK  BIAS 

*  MAP  TO  UNLOAD  BLOCK 


GET  UNLOAD  DATA  ADDRESS 
STORE  ALLOCATION  ADDRESS 
STORE  COUNT 
SET  NEW  UNLOAD  DATA  ADDRESS 


»  CO-ROUTINE  CALL  TO  RESTORE  MAPPING 
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SYMBOL  CROSS  REFERENCE  CREf   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

SX3CLR 

- 

*  *  mr  ** 

GX 

16-766 

SX5DBS 

~ 

*■  t  *  **• 

GX 

16-7A1 

$X3DWS 

r 

•**%** 

GX 

16-751 

$X5MBS 

- 

»♦♦♦«♦ 

GX 

16-746 

$X3MCL 

r 

*  1l*  t  *  * 

GX 

16-781 

$X5MRE 

= 

t **•■*  k 

GX 

16-786 

$X3MRS 

- 

****** 

GX 

16-791 

$X3MWS 

- 

*(r***  « 

GX 

16-756 

$X5RES 

~ 

****** 

GX 

16-771 

$X5RST 

- 

****** 

GX 

16-776 

$$APR 

r 

****** 

GX 

15-717 

SSCSR 

~ 

****** 

GX 

9-242 

$$DCHA 

- 

****** 

GX 

9-269 

9-270 

$$DPR 

- 

****** 

GX 

15-726 

15-732 

SSL  SAD 

r 

It****  * 

GX 

8-197 

8-208 

SSMTP 

- 

****** 

GX 

9-379 

9-392 

SSPCHA 

~ 

****** 

GX 

9-289 

SSPRI 

= 

****** 

GX 

12-568 

SSSCSR 

r 

****** 

GX 

9-331 

SSSNUM 

z: 

****** 

GX 

9-382 

9-396 

.EOF 

= 

****** 

GX 

13-580 

13-605 

15-684 
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LOCAL  DATA 


50;38 
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70  000000 

71 

72 

73 

74 

75  000000 

76  000002 

77  OOOOOA 

78  000006 

79  000010 

80  000012 
8'  OOOOU 
82  000016 
83 

P 
I 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


.SBTTL  LOCAL  DATA 
.PSECT  DATA,D 
NONSENSE  INTERRUPT  TABLE  (RSX11M) 

NSITAB: 


SETAE: 


.IF  or 

R$$11M 

.WORD 

NSO 

.WORD 

NS1 

.WORD 

NS2 

.WORD 

NS3 

.WORD 

NS4 

.WORD 

NS5 

.WORD 

NS6 

.WORD 

NS7 

.ENDC 

.IF  DF 

R$$MPL 

STAF$ 

0 

.ENDC 

TTT 
ITT 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLL 

LLL 
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ERROS  MESSAGES  
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TMP 


"F1LE"ID«*TMPAC2 


G     2 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

222222 

TTTTTTTTTT 

MM 

MM 

pppppppr 

AAAAAA 

CCCCCCCC 

222222 

MMM^ 

MMMM 

PP 

3p 

AA 

AA 

22     22 

MMMN 

MMMM 

PP 

=P 

AA 

AA 

22     22 

MM 

"IM  MM 

PP 

Dp 

AA 

AA 

?? 

MM 

m     MM 

PP 

PP 

AA 

AA 

,.22 

MM 

MM 

PPPPPPPP 

AA 

AA 

22 

MM 

MM 

PPPPPPPP 

AA 

AA 

22 

MM 

MM 

PP 

AAAAAAAAAA 

22 

MM 

MM 

PP 

AAAAAAAAAA 

,22 

MM 

MM 

PP 

AA 

AA 

22 

MM 

MM 

PP 

AA 

AA 

22 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

2222222222 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

2222222222 

SSSS5SSS 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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CREF   OA.OO 


TMPA 


SYMBOL 

VALUE 

REFERENCES 

CTLFRR 

000624  R 

9-273 

#9-303 

10-336 

FL      -JA 

=   »»*»*«     Gx 

7-190 

FL.     iC 

=   ■*»«»**     GX 

11-371 

FL.MUX 

r   ♦*»»»«     GX 

12-394 

FMT2 

0OOA42  R 

5-82 

5-83 

5-84 

5-85 

5-86 

FMT3 

000461   R 

5-81 

#5-99 

FM.2 

=  000000 

#5-82 

#5-83 

#5-84 

#5-85 

#5-86 

FM.3 

=  000000 

#5-81 

F1.LFI 

=   «**»*«     GX 

9-265 

F1.LFL 

=   »*♦*♦»     GX 

9-268 

F1.MPL 

=   *»»*«♦     GX 

9-258 

Fl.MPT 

=   ».*♦♦»      GX 

9-255 

F1.MXT 

=   »»*«»*     GX 

7-161 

10-324 

F2.FIL 

=   ******     GX 

6-121 

MAXU 

000336  R 

7-169 

#8-226 

S$$BAS 

-   ****** 

5-81 

5-81 

5-82 

5-82 

5-83 

5-85 

5-86 

5-86 

5-87 

5-87 

TMPEXT 

000000  R 

#5-72 

6-125 

$ALL16 

=   ***.»*     GX 

7-195 

SAZFS 

-   ******     GX 

6-126 

SCFILE 

000704   RG 

#10-332 

SCLIOS 

I    *»»»**      GX 

6-128 

SCLQUE 

=    ******      GX 

6-127 

SEFNLL 

=   ♦*»**♦     GX 

5-81 

SELINE 

=   ******     GX 

5-82 

5-83 

5-84 

5-85 

5-8(. 

SERRKX 

000316  R 

#5-88 

7-211 

SERRKY 

000362  R 

#5-89 

8-237 

$ERR17 

000004  R 

#5-81 

6-139 

$ERR22 

000204  R 

#5-85 

7-210 

9-303 

SERR^i 

000042  R 

#5-82 

9-301 

$ERR42 

000104   R 

#5-83 

9-302 

$ERRA3 

000146  R 

#5-84 

9-292 

$ERR81 

000242  R 

#5-86 

12-396 

$ERR85 

000270  R 

#5-87 

11-382 

SEVEN 

=   ******      GX 

7-178 

9-285 

10-333 

10-345 

SFILE 

000000  RG 

#6-120 

7-177 

9-284 

10-344 

SFILEN 

=   ******     GX 

6-124 

SrlLEX 

000050  RG 

#6-132 

SFLAGS 

=   *»*♦**     GX 

7-190 

11-371 

12-394 

SFLAGI 

=   ******     GX 

9-258 

9-268 

$FLAG2 

=   ,♦♦***      GX 

6-121 

SLFILE 

000436  RG 

#9-264 

SLFLD 

=   ******      GX 

9-271 

SMPLD 

=   ******     GX 

9-261 

SMPTB 

000370  RG 

#9-253 

SMXADD 

=   ******      GX 

♦7-193 

SMXLEN 

=   ******     GX 

.7-188 

♦10-330 

SMXPTB 

000064  RG 

#7-158 

tMXSIZ 

::      ******         GX 

»7-194 

SMXTAB 

000632  RG 

#10-321 

SNALL 

=   ******     GX 

*7-197 

8-227 

SNLIB 

=   ***♦.*     GX 

8-229 

5-87 
#5-87 


5-88 
#5-88 


5-89 
#5-89 


#5-98 


5-83 


5-87 


5-84 
5-88 


5-8 


5-84 
5-89 


5-89 


5-85 
5-89 


TMPAC2 
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TMP/ 
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9 

10 

11 

12 

13 

K 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

A1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

';p 

53 
54 


.TITLE  TMPAC4  -  NTL  TEMPLATE  PROCESSING  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  NAYNARD,  MASS. 

THir  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONL  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  4 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plus  V3.0 
DECnet-Micra/RSX  VI. 0 


TMPA 

MACRi 

MACR 

ASRS 
CALL 

EMSG 
EMSG 
NHWD 
NTLE 
RETU 
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MACRO    CROSS   REl^ERENCE 


G     5 


MACRO  NAME 

ASR$ 
CALL 

EMSG$ 

EMSGtR 

NHWDFS 

NTLERS 

RETURN 


REFERENCES 

#5-59 

6-K1 

8-258 
#5-59 
#5-59 
#5-59 
#5-59 

6-186 


7-2U 

6-1A2 

8-26A 

6-U1 

6-192 

5-64 

5-84 

7-225 


6-149 
8-268 
6-184 
8-295 

5-86 
8-290 


6-153 
9-309 

10-357 

5-90 
9-333 
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CREF        04.00 

6-181 
9-310 

6-184 
9-318 

6-185 
9-323 

6-191 
11-374 

5-91 
10-352 

11-383 

»*F 


8-243 


8-246 


TTT 

TTT 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLL 

LLl 


^«F!LE«MD"TMPAC5 


H  5 


TMF 


'*F1LE«»ID»»TMPAl6 
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TMI 


TTTTTTTTTT 

MM 

MM 

pppppppp 

AAAAAA 

CCCCCCCC 

666666 

TTTTTTTTTT 

MM 

MM 

pppppppp 

AAAAAA 

CCCCCCCC 

666666 

HMM^ 

MMMM 

PP 

=P 

AA 

AA 

66 

MMM" 

MMMM 

PP 

op 

AA 

AA 

66 

MM 

*IM  MM 

PP 

op 

AA 

AA 

66 

MM 

»IM  MM 

PP 

op 

AA 

AA 

66 

MM 

MM 

pppppppp 

AA 

AA 

66666666 

MM 

MM 

pppppppp 

AA 

AA 

66666666 

MM 

MM 

PP 

AAAAAAAAAA 

66     66 

MM 

MM 

PP 

AAAAAAAAAA 

66     66 

MM 

MM 

PP 

AA 

AA 

66     66 

MM 

MM 

PP 

AA 

AA 

66     66 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

666666 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

666666 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

TT 

ss 

T 

ss 

T  ■ 

ss 

TT 

ssssss 

TT 

ssssss 

TT 

ss 

TT 

ss 

TT 

ss 

TT 

ss 

TT 

LLLLLLLLLL 

ssssssss 

TT 

LLLLLLLLLL 

ssssssss 

TT 

TM 


TMPAC6  - 
SUMRON  - 

362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
37A 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 


NTL  TEMPLATE  PROCESSIN 
.UMR  ON  ACTION  ROUTINE 
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.SBTTL  SUMRON  -  .UMR  ON  ACTION  ROUTINE 

SUMRON  -  ".UMR  ON"  ACTION  ROUTINE 

INPUTS: 

FE.EXT  OF  SfMASK  SET  IF  11/70 

NETLDR  DATA  BLOCK+2  CONTAINS  UMR  BLOCK  ADDRESS  CIF  ANY) 

OUTPUTS: 

F1.UMR  OF  SFLAGI  SET 
ERROR  IF  11/70  +  NO  UMR'S 


000622  SUMRON:: 

000622  052767  OOOOOOG  OOOOOOG       BIS 

000630  032777  OOOOOOG  OOOOOOG        BIT 

000636  001417  BEQ 

000640  017700  OOOOOOG  MOV 

000644  SUSTKS 

000650  CALL 

000654  016266  000002  000004         MOV 

000662  RETURN 

000664  005700  10$:    TST 

000666  001003  BNE 

000670  EMSG$ 

000676  20$:    RETURN 

.ENDC 


.IF  DF  M$$MGE 


#F1.UMR,$FLAG1 
.IF  DF   R$$11M 
#FE.EXT,aFMASK 
20$ 
aNTLPT.RO 

10$ 

$MrtPX 

2(R2),4(SP) 


RO 
20$ 
ZK-. 
.ENDC 


;  SET  THE  BIT 

;  IS  THIS  REALLY  AN  11/70  ? 

;  IF  EQ,  NO 

:  GET  DATA  BLOCK  BIAS 

;*  ENTER  KERNEL  MODE 

;*  MAP  TO  THE  DATA  BLOCK 

;♦  PUT  UMR  BLOCK  ADDRESS  IN  USER  RO 

;*  REMEMBER  -  $MAPX  ADDS  1  WORD  TO  STACK 

;*  BACK  TO  USER  MODE 

;  IS  THERE  A  UMR  BLOCK  ? 
;  IF  N£,  YES 
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56 

57 

58 

59 

60 

61 

62 

63 

6'^ 

65  000000 

66 

67 

68 

69 

70  000000 

71 

72 

73 

74 

75 

76 

77 

78  000002 

79 

80 

81 

82 

83  000036 

8A 

85 

86  000110 

87  0001 5A 
88 

89 
90 
91 
92 
93 
9'i 
95 

96  00023'! 

97  000253 
98 

99 
100 
101 
102  C 


*♦  * 
LIBRARY  MACROS 

.MCALL  EMSG$,EMSG$R,NTLER$ 

•  *<f  * 

':    LOCAL  DATA 

I  *** 

.PSECT  DATA,D 

ALLOCATED  LIBRARY  BLOCK  ADDRESS 
LBLK::   .8LKU   1 

ERROR  MESSAGES 

.ENABL  LC 


NTLERS 


.IF  DF 

NTLERS 

.IFF 

NTLERS 

.IFT 

.IF  DF 

NTLERS 

.ENDC 

.ENDC 

NTLERS 


MSSMGE 

,Y2,6,STUARN,REP6,SEFNLL,<Not  Built  For  APR*> 

,Y2,6,STWARN,SREP.C,SEFNLL,<Base  Address  Not  Zero> 

RSSIIM 

,Y3,6,STERR,SREP.P,SEFNLL,<Base  Address  Not  a  Multiple  Of  4K> 

,Y'i,2,JTERR,SREP.C,$ELINE,<Resource.Allocation.Failure> 


,Y6,2,$TERR,SREP.C,SELlNE,<0nly  H.  Allocations/Libraries  Allowed> 
.DSABL  LC 


ERROR  MESSAGE  FORMAT  STRINGS 


052 
052 


OAO 
040 


124 

111 


FMT2:: 
FMT6:: 


:ooo 


. ENABL 

.NLIST 

.ASCIZ 

.ASCIZ 

.EVEN 

.DSABL 

.LIST 

.PSECT 


LC 

BEX 

"«  Template  —  ' 

"*  Image  Fi le  — 

LC 
BEX 
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**FILE'MD'«TMPAC8 


G  9 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

MMMM 

MMMM 

pp      PP 

AA 

AA 

88 

MMMI* 

MMMM 

PP      PP 

AA 

AA 

88 

MM 

m     MM 

PP      PP 

AA 

AA 

88 

MM 

"IM  MM 

PP      PP 

AA 

AA 

88 

MM 

MM 

PPPPPPPP 

AA 

AA 

MM 

MM 

PPPPPPPP 

AA 

AA 

MM 

MM 

PP 

AAAAAAAAAA 

88 

MM 

MM 

PP 

AAAAAAAAAA 

88 

MM 

MM 

PP 

AA 

AA 

88 

MM 

MM 

PP 

AA 

AA 

88 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

888888 


888888 


838888 


LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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TMPAC9 

CREATED  Bv 

MACRO  ON  29 

-JUN-85  A1  00:41 

PAGE  1 

SYMBOL 

CROSS  REFERENCE 

CREF   04 

00 

SYMBOL 

VALUE 

REFERENCES 

BFADR 

000000 

R 

#5-68 

•6-116 

6-178 

6-194 

PMT6 

r 

****** 

GX 

5-98 

FM.6 

- 

000000 

#5-98 

I$$AS 

~ 

****** 

6-184 

NLBLK 

00000? 

R 

#5-73 

•6-165 

6-170 

NTLPT 

- 

****** 

fix 

6-165 

nsEis 

- 

*  *  *  *  ~  ♦ 

6-184 

^$$MPL 

- 

****** 

5-75 

6-124 

R$$11D 

= 

****** 

6-1 8A 

S$$BAS 

r 

****** 

5-98 

5-98 

$BFALL 

= 

****** 

GX 

6-179 

SBFBAS 

= 

****** 

GX 

6-182 

SBFLBN 

- 

****** 

GX 

6-117 

6-118 

tBFXFR 

- 

****** 

GX 

6-119 

SCLDEQ 

r 

****** 

GX 

6-122 

SCLIOS 

- 

****** 

GX 

6-192 

SCUR.N 

= 

****** 

GX 

5-98 

SEFNLL 

~ 

****** 

GX 

5-98 

$ERRY5 

00000^ 

R 

#5-98 

6-193 

$FNR50 

~ 

****** 

GX 

6-175 

6-176 

6-177 

SIOSB 

- 

****** 

GX 

6-192 

SLBADR 

= 

****** 

GX 

6-174 

SLBIAS 

~ 

****** 

GX 

6-164 

$LBN 

- 

****** 

GX 

•6-117 

•6-118 

SLBXFR 

000000 

RG 

#6-115 

$LLEN 

- 

****** 

GX 

♦6-119 

SMAPX 

= 

****** 

GX 

6-169 

SREADX 

= 

****** 

GX 

6-120 

$TERR 

= 

****** 

6X 

5-98 

IM 
KR 


TM°AC9 


CREATED   BY      MACRO     ON  29-JUN-85   AT   00:41 
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TMPALT  -  TEMPLATE  ALLOCATION  RO  MACRO  V05.05b  Saturday  29-Jun-85  00:41 
KRB'>L  -  ALLOCATE  THE  <RB 

420 

421 

422 

423 

424  000436 

425 

426 

427 

428  000440 

429  000446 


40$: 

CLC 

.ENDC   ;  DF  R$$MPL 

RETURN 

;  ERROR 

CONDITIONS 

101$: 
111$: 

EMSG$R  9C 
CRASH 

Page  9-2 

;  MAKE  SURE  THE  C-BIT  IS  CLEAR 


KRB  ALLOCATION  FAILURE 

LOGIC  ERROR  -  NO  SLT  ENTRIES  ??? 


TM 
$A 
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TMPALT   -   TEMPLATE   ALLOCATION  RO  MACRO  V05.03b   Saturday   29-Jun-85 
$ALICB  -   ALLOCATE    AN    KB 

996 
997 
998 
999 

1000 

1001 

1002 

1003 

100A 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

103A 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 


00:4 


BEQ 

150$ 

CMP 

#"8S,D.NAM(R1) 

BNE 

30$ 

MOV 

D.UC8L(R1),R2 

D.UNJT<-1(R1),R0 

0.UNIT(R1),R0 

MOVB 

SUB 

INCS 

RO 

MOV 

D.UC8(R1),R1 

40$:    CMP 

K.URM-K.PRM(R4) 

BEQ 

60$ 

ADD 

R2,R1 

DECB 

RO 

BNE 

40$ 

60$:    CLR 

RO 

MOV 

U.SC8(R1),R1 

ADD 

SKTB.RI 

80$:    MOV 

(R1)+,R2 

BEQ 

100$ 

BIS 

K.URM(R2),R0 

BR 

80$ 

100$:   MOV 

#-2,R3 

110$:   ADD 

*2,R3 

ASfi 

RO 

BCC 

110$ 

CLC 

MOV 

RO,-(SP) 

BIT 

$BTMSK(R3),KRB0 

BNE 

130$ 

BIS 

$BTMSK(R3),KR80 

MOV 

R3,R0 

SWAB 

RO 

ASL 

RO 

ASL 

RO 

ASL 

RO 

MOV 

RO,CPU 

MOV 

ICAVL.RO 

SUB 

#2,R0 

MOV 

$JC8SZ,R1 

MOV 

K6TA8,K6TMP 

ADD 

R3,K6TMP 

MOV 

aK6TMP,aKSAR5 

MOV 

#120006, R2 

CALL 

AL0C2 

8CS 

130$ 

MOVB 

$NVECT,(RO)t 

MOVB 

$ICBLN,(RO)+ 

MOV 

RO.RI 

BIC 

#160000, RO 

ASR 

RO 

ADD 

CPU.RO 

CLR 

(Rl5 

MOV 

BIAS,aKSAR5 

MOV 

R0,(R4) 

MOV 

R1,R4 

MOV 

aK6TMP,BlAS 

130$:   MOV 

(SP)+,RO 

BCS 

150$ 

1     Page  16-2 


If    EQ,    END   Of    LIST 
IS   THIS    THE  BUS   SWITCH  DCB   ? 
If   Nt,   NO   ..   KEEP  LOOKING 
GET  LENGTH  Of   UCB 
CALCULATE  NUMBER  Of   UNITS-1 

GET  NUMBER  Of   UNITS 
GET  ADDRESS  Of   fIRST  UCB 
U.CW3(R1)    ;*    IS    THIS    THE   CONTROLLER'S  BUS    SWITCH 
if   EQ,    YES 

CALCULATE  ADDRESS   Of   NEXT  UCB 
EXAMINED  ALL  UNITS   ? 
If   NE,    NO    ..    REPEAT 
INITIALIZE    CPU  UNIBUS  RUN  MASK 
CALCULATE   ADDRESS   Of   KRB   TABLE 

EXAMINED  EVERY   KRB    IN  TABLE    ? 

If  EQ,  YES 

SETUP  THE  UNIBUS  RUN  MASK 

GO  AGAIN.. 

INITIALIZE  CPU  NUMBER*2 

fORM  NEXT  CPU  NUMBER*2 

MAY  NEED  AN  KB  fOR  HIM? 

If  CC,  NO 

MAKE  SURE  THE  CARRY  IS  CLEAR 

SAVE  REMAINDER  Of  UNIBUS  RUN  MASK 

ALREADY  DID  THE  ICB'S  fOR  THIS  CPU? 

If  NE  YES 

SHOW  AN  KB  ALLOCATED  fOR  THIS  CPU 

SAVE  CPU  NUMBER*2 

PUT  CPU  NUMBER  IN  ADVERTISED  PLACE 


;*  GET  VIRTUAL  ADDRESS-2  Of  POOL  LISTHEAD 

GET  LENGTH  Of  AN  KB 

GET  CPU  BIAS  TAtUE  ADDRESS 

INDEX  INTO  TABLE 

MAP  TO  CPU  PARTITION 

MAP  THRU  APR5 

TRY  TO  ALLOCATE  AN  KB 

If  CS,  COULD  NOT 

STORE  THE  NUMBER  Of  K8'S 

STORE  THE  SIZE  Of  EACH  KB 

SAVE  VIRTUAL  ADDRESS  (RELATIVE  TO  APR5) 

CLEAR  APR  USEAGE 

fORM  LINK  POINTER 

CLEAR'UNK  TO  NEXT  KB  (CLEARS  C-BIT) 
MAP  TO  PREVIOUS  ALLOCATION 
SETUP  LINK  TO  NEXT  KB 
SAVE  CURRENT  KB  ADDRESS 
AND  BIAS  Of  CURRENT  KB  POOL 
RETORE  REMAINDER  OF  UNIBUS  RUN  MASK 
If  CS,  COULD  NOT  ALLOCATE  KB 


H  12 

TMPALT  -  TEMPLATE  ALLOCATION  RO  MACRO  V05.03b  Saturday  29-Jun-85  00:41  Page  16-3 


TMPERR  -  NTL  TEMPLATE  ERROR  PRO  MACRO  V05.03b  Saturday  29-Jun-85 


00:« 


2     Page  6 


101 
102 
103 
104 
105 
106 
107 
108 
109 

110  000000 

111  000006 
OOOOU 
000022 
000030 
000036 
O000A4 
000052 

118  000060 

119  000066 
1?0 

121 
122 


ERR$N  -  ERROR  MESSAGE  SUBROUTINES  (PLACED  HERE  FOR  OVERLAY  PURPOSES) 


IV 
113 
1H 
115 
116 
117 


;  INPUTS: 

;       NONE 

•  OUTPUTS: 

ERROR  MESSAGE  IS  PRINTED 

fRR$1::  EMSGSR   1 

=RR$3 

:  EMSGSR  3 

:RR$4 

:  EMSGSR  4 

■RR$5 

:  EMSGSR  5 

=RR$ft 

:  EMSGSR  6 

ERR$7 

:  EMSGSR  7 

;RR$9 

:  EMSGSR  9 

ERRSIO::  EMSGSR  10 

ERRSII::  EMSGSR  11 

ERRS12::  EMSGSR  12 

000001 


.END 
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G  U 

00:42 


Page  A 


1 

2 

5 

A 

5 

6 

7 

8 

9 

10 
11 
12 
15 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  TIV|PEX2  -  NTL  EXPANSION  ROUTINES 
.IDENT  /V05.U0/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  STANDARD  LINE  TABlE  EXPANSION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-?8 

VERSION  2.0  RELEASE 

2.00  14-DEC-?9 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Mkro/RSX   VI. 0 


;*♦-! 
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ADDRB.ADDRW.BLUB.BLKW 


5^9 

550 

551 

552  001122 

55?  001126 

554  001132 

555  001136 

556  001K2 
557 

558  0011A6 

559  001152 

560  001 15A 

561  001156 
562 

563 
564 
565 
566 

567  001160 

568  00116A 

569  001170 


012724 
016724 
012724 
016724 
016724 

012724 
112524 
112524 


012714 
046724 


013746 

OOOOCOG 

012737 

OOOOOOG 

OOOOOOG 

004537 


INTERRUPT  ENTRY  POINT 


INT: 


MOV 
MOV 
MOV 
MOV 
MOV 


#13746, (R4)t 

KSAR5,(R4)^ 

*1273^(R4)t 

$BIAS,(R4)t 

KSAR5,(R4)* 


OOOOOOG 
OOOOOOG 


MOV  *4537,(R4)t 

Move  (R5)+,(R4)+ 

M0V8  (R5)+,(R4)t 
RETURN 


COMPLEMENT  Of  PRIORITY 

PRI:    MOV  *PR7,(R4) 

BIG  $$PRI,(R4)t 
RETURN 


STORE  "MOV  a*KISAR5,-(SP)' 
STORE  '"'MOV  BIAS,a#KISAfi5" 

STORE  "JSR  R5,a#ENTRY" 


STORE  PRIORITY  7 

CLEAR  ACTUAL  PRIORITY  BITS 
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TMPEX?  CREATEt)   BY     MACRO     ON  29-JUN-85   AT   00:A2 

MACRO  CROSS  REFERENCE 


G  16 

PAGE   5 

CREf       04.00 


MACRO  NAME 

REFERENCES 

ASL$ 
CALL 

#5-59 
7-185 

10-484 
10-451 

10-456 

11-528 

11-553 

13-583 

13-608 

14-647 

14-651 

15-687 

CALLR 

15-698 

CRASH 

9-295 

)HBDF$ 

#5-50 

5-63 

RESRG 

RETURN 

#5-59 
7-185 

9-268 
8-198 

8-200 

8-210 

8-212 

8-221 

8-230 

9-236 

9-244 

9-250 

9-271 

9-274 

9-290 

9-303 

9-311 

9-317 

9-332 

9-334 

9-545 

9-558 

9-365 

9-372 

9-383 

9-385 

9-398 

9-400 

9-408 

9-410 

9-418 

9-420 

9-427 

10-505 

11-546 

12-561 

12-569 

13-591 

13-623 

14-669 

15-708 

15-718 

15-720 

15-727 

15-733 

16-742 

16-747 

16-752 

16-757 

16-762 

16-767 

16-772 

16-777 

•6-782 

16-787 

16-792 

17-804 

17-814 

17-824 

17-834 

17-844 

SAVRG 

#5-59 

9-265 

SLTDFS 

#5-59 

5-64 

SOB 

10-499 

11-521 

SWSI<$ 

10-451 

11-528 

14-647 

TTABt 

#5-73 

6-89 

6-90 

6-91 

6-92 

6-93 

6-94 

6-95 

6-96 

6-97 

6-98 

6-99 

6-100 

6-101 

6-102 

6-103 

6-104 

6-105 

6-106 

6-107 

6-108 

6-109 

6-110 

6-111 

6-112 

6-113 

6-114 

6-115 

6-116 

6-117 

6-118 

6-119 

6-120 

6-121 

6-122 

6-125 

6-124 

6-125 

6-126 

6-127 

6-128 

6-129 

6-130 

6-151 

6-132 

6-135 

6-154 

6-135 

6-156 

6-157 

6-138 

6-139 

6-140 

6-141 
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ERROR  MESSAGES 

91  .SBTTL  ERROR  MESSAGES 


ERROR  MESSAGES 


Page  1 


TMP, 


98 

99 

100  000020 

101  000060 

102  000106 
103 

104  000134 

105  000153 
106 

107 
108 
109 
110  000000 


.NLIST  BEX 

.ENABL  LC 

NTLERS  ,23,2,$TERR,$REP.C,$ELINE,<Interrupt  Linkage  Error> 

NTLERS  ,24,2B,$TERR,REP2B,$ELINE,<Not    In   System> 

NTLERS  ,25,2B,$TERR,REP2B,$EL]NE,<Not   A'aUable> 


052 
052 


OAO 
040 


124      FMT2:: 
124      FMT2B:: 


.ASCIZ 
.ASCIZ 

.DSA8L     LC 
.LIST       BEX 
.EVEN 
.PSECT 


Template  —  " 
Template  —  Vector 
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ACTION  ROUTINES  
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TMP 
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1 

2 

3 

A 

5 

6 

7 

8 

9 

10 
11 
12 
13 
U 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
3' 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 

51 

52 

53 

54 


.TITLE   TMPAC2  -  NTL  TEMPLATE  PROCESSING  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL   QUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  A3  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  2 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-llM/S  V3.0 
DECNET-IIM-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-IIM-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX   VI. 0 


OF      ITS 


THP/ 

SYMf 

SYME 

$OFF 
$PR\ 
SREF 
$RQ' 

$rq; 

$RQ' 
$SEI 
$SIi 

$TEI 

$TMI 
$VAI 

$VF! 
$VFI 
$VFI 
$VF 
$$M 
$$MI 
.EOi 
.FI 
.LF 
.MP 
.MX 
.MX 
.SE 
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TMP 


TMPAC2 

CREATED  BY 

MACRO     ON  29 

-JUN-85   AT 

00:39 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

$OFF 

- 

t *** ** 

GX 

♦10-326 

SPRV.N 

= 

1^***** 

GX 

5-81 

SREP.C 

- 

****** 

GX 

5-82 

5-83 

5-84 

$R01 

= 

****** 

GX 

7-203 

9-287 

10-347 

$RQ2 

- 

****** 

GX 

10-339 

$RQ4 

- 

****** 

GX 

7-171 

9-276 

SSECSR 

001020 

RG 

#11-368 

SSIZE 

= 

****** 

GX 

7-176 
10-343 

7-179 
10-350 

♦7-180 
♦10-352 

STERR 

= 

****** 

GX 

5-81 

5-82 

5-83 

tTMFIX 

- 

****** 

GX 

6-131 

SVALUE 

= 

****** 

GX 

6-130 
9-274 

♦6-133 
9-279 

♦7-163 
•9-294 

SVFDDM 

- 

****** 

GX 

7-159 

10-322 

11-369 

SVFDLC 

- 

****** 

GX 

9-254 

SVFMUX 

001070 

RG 

7-160 

10-323 

11-370 

SVFSPC 

~ 

****** 

GX 

7-162 

9-256 

9-266 

$$MTP 

r 

****** 

GX 

9-262 

SSMUX 

= 

****** 

GX 

7-163 

10-32/ 

.EOF 

= 

****** 

GX 

7-205 

9-289 

10-349 

.FILE 

- 

****** 

GX 

10-334 

.LFILE 

= 

****** 

GX 

9-270 

.MPTAB 

- 

****** 

GX 

9-260 

.MXPTB 

r 

****** 

GX 

7-173 

.MXTAB 

= 

****** 

GX 

10-328 

.SECSR 

****** 

GX 

11-375 

H     3 

PAGE   2 

CREF       04.00 


TMPA 


5-85 
11-373 


7-181 

♦11-376 

5-84 

7-165 
•10-327 


#12-39;. 
10-325 


5-86 


♦7-202 

5-85 

7-167 
10-335 


5-87 

9-283 

5-86 

7-174 
10-337 


9-290 

5-87 

•7-185 
10-342 


5-89 

•9-293 

5-88 

♦9-262 
♦10-353 


10-326 

5-89 

9-272 


TMPAC2 
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56 

57 

58 

59 

60 

61 

62 

63 

64  000000 

65 

66 

67 

68 

69 

70  000000 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84  000000 

85 

86  000044 

87 

88 

89 

90  000100 

91  000136 
92 

93 
94 
95 
96 
97 
98 
99 

100  000216 

101  000235 
102 

103 
104 
105 
106  000000 


000006 


*** 

LIBRARY  MACROS 
*** 

.MCALL  ASR$,EMSG$,EMSG$R,NHWDF$,NTLER$ 

•  **♦ 

•  LIBRARY  SYMBOLS 

•  *** 

NHUDFS 

*** 

LOCAL  DATA 
*** 

.PSECT  DATA.D 


DEFAULT  APR  NUMBER 

.IF  DF  M$$MGE 
DFAPR=«.BASEB/2>877777>/10000 
.ENDC 

ERROR  MESSAGES 

.ENA8L  LC 

NTLERS  ,26,2,$TERR,$REP.C,$EL;NE,<Resource  Allocation  Failure> 

.IF  DF  M$$MGE 

NTLERS  ,76,6,$TWARN,REP6,$EFNLL,<Not  Built  For  APR*> 

.IFF 

NTLERS  ,76,6,STWARN,SREP.C,$EFNLL,<Base  Address  Not  Zero> 

.ENDC 

NTLERS  ,77, 6, STERR,SCUR.N,$EFNLL,<Read  Failure  (-***.)> 

,78,2,STERR,$REP.C,SELINE,<0nly  14.  Allocations/Libraries  Allowed) 

.DSASL  LC 


NTLERS 


ERROR  MESSAGE  FORMAT  STRINGS 


052 
052 


040 
040 


124 
111 


FMr2: 
FMT6: 


.ENABL 

.NLIST 

.ASCIZ 

.ASCIZ 

.EVEN 

.DSA8L 

.LIST 

.PSECT 


LC 

BEX 

"*  Template  — 

"♦  Image  File  — 

LC 
BEX 


I  « 
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•«F!LE«MD*«TMPAC5 
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TMP 
Tab 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

5555555555 

TTTTT^TTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

5555555555 

MMMf 

MMMM 

PP      PP 

AA 

AA 

55 

MMM^ 

MMMM 

PP      PP 

AA 

AA 

55 

MM 

1M  MM 

PP      PP 

AA 

AA 

555555 

MM 

MM  MM 

PP      PP 

AA 

AA 

555555 

MM 

MM 

PPPPPPPP 

AA 

AA 

55 

MM 

MM 

PPPPPPPP 

AA 

AA 

55 

MM 

MM 

PP 

AAAAAAAAAA 

55 

MM 

MM 

PP 

AAAAAAAAAA 

55 

MM 

MM 

PP 

AA 

AA 

"     55 

MM 

MM 

PP 

AA 

AA 

55     55 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

555555 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

555555 

SSSSS5SS 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

TT 

ss 

ss 

ss 

TT 

ssssss 

TT 

ssssss 

TT 

ss 

TT 

ss 

TT 

ss 

TT 

ss 

TT 

LLLLLLLLLL 

ssssssss 

TT 

LLLLLLLLLL 

ssssssss 

TT 
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TMPAC6  -  NTL  TEMPLATE  PROCESSINI  MACRO  V05.03b  Saturday  29-Jun-85  00 

Table  ot  contents 

5-  5^  MACRO  DEFINITIONS 

6-  6A  CONSTANT  DEFINITIONS 

7-  76  LOCAL  DATA 

8-  110  ERROR  MESSAGES 

9-  137  $C0RE2  -  .CORE  OPERAND  2 

10-  176  SLIBRI  -  .LIBR  OPERAND  1 

11-  299  CHECK  -  CHECK  LIBRARY  DESCRIPTOR  FOR  MATCH 

12-  3AA  $LINKS  -  .LINKS  ACTION  ROUTINE 
15-  362  SUMRON  -  .UMR  ON  ACTION  ROUTINE 
K-  396  SUMROF  -  .UMR  OFF  ACTION  ROUTINE 
15-  413  $X2CHW  -  .X2CHW  ACTION  ROUTINE 

15-  AlA  $X3CHW  -  .X3CHU  ACTION  ROUTINE 

16-  A55  $X2CHB  -  .X2CHB  ACTION  ROUTINE 

16-  A56  $X3CHB  -  .X3CHB  ACTION  ROUTINE 

17-  497  SVFLLC  -  VERIFY  LLC 

18-  51A  SVXLLC  -  VERIFY  NOT  AN  LLC 


■% 


TM 
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00:^" 


TN 


TMPAC6  - 
SUMROF  - 

396 
397 
398 
599 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
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.UMR  OFF  ACTION  ROUTINE 


.SBTTL   SUMROF  -  .UMR  OFF  ACTION  ROUTINE 


SUMROF 
INPUTS: 


'.UMR  OFF"  ACTION  ROUTINE 


NONE 

OUTPUTS: 

F1.UMR  IN  SFLAGI  IS  CLEARED 

.IF  DF   M$$MGE 
000700  SUMROF :  : 

000700  042767  OOOOOOG  OOOOOOG        BIC     *F1 .UMR,$FLAG1 
000706  RETURN 

.ENDC 


;FILE  SPACE  TO  BE  ALLOCATED  FROM 
;  NON-UMR  MAPPED  MEMORY 


TMPAC6 


NTL   TEMPLATE   PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85 
_x?rHij  ACTinN  RniiTiNF 


00:4i 


0     Page  15 
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104 
105 
106 

$LI8R 

-  ".LI8R"  ACTION  ROUTINE 

107 
108 

INPUTS: 

F2.FIL 

SET  IF  VALID  FILE 

NAME  HAS  BEEN  SEEN 

109 

F2.L8R 

SET  IF  LIBRARY  WAS 

ALREADY  RESIDENT 

110 

$L8IAS= 

-LIBRARY 

)ESCRIPTOf 

BIAS  (MAPPED  ONLY) 

111 

$LBADR= 

=LIBRARY 

)ESCRIPTOf 

ADDRESS  OR  0 

112 
113 

IK 

$SFPTR= 

:BINARY  BUFFER  POINTER 

OUTPUTS: 

115 

NONE 

116 

117  000000 

118  000000 

;LI8R:: 

032767 

OOOOOOG  OOOOOOG 

BIT 

#F2.FIL 

,$FLAG2 

WAS  VALID  FILE  NAME  SEEN' 

119  000006 

001440 

8EQ 

40$ 

IF  EQ,  NO 

120  000010 

032767 

OOOOOOG  OOOOOOG 

BIT 

#FL.CHA 

,$FLAGS 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

121  000016 

001032 

BNE 

30$ 

^ES  ..                    „   ,„ 

122  000020 

005067 

000000' 

CLR 

LBLK 

INDICATE  NO  LIBRARY  BLOCK  ALLOCATED 

123  000024 

032767 

OOOOOOG  OOOOOOG 

BIT 

#F2.L8R 

,$FLAG2 

WAS  LIBRARY  ALREADY  RESIDENT? 

124  000032 

001017 

BNE 

20$ 

IF  NE,  YES 

125  000034 

005767 

OOOOOOG 

TST 

$LBADR 

IS  DESCRIPTOR  ADDRESS  KNOWN? 

126  000040 

001003 

BNE 

10$ 

IF  NE,  YES 

127  000042 

CALL 

$AL8 

ALLOCATE  LIBRARY  BLOCK 

128  000046 

103420 

BCS 

40$ 

IF  CS,  FAILURE 

129  000050 

10$: 

CALL 

XFER 

TRANSFER  LIBRARY  INTO  CORE 

130  000054 

103415 

BCS 

40$ 

IF  CS,  FAILURE 

131  000056 

005767 

000000' 

TST 

LBLK 

WAS  LIBRARY  BLOCK  ALLOCATED? 

132  000062 

001410 

BEQ 

30$ 

IF  EQ,  NO 

133  000064 

CALL 

LINK 

LINK  THIS  BLOCK  TO  THE  OTHERS 

134  000070 

000405 

BR 

30$ 

135  000072 

20$: 

136 

.IF  DF 

M$$MGE 

137  000072 

CALL 

BASE 

CHECK  BASE  ADDRESS 

138 
139 

140  000076 

.ENDC 

CALL 

MAX  14 

ALLOW  ONLY  14.  ETC. 

141  000102 

103402 

BCS 

40$ 

IF  CS,  FAILURE 

142  000104 

30$: 

CALL 

USE 

•  INCREMENT  USE  COUNT 

143  000110 

40$: 

RETURN 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
U 
15 
16 
17 
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20 
21 
22 
23 
2A 
25 
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27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
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.TITLE  TMPAC8  -  NTL  TEMPLATE  PROCESSING  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  8 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Micro/RSX   Vl.O 


M/ 

a; 
c/ 

Ef 
Nl 
R£ 

SI 


TM0AC9     CREATED  BY 
MACRO  CROSS  REfERENCE 


MACRO  ON  29-JUM-85  AT  00:^11 
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PAGE  2 

CREF   OA.OO 


Tl« 
$T 


MACRO  ^JAME 

REFERENCES 

ASR$ 

#5-57 

6-18A 

CALL 

6-120 

6-122 

EMSGS 

#5-57 

6-193 

NTLERt 

#5-57 

5-98 

RETURN 

6-187 

6-195 

SWSTKS 

6-167 

6-167 


6-169 


6-193 


**F1LE'»1D««TMPALT 
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T> 


431 
432 
433 
434 
435 
436 
437 
438 
459 
440 
441 
442 

443  000450 

444  000450 

445  000454 

446  000456 

447  000464 

448  000466 

449  000472 

450  000500 

451  000502 

452  000506 

453  000510 

454  000514 

455  000516 

456  000520 

457  000522 

458  000526 

459  000532 
4o0  000534 

461  000540 

462  000542 

463  000546 

464  000550 

465  000554 

466  000556 

467  000562 

468  000564 
469 

470 
471 
472 

473  000566 

474  000574 

475  000602 

476  000610 


016700 
100443 
032767 
001423 
016701 
032761 
001015 
016701 
001427 
032700 
001007 
006301 
010046 
042716 
026126 
001020 
032700 
001403 
032700 
001415 
032700 
001403 
032700 
001412 


.S8TTL  $TMCHK  -  CHECK  FOR  CORRECT  DDM  INTERRUPT  LINKAGE 

STMCHK  -  CHECK  FOR  CORRECT  DDM  INTERRUPT  LINKAGE 

INPUTS: 

$NVECT=NUMBER  OF  ".INT"  OPERATORS  PROCESSED 
SPDVA  =  PDV  ADDRESS  OF  PROCESS 

OUTPUTS: 

RO,R1=DESTROYED 

F1.ERR  SET  IF  INTERRUPT  LINKAGE  IS  INCORRECT 


OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 
000002' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


ItMCHK: 


10$: 
20$: 
30$: 


MOV 
BMI 
BIT 
BEQ 
MOV 
BIT 
BNE 
MOV 
BEQ 
BIT 
BNE 
ASL 
MOV 
BIC 
CMP 
BNE 
BIT 
BEQ 
BIT 
BEQ 
BIT 
BEQ 
BIT 
BEQ 
RETURN 


$FLAG1,R0 

30$ 

#FL.DDM,$FLAGS 

10$ 

$PDVA,R1        , 

#ZF.PSE,Z.fLG(R1) 

10$ 

$NVECT,R1 

101$ 

#F1.INT,R0 

10$ 

R1 

RO,-(SP)        , 

**C<F1.IN1!F1.JN2 

nA8-2(R1),(SP)  + 

111$ 

,R0 


#F1.MPL 

20$ 

#F1.MPT 

121$ 

#F1.LFL 

30$ 

#F1.LFI 

131$ 


RO 
RO 
RO 


ERROR  CONDITIONS 


1oi$ 

111$ 
121$ 
131$ 


EMSG$R  35 

EMSG$R  36 

EMSG$R  37 

EMSG$R  84 


GET  TEMPLATE  FILE  FLAGS 
IF  MI,  ERRORS  -  DON'T  CHECK 
ARE  WE  LOADING  A  DDM? 
IF  EQ,  NO  -  DON'T  CHECK 
GET  PDV  ADDRESS  OF  PROCESS 
;  IS  IT  A  PSEUDO  DEVICE? 
BR  IF  YES  -  DON'T  CHECK 
GET  NUMBER  OF  ".INT"  OPERATORS 
IF  EQ,  NONE  SPECIFIED 
WAS  THE  ".INT"  OPERATOR  SEEN? 
IF  NE,  YES  -  KNOWN  TO  BE  CORRECT 
MAKE  A  WORD  INDEX 
EXTRACT  ".JNT"  BITS  FROM  $FLAG1 
!F1.IN3>,(SP)   ; 
RIGHT  COMBINATION  OF  BITS  SET? 
IF  NE,  NO 

".MPLHD"  OPERATOR  SEEN? 
IF  EQ,  NO 

".MPTAB"  OPERATOR  SEEN? 
IF  EQ,  NO 

".LFLHD"  OPERATOR  SEEN? 
IF  EQ,  NO 

".LFILE"  OPERATOR  SEEN? 
IF  EQ,  NO 


NO  INTERRUPT  LINKAGE 
INCOMPLETE  INTERRUPT  LINKAGE 
".MPTAB"  OPERATOR  MISSING 
".LFILE"  OPERATOR  MISSING 
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I  .1-.  «  rtTT     I  ikii   n  A  r\     ni   nrL-      «r\rinc:rc 


TMPALT  - 
$ALICB  - 

1055 
1054 
1055 
1056 
105? 


H  12 

TEMPLATE  ALLOCATION  RO  MACRO  V05.03b  Saturday  29-Jun-85  QO:ll      Page  16-3 
ALLOCATE  AN  KB 


150$: 


BNE 

MOV 

MOV 

RETURN 

.ENDC 


110$ 

(SP)t,aKSAR5 

#0,R0 

;  DF  R$$MPL 


IF  NE,  MORE  ICB'S  TO  ALLOCATE 

RETORE  APR  MAPPING 

LET'S  GUARANTEE  RO  IS  ZERO,  BUT  SAVE  C- 


ilT 
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Symbol  table 


Page  6-1 


A$$CHK= 

000000 

ERR$5 

000022RG 

K$$CSR= 

177546 

A$$CPS= 

000000 

ERR$6 

000030RG 

K$$LDC= 

000000 

A$$PR1= 

000000 

ERR$7 

000036RG 

K$$TPS= 

000074 

A$STRP= 

000000 

ERR$9 

000044RG 

LD$LP  = 

922229 

C$$C<P= 

000000 

E$SXPR= 

000000 

L$$ASG^ 

000000 

C$$ORE= 

OOOAOO 

FMT2 

000420R 

002  L$$DRV= 

000000 

C$$RSH: 

177564 

FMT3 

000437R 

002  L$$P11= 

929921 

D$$BUG= 

1775K 

FM.2  = 

000000 

L$$11R= 

000000 

D$$ISK= 

000000 

FM.3  = 

000000 

M$$CR8= 

000124 

0$Sl11= 

000001 

F$$LVL= 

000001 

M$$CRX= 

000000 

[)$$YNC  = 

000000 

G$$TPP= 

000000 

M$$FCS= 

000000 

D$$YNM= 

000000 

G$$TSS= 

000000 

M$$MGE= 

000000 

ERRSI 

000000R6 

G$$TTK= 

000000 

M$$NET= 

000000 

ERRSIO 

000052RG 

G$$WRD= 

000000 

M$$0VR= 

000000 

ERRSIl 

000060RG 

I$$RAR= 

000000 

N$$ACC-= 

000001 

ERR$12 

000066RG 

I$$RDN= 

000000 

N$$8UF= 

000001 

ERR$3 

00(  ■'06RG 

K$$CNT= 

177546 

N$$LDV= 

000001 

ERRSA 

OOOOHRG 

.  ABS. 

000000 

000 

(RW,I,GBL,ABS,OVR) 

000074 

001 

(RW,I,LCL,REL,CON) 

DATA 

000464 

002 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

*♦*  Assembler  statistics 

Work   f 

ile  reads 

0 

Work   f 

lie  writes 

0 

Size  of 

work  file 

•  10107  Words 

{  40  Pages) 

Size  of 

core  pool 

:  14440  Words 

(  55  Pages) 

N$$MCP= 
N$$MLL= 
N$$M0V= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
S$$WRG= 
S$$YSZ= 
T$$KMG= 
T$$MIN= 
V$$CTR= 


000001 
000001 
000010 
000001 
000001 
000000 
000000 
000010 
000000 
000001 
000000 
000000 
000000 
007600 
000000 
000000 
001000 


X$$DBT= 
$ELINE= 
$ERR1 
lERRIO 

Jerri  1 

$ERR12 

$£RR3 

$ERR4 

$ERR5 

IeRR6 

$ERR7 

$ERR9 

$PRV.N= 

$REP.C= 

$REP.P= 

STERR  = 

$TWARN= 


000000 
•*♦*♦♦  GX 
000144RG 
000026RG 
000064RG 
0001 16RG 
000200RG 
000234RG 
000276RG 
000340RG 
000370RG 
OOOOOORG 
******  GX 
******  GX 
******  GX 
******  GX 
******  GX 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 


Operating     system:    RSX-11M/PLUS 
|Y:?MPERR!v2![?32?154]tMPERR/CR/-SP=SV:[1,1]RSXMCM.SML/ML,[130,110]NETLie/ML,[130,10]RSXMCM/PA:1,[132,10:TMPERR 


TMPERR 


CREATED   BY     MACRO     ON  29-JUN-85   AT   00:42 


PAGE    1 


I  13 


H  U 

TMPEX?  -  I^TL  EXPANSION  ROOIINES  MACRO  V05.03b  Saturday  29-Jun-85  00:^2  Page  5 
MACRO  DEFINITIONS 

55  .S8TTL  MACRO  DEFINHIONS 

56  ;•*♦ 

57  ;  LIBRARY  MACROS 

59  '***    .MCALL  ASL$,DHBDF$,SLTDF$,SAl/RG,RESRG 

60  ;••* 

61  ;  DEFINE  OFFSETS 

65  000000  '***    DHBDFS                ;  DEFINE  DECNET  HOME  BLOCK  OFFSETS 
6^  000000  SLTDFS                ;  DEFINE  SLT  OFFSETS 
65 

66  ;*♦* 

67  ;  LOCAL  MACROS 

^R  .•*♦* 


DEFINE  TRANSFER  TABLE  ENTRV 


69 

70 

71 

72 

71  .MACRO  TTA8$   AA,BB 

7^  .WORD   AA 

75  .ENDM   TTA8$ 

76 


I  K 
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H  15 

TMPEX?  -  NTL  EXPANSION  ROUTINES  MACRO  V05.05b  Saturday   29-Jun-85  00:^2 
ADDRB.'VDDRU.BLKB.BLKW 


571 
572 
573 

574  001172 

575  001200 

576  001202 

577  00^204 

578  001206 

579  001210 

580  001212 

581  001216 

582  001220 

583  001222 
58A  001226 

585  001230 

586  001234 

587  001242 

588  001 2A4 

589  001246 

590  001252 

591  001256 
592 

593 
594 
595 

596  001260 

597  001266 

598  001270 

599  001272 

600  001276 

601  001300 

602  001302 

603  001304 

604  001306 

605  001310 

606  001314 

607  001316 

608  001320 

609  001324 

610  001326 

611  001332 

612  001336 

613  001340 

614  001344 

615  001350 

616  001352 

617  001354 

618  001360 

619  001366 

620  001370 

621  001374 

622  001400 

623  001404 


SECONDARV  FILE 


012767  100000  000154'  MXTAB; 


112546 

010546 

011605 

005003 

152503 

122703  OOOOOOG 

001404 

106303 

000767 

005267  000152' 

126667  000002  000152' 

001360 

022626 

005067  000152' 

005067  000154' 


FILE: 

10$: 
20$: 


30$: 


MOV 

MOVB 

MOV 

MOV 

CLfi 

BISB 

CMPB 

BED 

ASL8 

CALL 

BR 

INC 

CMPB 

SNE 

CMP 

CLfi 

CLR 

RETURN 


#100000, FLAGS 

(R5)+,-(SP) 

R5,-(SP) 

(SP),R5 

R3 

(R5)+,R3 

#.E0F,R3 

30$ 

R3 

aTABLE-2(R3) 

20$ 

INDEX 

2(SP), INDEX 

10$ 

(SP)+,(SP)t 

INDEX 

FLAGS 


012767 
112546 
112546 
112566 
010546 
011605 
010446 
005003 
152503 
022703 
001404 
106303 

000767 
016700 
066600 
012603 
016002 
010360 
005013 
010312 
005267 
126667 
001344 
062706 
005067 
005067 


LINKED  SECONDARY  FILE 


000200  000154'  MPTAB: 
LFILE: 


000001 


OOOOOOG 


OOOOOOG 
000004 

000002 
000002 


000152' 

000004  000152' 

000006 

000152' 

000154' 


10$: 
20$: 


30$: 


MOV 

Move 

MOVB 

MOVB 

MOV 

MOV 

MOV 

CLR 

BISB 

CMP 

BEQ 

ASLB 

CALL 

BR 

MOV 

ADD 

MOV 

MOV 

MOV 

CLR 

MOV 

INC 

CMPB 

BNE 

ADD 

CLR 

CLR 

RETURN 


#200, FLAGS 

(R5)+,-(SP) 

(R5)+,-(SP) 

(R5)+,1(SP) 

R5,-(SP) 

(SP),R5 

R4,-(SP) 

R3 

(R5)+,R3 

#.E0F,R3 

30$ 

R3 

51TABLE-2(R3) 

20$ 

$ADDR,RO 

4(SP),K0 

(SP)+,R3 

2(R0),R2 

R3,2(RO) 

(fi5) 

R3,(R2) 

INDEX 

4(SP), INDEX 

10$ 

#6,SP 

INDEX 

FLAGS 


Page  13 


INDICATE  MUX  EXPANSION 

GET  REPEAT  COUNT 

SAVE  CURRENT  BINARV  FILE  POINTER 

RESTORE  BINARY  FILE  POINTER 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 

IF  EQ,  YES 

CONVERT  TO  A  WORD  INDEX 

EXPAND  A  FIELD 

KEEP  LOOKING  FOR  EOF 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  UE  DONE? 

IF  NE,  NO 

PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 


INDICATE  MTP  EXPANSION 

SAVE  REPEAT  COUNT 

AND  LISTHEAD  DISPLACEMENT 

SAVE  BJNARY  POINTER 

RESET  BINARY  POINTER 

SAVE  SECONDARY  TABLE  ADDRESS 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 
IF  EQ,  YES 

convert  to  word  index 

expand  a  field 

keep  looking  for  eof 

get  multipoint  listhead  address 

restore'secondary  table  address 
link  secondary  table  to  listhead 


TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE? 

IF  NE,  NO 

PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 


I  15 
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•f  1LE"1D*«TMPEX3 


H  16 


TTTTI 

TTTTT 

MM 

MM 

PPPPPPPP 

EEEEEEEEEE 

XX      XX 

333333 

TTTT 

TTTTT 

MM 

MM 

PPPPPPPP 

EEEEEEEEEE 

XX      XX 

333333 

mm 

MMMM 

PP      PP 

EE 

XX      XX 

33     33 

MMMM 

PP      PP 

EE 

XX      XX 

33     33 

MM 

"IM  MM 

PP      PP 

EE 

XX  XX 

33 

MM 

^M  MM 

PP      PP 

EE 

XX  XX 

33 

MM 

MM 

PPPPPPPP 

EEEEEEEE 

XX 

'  3 

MM 

MM 

PPPPPPPP 

EEEEEEEE 

XX 

33 

MM 

MM 

PP 

EE 

XX  XX 

33 

MM 

MM 

PP 

EE 

XX  XX 

33 

MM 

MM 

PP 

EE 

XX      XX 

33     33 

MM 

MM 

PP 

EE 

XX      XX 

33     33 

MM 

MM 

PP 

EEEEEEEEEE 

XX      XX 

333333 

MM 

MM 

PP 

EEEEEEEEEE 

XX      XX 

333333 

LL 

ssssssss 

TTTTT 

TTTT 

LL 

ssssssss 

TTTTTl 

III  1 

.L 

ss 

-L 

ss 

LL 

ss 

-L 

ss 

LL 

ssssss 

LL 

ssssss 

-L 

ss 

-L 

ss 

_L 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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Page  8 


TMP 


112 
•13 
HA 
115 
116 
117 
118 
119 
1^0 
121 
122 
123 
12a 
125 
126 
127 
128 
129 
130 


.SBTTL  ACTION  ROUTINES 
I- 
$INTX  -  ".INT"  ACTION  ROUTINE,  PART  2 

INPUTS: 

$VALUE=ENTRY  POINT  ADDRESS 

OUTPUTS: 

R0,R1,R2=DESTROYFD 


000000 

000000 

OOOOOA  103a'1 

000006  1127^2  OOOOOOG 

000012  116722  OOOOOOG 

000016  116712  000001G 

000022  062767  000016  OOOOOOG 

000030 


ilNTX: 


10$: 


CALL 

BCS 

MOVB 

Move 

MOVB 

ADD 

RETURN 


$RQ3 

10$ 

#.INT,(R2)+ 

$VALUE,(R2)+ 

$VALUE+1,(R2) 

#1A.,$SIZE 


REQUEST  BINARY  FILE 
IF  CS,  NO  ACCESS 
STORE  FUNCTION  CODE 
STORE  ENTRY  POINT  ADDRESS 

ADJUST'dATA  base  SIZE 


J      1 
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56 

57 

58 

59 

60 

61 

62 

63 

64 

65  000000 

66 

67 

68 

69 

70 

71 

72  000000 

73 

74 

75 

76 

n 

78 
79 
80 

81  000004 

82  000042 

83  000104 

84  000146 

85  000204 

86  000242 

87  000270 

88  000316 

89  000362 
90 

91 
92 
93 
94 
95 
96 
97 

98  000442 

99  000461 
100 

101 
102 
103 
104  000000 


104 


101 


*** 
LIBRARY  MACROS 

.MCALL  EMSGS.EMSGSR, NTLERS 

■  LOCAL  DATA 
•  *** 


.PSECT  DATA,D 
.NLIST  BEX 

TEMPLATE  EXTENSION 
124  TMPEXT:  .ASCIZ  "DAT" 
.EVEN 


TMPi 

MACI 
MACI 
CALI 


CALI 
EMSl 
EMSi 
NTL 
RET 


ERROR 

MESSAGES 

.ENABL  LC 

NTLERS  ,17 

NTLERS  ,41 

NTLERS  ,42 

NTLERS  ,43 

NTLERS  ,22 

NTLERS  ,81 

NTLERS  ,85 

NTLERS  ,KX 

LERS 

,KV,2,STERR 

.DSABL  LC 

3,STERR,SPRV.N,SEFNLL,<0pen  FaiLure  (-*»•.)> 
2,$TERR,SREP.C,$ELINE,<' .MPLHD"  Operator  Missing> 
,2,STERR,$REP.C,SELINE,<".LFLHD"  Operator  Missing> 
,2,STERR,$REP.C,SELINE,<Secondary  Table  Empty> 
,2,STERR,SREP.C,SELINE,<Fne  Count  Too  Large> 
.2,STERR,SREP.C,SELINE,<MUX  Operator) 
,2,$TERR,SREP.C,SELINE,<KMC  Operator) 
.2,STERR,SREP.C,SELINE,<Resource  Allocation  Failure) 
,SREP.C,SELINE,<Only  14.  Allocations/Libraries  Allowed) 


ERROR  MESSAGE  FORMAT  STRINGS 


052 
052 


040 
040 


124 
124 


FMT2: 
FMT3: 


.ENABL 

.NLIST 

.ASCIZ 

.ASCIZ 

.EVEN 

.DSABL 

.LIST 

.PSECT 


LC 
BEX 


Template  — 
Template  Fi le  — 


LC 
BEX 
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h. 


TMPAC2     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:39 
MACRO  CROSS  REFERENCE 


I  3 

PAGE  3 

CREF   0^.00 


TMP; 


MACRO  NAME 
CAlL 


CALLR 

EMSGS 

EMSGSR 

NTLERS 

RETURN 


REFERENCES 

6-126 

7-203 

10-325 

12-396 

6-131 
#5-59 
#5-59 
#5-59 

6-1 3A 


6-127 
9-254 
10-329 


12-396 
6-139 
5-81 
7-206 


7-159 
9-256 
10-333 


7-210 

5-82 

8-233 


7-160 
9-266 
10-339 


7-211 

5-83 

9-296 


7-162 
9-276 
10-344 


8-237 

5-84 

10-331 


7-169 
9-284 
10-345 


9-292 

5-85 

10-355 


7-171 
9-285 
10-347 


9-301 

5-86 

11-377 


7-1  n 
9-287 
11-369 


9-302 

5-87 

12-397 


7-178 

10-322 

11-370 


9-303 
5-88 


7-195 

10-323 

11-373 


11-382 
5-89 


'♦f  1LE«MD»*TMPAC3 
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TMP. 
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TMPA 


OOOOOOG  OOOOOOG 


OOOOOOG  OOOOOOG 


108 
109 
110 
111 
112 
113 
1U 
115 
116 

117 

118 
119 
120 
121 
122 

123  000000 

124  000000  032767 

125  000006  001505 

126  000010  005000 

127  000012  032767 

128  000020  001030 
129 

130 

131 

132  000022  026767  OOOOOOG  OOOOOOG 

133 

13A 

135 

136 

137 

138 

139 

140  000030  00U03 

141  000032 

142  000040 

143  000044  103464 

144  000046  016701 
145 
146 

147  000052  032767 

148  000060  001003 

149  000062 

150  000066  000402 
151 


SBINF 


'.BIN"  ACTION  ROUTINE 


INPUTS: 

BINARY  FILE  IS  OPEN  (OPENED  BY  $ABFI) 
$BFALL=ALLOCATION  SIZE 
$BFL8N=L0GICAL  BLOCK  NUMBER 
$BFPTR=BINARY  BUFFER  POINTER 
$BFXFR=TRANSFER  SIZE  IN  BYTES 

F1.UMR  IN  SFLAGI  INDICATES  WHETHER  MEMORY  SHOULD  BE  ALLOCATED 
FROM  UMR  OR  NON-UMR  MEMORY 

OUTPUTS: 

NONE 


iSINF;: 


OOOOOOG 
OOOOOOG  OOOOOOG 


2 
153 
154 

155 
156 


000070 
000074 
000076 
000102 

157  000106 

158  000112 

159  000114 

160  000116 
161 

162 
163 
164 


000120 
000124 


103453 
105267 
016702 
112722 
110022 
000300 
110022 


116722 

116722 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
000001 G 


BIT 
BEQ 
CLR 
BIT 
BNE 

.IF  DF 

CMP 

CMPB 

.IFF 

TST 

.ENDC 


*F2.FIL,$FLAG2 

30$ 

RO 

#FL.CHA,$FLAGS 

22$ 

M$$MGE 

.IF  DF  R$$11M 

$BF8AS,$VALUE 

.IFF 

$8F8AS,$CAFR 

.ENDC 

$8F8AS 


BEQ 

10$ 

EMSG$ 

76 

10$: 

CALL 

MAX  14 

BCS 

25$ 

MOV 

$BFALL,R1 

.IF  DF 

M$$MGE 

BIT 

*F1.UMR,$FLAG1   ; 

BNE 

15$ 

CALL 

$ALN18 

BR 

20$ 

.ENDC 

15$: 

CALL 

$ALL18 

20$: 

BCS 

101$ 

INC6 

$NALL 

22$: 

MOV 

$BFPTR,R2 

Move 

#.C0RE,(R2)+ 

MOVB 

R0,(R2W 

SWAB 

RO 

MOVB 

R0,(R2)t 

.IF  DF 

M$$MGE 

MOVB 

$VALUE,(R2l+ 

MOVB 

$VALUEt1,(R2)+  , 

WAS  VALID  FILE  NAME  SEEN? 

IF  EQ,  NO 

NO  ALLOCATION  ADDRESS  YET 

MUX  CHARACTERISTICS  UPDATE  ONLY 

YES  ..  C$BFALL  IS  ZERO) 


BUILT  FOR  CORRECT  APR? 
BUILT  FOR  CORRECT  APR? 

BUILT  FOR  BASE  ADDRESS  OF  0? 


IF  EQ,  YES 

ELSE  PRINT  WARNING  MESSAGE 
ALLOW  ONLY  14.  ALLOCATIONS 
IF  CS,  NO  MORE  ALLOWED 
GET  ALLOCATION  SIZE  NEEDED 


ALLOCATE  UMR  OR  NON-UMR  MEMORY 
BR  IF  ALLOCATE  UMR  MEMORY 
ALLOCATE  FROM  NO.J-UMR  SPACE 
AND  PROCESS 


TRY  TO  ALLOCATE  FROM  UMR  SPACE 
BR  IF  ALLOCATION  FAILURE 
TALLY  SUCCESSFUL  ALLOCATION 
RESTOR'  BINARY  BUFFER  POINTER 
STORE  FUNCTION  CODE 
FIRST  WORD  OF  ADDRESS 


SECOND  WORD  OF  ADDRESS 


J     A 
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TMP/ 
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THP 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE   TMPAC5  -  NTL  TEMPLATE  PROCESSING  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  5 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-llM-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Mi'cro/RSX  Vl.O 


ITS 


J  5 
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TMI 
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TM 
$X 


1 

2 

3 

i, 

5 

6 

7 

8 

9 

TO 
11 
12 
13 
lA 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE   TMPAC6  -  NTL  TEMPLATE  PROCESSING  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  6 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


J  6. 
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$X2CHW  -  .X2CHW  ACTION  ROUTINE 


^13 
AU 
A15 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 

430  000710 

431  000714 

432  000722 

433  000724 

434  000732 

435  000734 

436  000742 

437  000744 

438  000750 
439 

440  000752 

441  000756 

442  000764 

443  000766 

444  000774 

445  000776 

446  001004 

447  001010 

448  001014 

449  001016 

450  001022 

451  001024 

452  001032 
453 


.SBTTL  $X2CHW  -  .X2CHW  ACTION  ROUTINE 
.SBTTL  $X3CHW  -  .X3CHU  ACTION  ROUTINE 


$X2CHU  -  .X2CHU  ACTION  ROUTINE 
$X3CHW  -  .X3CHW  ACTION  ROUTINE 

INPUTS: 

SVALUE  -  VALUE  OF  FIRST  OPERAND  (INDICATES  WHICH  PARAMETER 
FROM  X2P$DF  OR  X3P$DF  TO  USE) 


OUTPUTS: 
R1 


"lESTROYED 


012701 
026727 
001410 
026727 
103421 
026727 
101015 

000417 

012701 
026727 
103404 
026727 
101403 


066701 
005301 

110122 
062767 


OOOOOOG        $X2CHW 
OOOOOOG  000002 

OOOOOOG  000004 

OOOOOOG  000005 

5$: 


OOOOOOG        $X3CHW: 
OOOOOOG  000001 

OOOOOOG  000002 


OOOOOOG 


10$ 
20$ 
30$ 


000002  OOOOOOG 


.ENABL 
:MOV 
CMP 
BEQ 
CMP 
BLO 
CMP 
BHI 
CALL 
BR 

:MOV 
CMP 
BLO 
CMP 
BLOS 
EMSG$ 
CALL 
ADD 
DEC 
CALL 

Move 

ADD 

RETURN 

.DSA8L 


LS8 

#.X2CH1,R1 

$VALUE,#X2BLK 

5$ 

$VALUE,#X2WL0 

10$ 

$VALUE,#X2WHI 

10$ 

$VXLLC 

30$ 

#.X3C01,R1 

$VALUE,#X3UL0 

10$ 

$VALUE,#X3WHI 

20$ 

91 

$VFLLC 

$VALUE,R1 

R1 

$R01 

R1,(R2)+ 

#2,$SIZE 

LS8 


GET  FUNCTION  CODE 

LEVEL  2  BLOCK  SIZE? 

YES,  SPECIAL  CASE  (NOT  IN  RANGE) 

IS  VALUE  WITHIN  RANGE? 

BR  IF  NO 

WITHIN  RANGE? 

BR  IF  NO 

MAKE  SURE  IT'S  NOT  AN  LLC 


GET  FUNCTION  CODE 

IS  OPERAND  WITHIN  RANGE? 

BR  IF  NO 

WITHIN  RANGE? 

BR  IF  YES 

INVALID  OPERAND 

MAKE  SURE  IT  IS  AN  LLC 

POINT  TO  CORRECT  FUNCTION  CODE 

OPERAND  STARTS  AT  1 

REQUEST  BINARY  BUFFER 

STORE  FUNCTION  CODE 

ADJUST  DATA  BASE  SIZE 
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1^5 
1A6 
K7 
1A8 

XFER 

-  TRANSFER  LIBRARY  FILE  INTO  CORE 

INPUTS: 

U9 

$BFALL^ 

ALLOCATION  SIZE  NEEDED 

150 

$BFL8N= 

LOGICAL  BLOCK  NUMBER 

151 

$BFXFR=: 

TRANSFER  SIZE 

152 

153 

OUTPUTS: 

154 

C-8IT=SUCCESS/FAILURE 

155 

- 

156  000112 

XFER: 

157 

.IF  DF 

M$$MGE 

158 

.IF  DF  R$$11M 

159  000112 

032767 

017777  OOOOOOG 

BIT 

#17777, $BFBAS 

BUILT  TO  SOME  4K  BOUNDARY? 

160  000120 

001032 

BNE 

101$ 

IF  NE,  NO 

161  000122 

026767 

OOOOOOG  OOOOOOG 

CMP 

$VALUE,$BFBAS 

BUILT  FOR  CORRECT  APR? 

162 

.IFF 

163 

CMPB 

$6FBAS,$CAPR 

DITTO? 

16A 

.ENDC 

165 

.IFF 

166 

TST 

$8FBAS 

BUILT  FOR  BASE  ADDRESS  OF  0? 

167 
168 
169  000130 

.ENDC 

001403 

BEQ 

10$ 

IF  EQ,  YES 

170  000132 

EMSG$ 

Y2 

PRINT  UARNING  MESSAGE 

171  0001AO 

0$: 

CALL 

MAX  14 

ALLOW  ONLY  14.  ALL0CS/LI8RS 

172  OOOKA 

103417 

BCS 

25$ 

IF  CS,  TOO  MANY  ALREADY 

173  0OOH6 

17A 

175 

016701 

OOOOOOG 

m\i 

$BFALL,R1 

GET  ALLOCATION  SIZE  NEEDED 

.IF  DF 

M$$MGE 

176  000152 

032767 

OOOOOOG  OOOOOOG 

BIT 

*F1.UMR,$FLAG1 

MUST  FILE  BE  IN  UMR  SPACE? 

177  000160 

001003 

BNE 

15$ 

BR  IF  YES 

178  000162 

CALL 

$ALN18 

ALLOCATE  FROM  NON-UMR  SPACE 

179  000166 

000402 

BR 

20$ 

AND  PROCESS 

180 
181 
182  000170 

.ENDC 

15$: 

CALL 

$ALL18 

ALLOCATE  FROM  NT  POOL  (UMR  S 

183  000174 

103411 

20$: 

BCS 

111$ 

BR  IF  ALLOCATION  FAILURE 

184  000176 

CALL 

$L8XFR 

TRANSFER  LIBRARY  INTO  CORE 

185  000202 

103413 

BCS 

121$ 

IF  CS,  FAILURE 

186  000204 

25$: 

RETURN 

187 

188 

189 
190 
191 

;  ERROR 

CONDITIONS 

.IF  DF 

R$$11M  8  M$$MGE 

192  000206 

101$: 

CALL 

$L8ERR 

CLEANUP  AFTER  AN  ERROR 

193  000212 

EMSG$R 

Y3 

LIBRARY  BASE  ADDRESS  NOT  MUL 

194 

.ENDC 

195  000220 

111$: 

CALL 

$LBERR 

CLEANUP  AFTER  AN  ERROR 

196  000224 

EMSG$R 

Y4 

LIBRARY  ALLOCATION  FAILURE 

197  000232 

016701 

OOOOOOG 

121$: 

MOV 

$8FALL,R1 

•  GET  LIBRARY  SIZE 

198  000236 

CALL 

$DEA18 

•  DE-ALLOCATE  LIBRARY 

199  000242 

CALL 

$LBERR 

•  CLEANUP  AFTER  AN  ERROR 

200  000246 

000261 

SEC 

■  RETURN  C-BIT  SET 

201  000250 

RETURN 

OF  4< 
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56 

57 

58 

59 

60 

61 

62 

63 

64 

65  000000 

66 

67 

68 

69 

70 

71 

72  000000 

73 

74 

75 

76 

n 

78 

79        000001 

80 

81 

82  000000 


LIBRARY  MACROS 


.MCALL  EMSG$R,NTLER$ 

•  *  ** 

':    LOCAL  DATA 

■  *** 

.PSECT  DATA,D 

ERROR  MESSAGE  (fORMAT  STRING  ADDRESS  DEFINED  GLOBALLr  IN  "TMPAC7") 

.ENABL  LC 

NTLERS  ,V1,2,$TERR,SREP.C,$ELINE,<Library  Block  AUocation  Failure> 

.DSA8L  LC 

32.  WORD  SLOCK  ALLOCATION  SIZE 

.IIF  DF  M$$MGE,  BLKSIZ=1 
.IJF  NDF  M$$MGE,  BLKSIZ=100 

.PSECT 
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•  *F!LE'*ID"TMPALT 


I  10 


UE 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

TTTTl 

TTTTT 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

TTTT 

TTTTT 

MMM^ 

MMMM 

pp      PP 

AA 

AA 

mm 

MMMM 

PP      PP 

AA 

AA 

m 

*IM  MM 

PP      PP 

AA 

AA 

m 

m     MM 

PP      PP 

AA 

AA 

MM 

MM 

PPPPPPPP 

AA 

AA 

MM 

MM 

PPPPPPPP 

AA 

AA 

MM 

MM 

PP 

AAAAAAAAAA 

MM 

MM 

PP 

AAAAAAAAAA 

MM 

MM 

PP 

AA 

AA 

MM 

MM 

PP 

AA 

AA 

MM 

MM 

PP 

AA 

AA 

LLLLLLLLLL 

MM 

MM 

PP 

AA 

AA 

LLLLLLLLLL 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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UBA  -  GET  UNLOAD  BLOCK  ADDRESS 


00:41 


n 

AL 


478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 

497  000616 

498  000622 

499  000626 

500  000632 

501  000636 

502  000640 

503  000642 

504  000644 

505  000646 

506  000650 

507  000652 

508  000654 
50^^ 
510 


.SBTTL  UBA  -  GET  UNLOAD  BLOCK  ADDRESS 
UBA  -  CALCULATE  UNLOAD  BLOCK  ADDRESS 


INPUTS: 


$ADDR   =  LINE  TABLE  ADDRESS  (OR  BIAS) 

SSIZE   =  LINE  TABLE  SIZE  (IN  BYTES  OR  BLOCKS) 

$NALL   =  NUMBER  OF  ALLOCATIONS  (BYTE  FIELD) 

SNLIB   =  NUMBER  OF  LIBRARIES  (BYTE  FIELD) 

SNTLPT  =  POINTER  TO  NTL  DATA  BLOCK 

$NALL,$NLI8  =  A  WORD  FIELD 

DATA  BLOCKt.CXUNL  =  POINTER  TO  FIRST  UNLOAD  BLOCK 


OUTPUTS: 

SUB  I  AS 
$UDA 
$LDA 
SSIZE 


=  BIAS  OF  UNLOAD  BLOCK  (MAPPED  SYSTEM  ONLY) 

=  UNLOAD  DATA  ADDRESS  FOR  FIRST  ALLOCATION  ENTRY 

=  UNLOAD  DATA  ADDRESS  FOR  FIRST  LIBRARY  DESCRIPTOR  ENTRY 

=  DESTROYED  IF  DATA  BASE  WAS  MAPPED 


005067 
116700 
116701 
060001 
001403 
006301 
006301 
005721 
022121 
005721 
010167 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


UBA : 


10$: 


CALL 

CLR 

MOVB 

M0V8 

ADD 

BEQ 

ASL 

ASL 

TST 

CMP 

TST 

MOV 


GETIND 

SUDA 

SNALL.RO 

SNLIB.RI 

RO.RI 

10$ 

R1 

R1 

(R1)  + 

(R1)+,(R1)t 

(R1)  + 

R1,$LDA 


.IF  DF  M$$MGE 


511 

512  000660 

SWSTK$ 

70$ 

513  000664 

017700 

OOOOOOG 

MOV 

SNTLPT, RO 

514  000670 

010067 

000604' 

MOV 

RO.NLBLK 

515  000674 

CALL 

$MAPX 

516  000700 

016211 

OOOOOOG 

MOV 

.CXUNL(R2),(R1) 

517 

518 

.IFF 

519 

520 

MOV 

$NTLPT,RO 

521 

MOV 

.CXUNL(R0),R2 

522 

523 
524 

525  000704 

.IFTF 

0C1437 

BE(3 

60$ 

526  000706 

010200 

20$:    MOV 

R2,R0 
#l60,R0 
R2,r5 
(R3)  + 

527  000710 

062700 

000100 

ADD 

528  000714 

010203 

MOV 

529  000716 

005723 

TST 

530  000720 

020300 

30$:    CMP 

R3,R0 
50i 

531  000722 

103026 

BHIS 

532  000724 

005723 

TST 

(R3)  + 

533  000726 

005723 

TST 

(R3)  + 

534  000730 

001412 

BEO 

40$ 

GET  PDV  INDEX  OF  CURRENT  PROCESS 

SET  NO  UNLOAD  DATA  ADDRESS  YET 

GET  NUMBER  OF  ALLOCATIONS 

AND  NUMBER  OF  LIBRARIES 

ADD  THEM  TOGETHER 

IF  ZERO,  NO  ALLOCS/LIBRS 

MULTIPLY  BY  4  (2  WORDS  PER  UNLOAD  ENTRY) 

INCLUDE "i  WORD  FOR  ALLOC/LIBR  COUNT 
INCLUDE  2  WORDS  FOR  LINE  TABLE  ADDRESS/SIZE 
INCLUDE  1  WORD  FOR  PDV  INDEX  AND  RESERVED  BYTE 
SAVE  UNLOAD  SIZE  NEEDED 


ENTER  KERNEL  MODE 

GET  DATA  BLOCK  ADDRESS 

SAVE  IT  FOR  LATER 

MAP  TO  THE  DATA  BLOCK 

MAP  TO  FIRST  UNLOAD  BLOCK 


GET  DATA  BLOCK  ADDRESS 

GET  FIRST  UNLOAD  BLOCK  ADDRESS 


IF  EQ,  NO  UNLOAD  BLOCKS  YET 

COPY  VIRTUAL  ADDRESS 

SET  32.  WORD  BLOCK  VIRTUAL  ADDRESS  LIMIT 

COPY  VIRTUAL  ADDRESS  AGAIN 

SKIP  NEXT  UNLOAD  BLOCK  POINTER 

IS  IT  END  OF  THIS  32.  WORD  BLOCK? 

IF  HIS,  YES 

SKIP  THE  PDV  INDEX  ENTRY  (IF  EQ,  COULD  BE  AUX) 

SKIP  LINE  TABLE  ADDRESS  ENTRY 

IF  ZERO,  THE  REST  OF  THIS  BLOCK  IS  AVAILABLE 
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1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

107A 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

nil 

1112 
1113 
1114 


.SBTTL  AL0C2  -  ALLOCATE  FROM  OUTSIDE  TASK  SPAf" 

•♦♦  -  AL0C2  -  ALLOCATE  POOL  SPACE  FROM  AREA  OUTSIDE   ,SK'S  MAPPING  SPACE 

THIS  ROUTINE  WAS  ADAPTED  FROM  THE  RSX-llM  EXECUTIVE  ROUTINE  SALOCI. 
ADDITIONAL  CODE  WAS  ADDED  FOR  REMAPPING  OF  THE  ADDRESSES  IN  THE  CHAIN. 
FOR  ADDITIONAL  EXPLANATION  OF  THIS  ROUTINE,  CONSULT  THE  EXECUTIVE 
MODULE  "CORAL". 

THIS  ROUTINE  ALLOCATES  POOL  SPACE  FROM  MEMORY  THAT  IS  OUTSIDE  THE 
MAPPING  SPACE  OF  THE  TASK.  THE  APR  MUST  HAVE  ALREADY  BEEN  SET  UP  BEFORE 
CALLING  THIS  ROUTINE,  WITH  THE  DISPLACEMENT  FOR  THE  APR  PASSED  IN  R2. 
THIS  ROUTINE  ASSUMES  THAT  THE  POINTERS  IN  THE  LINKED  LIST  ARE  BIASED  BY 
APR6.  THIS  ROUTINE  WILL  ENDEAVOR  TO  PRESERVE  THE  APR6  MAPPING. 

INPUTS: 

RO  =  ADDRESS  OF  ALLOCATION  LISTHEAD-2  (UNBIASED) 

R1  =  LENGTH  OF  CORE  NEEDED  IN  BYTES 

R2  =  DISPLACEMENT  ADDRESS  (100000  OR  120000) 


OUTPUTS: 

C-BIT 


AL0C2: 


SET  IF  NO  MEMORY  ALLOCATED 
CLEAR  IF  MEMORY  WAS  ALLOCATED 


IF  SUCCESS: 

RO  =  ADDRESS  OF  THE  ALLOCATED  BLOCK. 
R1  =  LENGTH  OF  THE  ALLOCATED  BLOCK. 


.IF  DF   R$$MPL 


BIS 

R2,R0 

ADD 

(R0),R1 

BIC 

(R0)+,R1 

SEC 

BEQ 

30$ 

MOV 

R2,-(SP) 

10$: 

MOV 

R0,R2 

MOV 

(R2),R0 

BEQ 

25$ 

BIC 

#160000, RO 

BIS 

(SP),RO 

CMP 

2(R0),R1 

BLO 

10$ 

BE(3 

20$ 

TST 

(R0)  + 

SUB 

R1,(R0) 

ADD 

RO.Rl 

MOV 

(R0),(R1) 

MOV 

-(R0),-(R1) 

BIC 

*160060,R1 

MOV 

Rl.(RO) 

?0$: 

MOV 

(r6),(R2) 

;'5$: 

MOV 

(SP)+,R2 

30$: 

RETURN 

.ENDC 

;  DF  R$$MPL 

LETS  MAP  TO  CPU  PARTITION 

ROUND  TO  NEXT  BOUNDARY 

CLEAR  EXCESS 

ASSUME  ZERO  LENGTH  BLOCK 

IF  E(3  ZERO  LENGTH  REQUEST 

SAVE  RELOCATION  ADDRESS 

SAVE  ADDRESS  OF  CURRENT  BLOCK 

GET  ADDRESS  OF  NEXT  BLOCK 

IF  EQ  END  OF  CHAIN 

CLEAR  CURRENT  MAPPING  REG. 

USE  OUR  MAPPING  REG. 

BLOCK  BIG  ENOUGH? 

IF  LO  NO 

IF  EO  BLOCK  IS  EXACT  SIZE 

POINT  TO  SIZE  OF  FREE  BLOCK 

CALCULATE  SIZE  REMAINING 

POINT  TO  NEW  FREE  BLOCK 

COPY  SIZE 

COPY  LINK 

GET  RID  OF  MAPPING  REGISTER 

STORE  LINK  TO  NEW  FREE  BLOCK 

UPDATE  LINK  TO  NEW  FREE  BLOCK 

RETORE  RELOCATION  ADDRESS 


T  ft  CU   CDA  r c 
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TMPERR 

CREATED   BY 

MACRO     m  29 

-JUN-85 

AT   00:42 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

ERR$1 

OOOOOC 

RG 

#6-110 

ERRSIC 

000052 

RG 

#6-117 

ERRS11 

000060 

RG 

#6-118 

ERR$12 

000066 

RG 

#6-119 

ERR$3 

000006 

RG 

#6-111 

ERR$4 

OOOOK 

RG 

#6-112 

ERR$5 

000022 

RG 

#6-113 

ERR$6 

000030 

RG 

#6-114 

ERR$7 

000056 

RG 

#6-115 

ERR$9 

00004A 

RG 

#6-116 

FMT2 

000420 

R 

5-71 

5-79 

5-80 

FMT3 

000437 

R 

5-72 

5-73 

5-74 

FM.2 

=  000000 

#5-71 

#5-79 

#5-80 

FM.3 

=  000000 

#5-72 

#5-73 

#5-74 

S$$BAS 

=      ****** 

5-71 

5-71 

5-72 

5-79 

5-80 

5-80 

5-84 

5-84 

SELINE 

~      ****** 

GX 

5-71 

5-74 

5-79 

SERRI 

00OU4 

RG 

#5-79 

6-no 

SERRIO 

000026 

RG 

#5-72 

6-117 

SERRII 

000064 

RG 

#5-73 

6-118 

SERR12 

000116 

RG 

#5-74 

6-119 

$ERR3 

000200 

RG 

#5-80 

6-111 

SERRA 

000234 

RG 

#5-81 

6-112 

$ERR5 

000276 

RG 

#5-82 

6-113 

tERR6 

000340 

RG 

#5-83 

6-114 

$ERR7 

000370 

RG 

#5-84 

6-115 

$ERR9 

000000 

RG 

#5-71 

6-116 

SPRV.N 

-      ****** 

GX 

5-72 

SREP.C 

-      ****** 

GX 

5-71 

5-79 

5-80 

SREP.P 

=      ****** 

GX 

5-73 

5-74 

STERR 

r     ****** 

GX 

5-71 

5-72 

5-74 

STWARN 

-     ****** 

GX 

5-73 
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CREF   04.00 


5-81 
#5-94 
#5-81 

5-72 
5-81 

5-80 


5-82 

#5-82 

5-73 
5-81 

5-81 


5-83 

#5-83 

5-73 
5-82 

5-82 


5-84 

#5-84 

5-74 
5-82 

5-83 


#5-93 


5-74 
5-83 

5-84 


5-79 
5-83 


5-81 
5-79 


5-82 
5-80 


5-83 

5-81 


5-84 
5-82 


5-83 


5-84 


TMPERR 
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LOCAL  DATA 


00:A2 


78 

79 

80 

81 

82 

83 

S'.  000000 

85 

86 

87 

88 

89  000000 

90  000002 

91  000004 

92  000006 

93  000010 
9A  000012 

95  0000  I A 

96  000016 

97  000020 

98  000022 

99  000024 

100  000026 

101  000030 

102  000032 

103  00003A 
10A  000036 

105  OOOOAO 

106  000042 

107  000044 

108  000046 

109  000050 

110  000052 
ir  000054 

112  000056 

113  000060 

114  0C0062 

115  000064 

116  000066 

117  000070 

118  000072 

119  000074 

120  000076 

121  00010C 

122  000102 

123  000104 

124  000106 

125  000110 

126  000112 

127  000114 

128  000116 

129  000120 

130  000122 

131  000124 

132  000126 

133  000130 

134  000132 


.SBTTL  LOCAL  DATA 


•  **  * 

•  LOCAL  DATA 


.PSECT  DATA,D 


TRANSFER  TABLE  USING  FUNCTION  CODE  AS  INDEX 


TABLE: 


TTABS 
TTABS 
TTAS$ 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 


ADDRB.NULL 

ADDRW.NULL 

BLKB.POPI 

BLKW,P0P1 

BYTE.POPI 

CORE.XCORE 

CSR,P0P1 

CTIM.NULL 

DVCHA,NULL 

EOF, NULL 

FILE,P0P1 

INT,P0P2 

LIBR.XLIBR 

LINKS, NULL 

LFILE,P0P3 

LSTHD,NULL 

L TAB, NULL 

MPTA8,P0P3 

MXTAB.POPI 

NOD, NULL 

PRI,NULL 

PRTOV.POPl 

SCOM,XSCOM 

SECSR.NULL 

SLNB.NULL 

SLNU.NULL 

STNB.NULL 

STNW,NULL 

UNB.NULL 

UNW.NULL 

W0RD,P0P2 

APR, NULL 

DPRB.NULL 

DPRW,NULL 

TIME, NULL 

MXPTB.XHXPTB 

PECHA.NULL 

X3CH01,NULL 

X3CH02,NULL 

X3CH03,NULL 

X3CH04,NULL 

X3CH05,NULL 

X3CH06,NULL 

X3CH07,NULL 

X3CH08,NULL 

X3CH09,NULL 


EXPANSION  ROUTINE  IS  FIRST  ENTRY 
CLEANUP  ROUTINE  IS  SECOND  ENTRY 
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ADORB,ADDRW,BLKB,BLICW 


I  15 

00:4 


42  Page  14 


625 

626 

627 

628  001406 

629 

630  001406 

•  LIBRARY  POINTER 

LIBR:    .IF  DF 

M$$MGE 

112546 

M0V8 

(R5)t,-(SP) 

631  001410 

112566 

000001 

MOVB 

(R5)t,1(SP) 

652  001414 

012600 

MOV 

(SP)+,RO 

633  001416 

005024 

CLR 

(R4)  + 

654 

655 
656 
657  001420 

.IFTF 

112546 

MOVB 

(R5)+,-(SP) 

638  001422 

112566 

000001 

MOVB 

(R5)+,1(SP) 

659  001426 

012603 

MOV 

(SP)+,R3 

640  001430 

112524 

MOVB 

(R5H,(R4)t 

641  001432 

112524 

MOVB 

(R5)+,(R4)+ 

642 

643 
644 
645 
646 
647  001434 

.IFT 

.IF  DF  R$$11M 

SWSIK$ 

10$ 

648 

649 

.ENDC 

650 

651  001440 

CALL 

$MAPX 

65?  ^01444 

016564 

OOOOOOG  177774 

MOV 

LB.ADR(R5),-4(R4 

6^   .01452 

6>. 

655 

656 

657 

016711 

OOOOOOG 

MOV 

$UBIAS,(R1) 

.IFF 

MOV 

L8.ADR(R5),-2(R4 

658 

MOV 

R3,R0 

659 

BIG 

#7^R0 

660 

661 

.ENDC 

662 

665  001456 

016702 

OOOOOOG 

MOV 

$LDA,R2 

664  001462 

010022 

MOV 

R0,(R2)+ 

665  001464 

010312 

MOV 

R3,(R2) 

666  001466 

042722 

177700 

BIC 

*"C<77>,{R2)t 

667  001472 

010267 

OOOOOOG 

MOV 

R2,$LDA 

668 

665  001476 

10$:    RETURN 

ASSEMBLE  DESCRIPTOR  BIAS 

ZERO  FJRST  WORD  OF  ADDRESS  (TEMPORARY) 

ASSEMBLE  DESCRIPTOR  ADDRESS 
COPY  SECOND  WORD  CF  ADDRESS 

;•  ENTER  KERNEL  MODE 


;♦  MAP  TO  LIBRARY  DESCRIPTOR 
5  ;•  STORE  LIBRARY  BIAS 
;*  MAP  TO  UNLOAD  BLOCK 


)  ;  STORE  LIBRARY  ADDRESS 

;  CALCULATE  START  OF  LIBRARY  BLOCK 


*  GET  LIBRARY  DATA  ADDRESS  WITHIN  UNLOAD  BLOCK 

*  STORE  DESCRIPTOR  BIAS 
»  AND  OFFSET 

«  6  BITS  ONLY 

*  UPDATE  LIBRARY  DATA  POINTER 
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I  16 

00:43 


1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
'2 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
S7 


.TITLE  TMPEX3  -  NTL  TEMPLATE  ERROR  CLEANUP  ROUTlNtS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THi:  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  LINE  TABLE  CLEANUP/DE-ALLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTCPY: 


1.00 
2.00 

3.00 

3.01 
4.0C 

5.00 


27-FEB-78 

VERSION  2.0  RELEASE 

14-DEC-79 
DECNET-llM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

16-APR-82 
DECNET-11M  V3.1 
DECNET-11M-PLU5  VI. 1 


28-SEP-82 
ADD   .NODE, 


.PRTOV  OPERATOR   SUPPORT 


07-NOV-83 
DECNET-11M  V4.0 
DECNET-IIM-PLUS   V2.0 

22-JUL-35 
DECnet-IIM/S  V4.2 
DECnet-HM-Plus   V3.0 
DECnet-Micro/RSX   VI. 0 


TV|PFX3   -   NTI 
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TMP 


1 

$1NT  -  ".iNT 

'  ACTION  ROUTINE 

••35 

INPUTS: 

136 

NONE 

137 

158 

OUTPUTS: 

139 

R0,R1, 

^2=DESTR0YED 

140 

SVECTI 

^CURRENT  VALUE  OF  $SIZE 

141 

iINT:: 

142  000032 

143  000032 

CALL 

SVFDDM         ;  MAKE  SURE  IT'S  A  DDM 

144  000036 

012700 

OOOOGOG 

MOV 

#f1.INT,R0      ;  BIT  TO  BE  SET 

145  000042 

012701 

OOOOOOC 

MOV 

#F1.IN11f1.IN2IFi.IN3,R1  ;  BITS  WHICH  MUST 

146  000046 

005002 

CLR 

R2            ;  VECTOR  INDFX 

14^  000050 

CALLR 

VFVCT          ;  CHECK  VECTOR  AVAILABILITY 

BE  SET 
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J  2_ 


TMPAC2  -  NTL  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85  00:39  Page  6 


»»F 


106 
107 
108 
109 
110 
111 
112 
113 
lU 
115 
116 
117 
118 
119 
120  000000 


SFILE  -  ".FILE"  ACTION  ROUTINE 

INPUTS: 

F2.FIL  SET  IF  VALID  FILE  NAME  SEEN  ON  THIS  LINE 
$FILEN=ASCIZ  FILE  NAME 

OUTPUTS: 

R0,R1,R2=DESTROYFD 

SECONDARY  TEMPLATE  FILE  PROCESSED 


121 
122 


000000 
000006 
123  000010 
12'!.  000012 

125  000016 

126  000022 

127  000026 

128  000032 

129  000036 

130  000040 

131  000044 

132  000050 

133  000050 

134  000054 
135 

136 

137 

138 

139  000056 

140 

141 


032767 
001422 
005000 
012701 
012702 


105777 
100407 
016746 


OOOOOOG 


SFILE: 


OOOOOOG 
000000- 


OOOOOOG 
OOOOOOG 


012667  OOOOOOG 


SFILEX: 
10$: 


. ENABL 

Lsa 

BIT 

#F2.FIL,$FLAG2 

BEQ 

10$ 

CLR 

RO 

MOV 

*$FILEN,R1 

MOV 

#TMPEXT,R2 

CALL 

$AZFS 

CALL 

SCLQUE 

TSTB 

aSCLIOS 

BMI 

101$ 

MOV 

$VALUE,-(SP) 

CALLR 

$TMFIX 

MOV 

(SP)+,$VALUE 

TTT 
TTT 


RETURN 


ERROR  CONDITIONS 
101$:   EMSGSR  17 
.DSA8L  LSB 


WAS  VALID  FILE  NAME  SEEN? 
IF  EQ,  NO 

SETUP  ASCIZ  FILE  SPEC 
FOR  [131, 5XJFILENAME.DAT 


TRY  TO  OPEN  SECONDARY  TEMPLATE 

SUCCESS? 

IF  MI,  NO 

SAVE  EXPRESSION  VALUE 

PROCESS  SECONDARY  TEMPLATE 

OVERLAY  RETURN  ADDRESS 

RESTORE  EXPRESSION  VALUE 


;  SECONDARY  TEMPLATE  NOT  FOUND 


LL 

LI 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLC 

LLL 
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TMP 


t»FILE"lD'«TMPAC3 
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TMP/ 


TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

mw. 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

AAAAAA 

CCCCCCCC 

333333 

MMMM 

MMMM 

PP      PP 

AA 

AA 

33     33 

MMMM 

PP      PP 

AA 

AA 

33     33 

MM 

MM  MM 

PP      PP 

AA 

AA 

33 

MM 

m     MM 

PP      PP 

AA 

AA 

33 

MM 

MM 

PPPPPPPP 

AA 

AA 

11 

MM 

MM 

PPPPPPPP 

AA 

AA 

'^,, 

MM 

MM 

PP 

AAAAAAAAAA 

33 

MM 

MM 

PP 

AAAAAAAAAA 

33 

MM 

MM 

PP 

AA 

AA 

33     33 

MM 

MM 

PP 

AA 

AA 

33     33 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

333333 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

333333 

ssssssss 

TTTTTl 

HTT 

ssssssss 

TTTTTl 

nil 

ss 

T 

ss 

T 

ss 

T 

ss 

T 

ssssss 

Tl 

ssssss 

T 

ss 

T 

ss 

T 

ss 

T 

ss 

T 

_LLLLL 

1  1  1 

ssssssss 

T 

LLLLLLLLLL 

ssssssss 

T 

TMP 
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THP; 


165 
166 
167  000130 

.ENDC 

116722 

OOOOOOG 

H0V8 

$BFALL,(R2)+ 

168  000134 

116712 

000001 G 

MOVB 

$8FALL+1,(R2) 

169 

170 

.IF  DF 

M$$MGE 

171  OOOKO 

062767 

000004 

OOOOOOG 

ADD 

#4.$SIZE 

172 

.IFF 

173 

ADD 

#2,$SIZE 

17'. 

.ENDC 

175 

176  000U6 

000300 

SWAB 

RO 

177  000150 

00U24 

BEQ 

30$ 

178  000152 

016767 

OOOOOOG 

OOOOOOG 

MOV 

$eFLBN,$LBN 

179  000160 

016767 

000002G 

000002G 

MOV 

$SFLeN+2,$LBN+2 

180  000166 

016767 

OOOOOOG 

OOOOOOG 

MOV 

$8FXFR,$LLEN 

181  000171 

CALL 

$READX 

182  000200 

103006 

BCC 

25$ 

183  000202 

116777 

OOOOOOG 

OOOOOOG 

MOVB 

$I0SB,a$CLIOS 

184  000210 

EMSG$ 

n 

185  000216 

25$: 

CALL 

$CLDEQ 

186  000222 

30$: 

RETURN 

187 

188 

189 
190 
191  000224 

;  ERROR 

CONDITION 

101$: 

CALL 

$CLDEQ 

192  000230 

EMSG$R 

26 

;  AND  COUNT  (FOR  CLEANUP) 

;  ADJUST  DATA  BASE  SIZE 
;  ADJUST  DATA  BASE  SIZE 


RESTORE  ALLOCATION  BIAS 

IF  ZERO,  MUX  CHARACTERISRICS  UPDATE 

SET  LOGICAL  BLOCK  NUMBER 

AND  TRANSFER  SIZE  IN  BYTES 
TRANSFER  BINARY  FILE  INTO  CORE 
IF  CC,  NO  PROBLEM 
COPY  ERROR  CODE 
READ  FAILURE 
CLOSE  BINARY  FILE 


CLOSE  BINARY  FILE 

RESOURCE  ALLOCATION  FAILURE 
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TMF 
MAC 


56 

57 

58 

59 

60 

61 

62 

63 

64  000000 

65 

66 

67 

68 

69 

70  000000 
71 

72 
73 
74 
75 
76 

71  000000 

78  000036 

79  000066 

80  000140 
81 

82  000202 

83 

84 

85 

86  000244 

87 

88 

89 

90 

91 

92 

93 

94 

95  000310 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 

107  000000 
108 
109 
110 
111 
112  000000 


052 


040 


000006 


LIBRARY  MACROS 
*** 

.MCALL  ASL$ 

EMSGS 

EMSGSR 

NHWDFS 

NTLERI 

*** 

LIBRARY  SYMBOLS 
•  *** 

NHWDFS 

■  *** 
;  LOCAL 

DATA 

.PSECT  DATA 

D 

;  ERROR 

MESSAGES 

,69,6,$TERR,$PRV.N,$EFNLL,<0pen  Failure  (-***.)> 

,71 ,6,STERR,$REP.P,$EFNLL,<Not  Contiguous> 

,72,6,$TERR,$CUR.N,$EFNLL,<Label  Block  Read  Failure  (-♦♦♦.)> 

,73,6,$TERR,$REP.C,$EFNLL,<Not  a  Valid  Binary  lmage> 

R$$11M 

,74,6,$TERR,$REP.C,$EFNLL,<Size  Exceeds  32K-32  Words> 


NTLERS 

NTLERS 

NTLERS 

NTLERS 

.IF  DF 

NTLERS 

.IFF 

NTLERS 

.ENDC 

NTLERS  ,75,6,STERR,SREP.C,$EFNLL,<Extension  Exceeds  32K  Words> 


,74,6,STERR,SREP.C,SEFNLL,<Size  Exceeds  4K  Words> 


.DSABL  LC 


ERROR  MESSAGE  FORMAT  STRING 


.ENASL  LC 

.NLIST  BEX 

111  FMT6:   .ASCIZ  "«  Image  File  — 
.EVEN 

.DSABL  LC 

.LIST  BEX 


DEFAULT  APR  NUMBER 

.IF  DF  MSSMGE 
DFAPR=«.BASE8/2>&77777>/10000 
.ENDC 

.PSECT   ..BUF 


DISK  BUFFER  FOR  LABEL  BLOCK  READ 
6SK6UF:  .8UW   1 
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MACRO  DEFINITIONS 


T^ 
$x 


5A 
55 
56 
57 
58 
59 
60 
61 
62  000000 


.SBTTL  MACRO  DEFINITIONS 
*** 
LIBRARY  MACROS 

.MCALL  RESRG,SAVRG,EMSG$,NHWDF$,NTLER$ 
♦  ** 

LIBRARY  SYMBOLS 
*♦* 

NHWDFS 
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455 
A56 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 

472  001034 

473  001040 

474  001046 

475  001050 

476  001056 

477  001060 

478  001066 

479  001070 

480  001074 
481 

482  001076 

483  001102 

484  001110 

485  001112 

486  001120 

487  001122 

488  001130 

489  001134 

490  001140 

491  001142 

492  001146 

493  001150 

494  001154 
495 


.SBTTL   $X2CHB 
.SBTTL  $X3CHB 


.X2CHB  ACTION  ROUTINE 
.X3CHB  ACTION  ROUTINE 


$X2CHB  -  .X2CHB  ACTION  ROUTINE 
$X3CHB  -  .X3CH8  ACTION  ROUTINE 


INPUTS: 


SVALUE 


VALUE  OF  FIRST  OPERAND  (INDICATES  WHICH  PARAMETER 
FROM  X2P$DF  OR  X3P$DF  TO  USE) 


OUTPUTS: 

R1  DESTROYED 


012701  OOOOOOG 

026727  OOOOOOG  000001 

103425 

026727  OOOOOOG  000003 

101021 

026727  OOOOOOG  000002 

001415 

000417 

012701  OOOOOOG 

026727  OOOOOOG  000003 

103404 

026727  OOOOOOG  000013 

101403 


066701  OOOOOOG 
005301 


110122 
005267 


OOOOOOG 


.ENASL 
$X2CHB::M0V 
CMP 
BLO 
CMP 
BHI 
CMP 
BEQ 
CALL 
BR 

$X3CHB::M0V 
CMP 
BLO 
CMP 
8L0S 
EMSG$ 
CALL 
ADD 
DEC 
CALL 
MOVB 
INC 

RETURN 
.DSABL 


10$ 
20$ 
30$ 


LS8 

#.X2CH1,R1 

SVALUE, #X2BL0 

10$ 

$VALUE,*X2BHI 

10$ 

$VALUE,#X2BLK 

10$ 

$VXLLC 

30$ 

#.X3C01,R1 

$VALUE,#X3BL0 

10$ 

$VALUE,*X3BHI 

20$ 

91 

$VFLLC 

SVALUE, Rl 

R1 

SRQ1 

R1,(R2)+ 

SSIZE 

LSB 


GET  FUNCTION  CODE 

IS  VALUE  WITHIN  RANGE? 

BR  IF  NO 

WITHIN  RANGE? 

BR  IF  NO 

BLOCK  SIZE  PARAMETER? 

YES,  NOT  ALLOWED  AS  BYTE 

MAKE  SURE  IT'S  NOT  AN  LLC 


GET  FUNCTION  CODE 

IS  OPERAND  WITHIN  RANGE? 

BR  IF  NO 

WITHIN  RANGE? 

BR  IF  YES 

INVALID  OPERAND 

MAKE  SURE  IT  IS  AN  LLC 

POINT  TO  CORRECT  FUNCTION  CODE 

OPERAND  STARTS  AT  1 

REQUEST  BINARY  BUFFER 

STORE  FUNCTION  CODE 

ADJUST  DATA  BASE  SIZE 
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205 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 


000252  116700  OOOOOOG 

000256  116701  OOOOOOG 

000262  060001 

000264  022701  000015 

000270  103401 
000272 


000274 
000300 


MAX14  -  ALLOW  ONLY  14.  ALLOCATIONS/LIBRARIES 

INPUTS: 

$NALL=NUMBER  OF  ALLOCATIONS 
$NLIB=NUM8ER  Of  LIBRARIES 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 


MAX14: 


Move 

MOVB 

ADD 

CMP 

BCS 

RETURN 


$NALL,RO 

$NLIB,R1 

RO.RI 

#l5.,R1 

101$ 


ERROR  CONDITION 


Ion 


CALL    SLBERR 
EMSGSR  Y6 


GET  NUMBER  OF  ALLOCATIONS 

AND  NUMBER  OF  LIBRARIES 

ADD  THEM  TOGETHER 

ARE  WE  AT  THE  MAXIMUM  ALREADY? 

IF  CS,  YES 


CLEANUP  AFTER  AN  ERROR 
ALREADY  14.  ALLOCS/LIBRS 
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81 
85 
86 
87 
88 
89 
90 
91 
92 
95 
91  000000 

95  000000 

96  000001 

97  000010 

98  000012 
99 

100 

101 

102  000016 

103 

101 

105 

106  000022 

107 

108 

109 

110  000026 

111 

112 

113 

111 

115 

116 

117 

118  000032 

119  000C31 

120  000036 

121  000012 

122  000016 

123  000052 
121  000056 
125 

126 

127 

128 

129 

130  000062 

131 

132 

133 

131 

135  000061 

136  C00070 
137 

138 
139 


$ALB  -  ALLOCATE   LIBRARY   BLOCK 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

SLBIAS,    $LBADR=DFSCR1PT0R  ADDRESS 


012701 

103125 
010067 


000001 
OOOOOOG 


tALB:: 


010067  OOOOOOG 


005022 
005022 
010267 
005062 
005062 
005062 
005062 


OOOOOOG 

000011 

000030 

000011 

000060 


MOV 
CALL 
BCS 
MOV 

#BLKS1Z,R1 
$ALN18 
101$ 
RO.LBLK 

.IF  DF 

M$$MGE 

MOV 

RO, SLBIAS 

.IF  DF   R$$11M 

SWSTKS 

10$ 

.ENDC 

CALL 

$MAPX 

.IFF 

MOV 

R0,R2 

.ENDC 

CLR 
CLR 
MOV 
CLR 
CLR 
CLR 
CLR 

(R2)  + 
(R2)  + 
R2,$LBADR 
12. (R2) 
21. (R2) 
36. (R2) 
18. {R2) 

.IF  DF 

CALL 

.ENDC 

R$$11D  :  I$$AS 
a(SP)*- 

ALLOCATE  1  32.  WORD  BLOCK 
USE  NON-UMR  POOL  SPACE 
IF  CS,  FAILURE 
SAVE  LIBRARY  BLOCK  ADDRESS 


SET  DESCRIPTOR  BIAS 


10$: 


RETURN 


ERROR  CONDITION 


Ion 


000001 


CALL    $L8ERR 
EMSGSR  VI 


.END 


;*  ENTER  KERNEL  MODE 


;♦  MAP  TO  THE  LIBRARY  BLOCK 


COPY  LIBRARY  BLOCK  ADDRESS 


*  NO  NEXT  BLOCK  IN  LIST 

*  NO  DESCRIPTORS  IN  BLOCK  YET 
«  SET  DESCRIPTOR  ADDRESS 

*  INDICATE  NO  OTHER  LIBRARIES 


;•  CALL  CO-ROUTINE  TO  RESTORE  MAPPING 


CLEANUP  AFTER  AN  ERROR 

LIBRARY  BLOCK  ALLOCATION  FAILURE 
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UBA  -  GET  UNLOAD  BLOCK  ADDRESS 


535  000732 

032723  000001 

536  000736 

001770 

537  000740 

112304 

538  000742 

112305 

539  000744 

060405 

540  000746 

006305 

541  000750 

006305 

542  000752 

060503 

543  000754 

000761 

544  000756 

024343 

545  000760 

010304 

546  000762 

066704  OOOOOOG 

547  000766 

020400 

548  000770 

101003 

549  000772 

550  000776 

000402 

551 

552 

553 

554  001000 

011211 

555  0010C2 

001341 

556 

557 

558 

559  001004 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575  001006 

005767  OOOOOOG 

576  001012 

001041 

577 

578 
579 
580  001014 

012701  000001 

581  001020 

582  001024 

103435 

583 

584 

585 

586  001026 

587 

588 

589 

590  001032 

591  001036 

010203 

40$: 


50$: 


60$: 


BIT 

BEQ 

M0V8 

MOVB 

ADD 

ASL 

ASL 

ADD 

BR 

CMP 

MOV 

ADD 

CMP 

BH] 

CALL 

BR 

.IFT 

MOV 
BNE 


RETURN 


(R3) 


30i 

(R3)+,R4 

(R3)t,R5 

R4,R5 

R5 

R5 

R5,R3 

30i 

-(R3),- 

R3,R4 

$LDA,R4 

R'.jRO 

U8LTA 
60$ 


(R2),(R1) 
20$ 


.]f  DF  R$$11M 


.IFF 

60$: 

CALL 

a(SP)+ 
.ENDC 

.IFF 

50$: 
60$: 

MOV 
BNE 

.IFTF 

(R2),R2 
20$ 

70$: 

TST 
BNE 

.IFT 

$UDA 
100$ 

MOV 

CALL 

BCS 

#8LKS1Z,R1 

$ALN18 

101$ 

Page  11-1 


*  ANY   ALLOCATIONS    THIS  ENTRY? 

*  IF  EQ,  NO 

*  GET  ALLOCATION  COUNT 

*  AND  LIBRARY  COUNT 

*  ADD  THEM  TOGETHER 

*  MULTIPLY  BY  4  (2  WORDS  PER  ENTRY) 

*  ... 

*  SKIP  THE  ALLOC/LIBR  ENTRIES 

*  POINT  BACK  AT  THE  ZERO  WORD 

*  COPY  VIRTUAL  ADDRESS 

*  INCLUDE  UNLOAD  SIZE  NEEDED 

*  IS  THERE  ENOUGH  SPACE  IN  THIS  BLOCK? 

*  IF  HI,  NO 

*  STORE  LINE  TABLE  ADDRESS  IN  UNLOAD  BLOCK 


;*  MAP  TO  NEXT  UNLOAD  BLOCK 
;*  IF  NE,  NOT  AT  END  YET 


;*  BACK  TO  USER  MODE 


;;  RESTORE  MAPPING  AND  RE-ENABLE  TASK  SWITCHING 


GET  NEXT  UNLOAD  BLOCK  ADDRESS 
IF  NE,  NOT  AT  END  YET 


HAS  ADDRESS  BEEN  CALCULATED? 
IF  NE,  YES 


ALLOCATE  1  32.  WORD  BLOCK 
USE  NON-UMR  POOL  SPACE 
IF  CS,  FAILURE 


Tl 
Dl 


.IF  DF   R$$11M 
SWSTK$  100$  ;*  ENTER  KERNEL  MODE 

.ENDC 


CALL    $MAPX 
MOV     R2,R3 


;♦  MAP  TO  JUST  ALLOCATED  BLOCK 
;*  COPY  VIRTUAL  ADDRESS 
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ni6 

1117 

ins 

1119 

1120 

1121 

1122 

112? 

112A 

1125 

1126 

1127 

112H 

112V 

1130 

1131 

1132 

1133 

113^ 

1135 

1136 

1137 

1138 

1139 

llAO 

1141 

1K2 

1K3 

lUA 

lUS 

1146 

11A7 

1U8 

1K9 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 


.SBTTL  DEAC2  -  DEALLOCATE  TO  OUTSIDE  TASK  SPACE 

',«»  -  DEAC2  -  DEALLOCATE  POOL  SPACE  TO  AREA  OUTSIDE  TASK'S  SPACE 

INPUTS: 

RO  =  ADDRESS  OF  THE  CORE  SUfFER  TO  BE  DE-ALLOCATED 

R1  =  LENGTH  OF  THE  CORE  BUFFER 

R2  =  DISPLACEMENT  ADDRESS  (100000  OR  120000) 

R3  =  ADDRESS  OF  CORE  ALLOCATION  LISTHEAD-2 

OUTPUTS: 

R0-R3  =  DESTROYED 

THE  CORE  BLOCK  IS  MERGED  INTO  THE  FREE  CORE  CHAIN  BY  CORE 
ADDRESS  AND  IS  AGLOMERATED  IF  NECESSARY  WITH  ADJACENT  BLOCKS. 


DEAC2: 


20$: 


30$: 


40$: 


50$ 
60$ 
70$ 


.IF  OF  R$$MPL 


ADD 

BIC 

BEQ 

MOV 

MOV 

MOV 

BEQ 

BIC 

BIS 

CMP 

BHIS 

MOV 

MOV 

ADD 

MOV 

BIS 

CMP 

BLO 

CMP 

BLO 

BNE 

MOV 

ADD 

MOV 

MOV 

ADD 

CMP 

BNE 

ADD 

MOV 

MOV 

MOV 

MOV 

RETURN 

TST 
BEQ 


(R3),R1 

(R3)+,R1 

60$ 

R2,-(SP) 

R3,R2 

(R2),R3 

30$ 

#160000, R3 

(SP),R3 

R0,R3 

20i 

R3,(R0) 

R0,-(SP) 

R1,(SP) 

2(SP),-(SP) 

#17777, (SP) 

(SP)+,(SP) 

80$ 

R3,(SP)+ 

70i 

40$ 

(R3)+,(R0) 

(R3),R1 

R2,-(SP) 

R0,(R2) 

(R2),(SP) 

RO,(SP)+ 

50i 

(R2),R1 

(R0),-(R2) 

R2,R0 

R1,2{R0) 

(SP)+,R2 


R3 
40$ 


ROUND  TO  NEXT  BOUNDARY 

CLEAR  EXCESS 

IF  EQ,  NO  BLOCK  TO  RELEASE 

SAVE  DISPLACEMENT 

SAVE  ADDRESS  OF  CURRENT  BLOCK 

GET  ADDRESS  OF  NEXT  BLOCK 

IF  EQ,  END  OF  CHAIN 

CLEAR  CURRENT  MAPPING  DISPLACEMENT 

USE  OUR  MAPPING  DISPLACEMENT 

BLOCK  60  HERE  ? 

IF  HIS,  NO 

ASSUME  NO  AGLOMERATION 

CALCULATE  ADDRESS  OF  NEW  BLOCK 

CALCULATE  END  OF  APR  ADDRESSING 

bigger' THAN  APR  ADDRESSING  RANGE  ? 

IF  LO,  YES 
EQUAL  TO  NEXT  IN  CHAIN  ? 
IF  LO,  DE-ALLOCATION  OVERLAPS 
IF  NE,  NO 

MOVE  LINK  WORD  TO  BLOCK  RELEASED 
MERGE  TWO  BLOCKS 
SAVE  ADDRESS  OF  PREVIOUS  BLOCK 
ASSUME  NO  AGLOMERATION 
CALCULATE  ADDRESS  OF  NEXT  BLOCK 
EQUAL  TO  BLOCK  BEING  RELEASED  ? 
IF  NE,  NO 
MERGE  TWO  BLOCKS 

MOVE  LINK  WORD  TO  PREVIOUS  BLOCK 
SET  NEW  ADDRESS  OF  BLOCK 
SET  SIZE  OF  BLOCK  RELEASED 
RESTORE  ADDRESS  OF  LISTHEAD 


INSERT  AT  END  OF  LISTH 
IF  EQ,  YES  -  OKAY 
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TMPERR     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:42 

MACRO  CROSS  REfEREMCE 

MACRO  NAME      REFERENCES 

EMSGSR         *5-59      6-110     6-111      6-112     6-113     6-1U     6-115     6-116     6-117     6-11f 

NTLER$        #5-59'     5-n      5-72      5-75      5-74      5-79      5-80      5-81      5-82      5-83 
5-84 


PAGE  2 

CREf   04.00 

6-113 

6-114 

6-115 

6-116 

6-117 

5-74 

5-79 

5-80 

5-81 

5-82 
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L0C4L    DATA 

155  00013', 

136  000136 

137  OOOKO 

138  000U2 

139  OOOUi 
UO  0OOH6 
U1   000150 
U2 
U3 
UA 
U5 

K6  000152 
U7 
K8 
U9 
150 

151    000154 
152 
153  000000 


i   1* 

00:A 
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TTABS 
TTA8$ 
TTAB$ 
TTABS 
TTA8$ 
TTABS 
TTABS 

X3CH10 
X3CH11 
X2CH01 
X2CH02 
X2CH03 
X2CH04 
X2CH05 

NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 

■  SECONDARr  FILE  INDEX 

VALUE 

INDEX:   .8LKW 

1 

■  MUX/MTP  FLAGS 

FLAGS:   .BLKW 

1 

.PSECT 

100000=MUX,  200=MrP 
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ADDRB,ADDRW,BLKB,BL<W 


60;A 
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671 
672 
673 

674  001500 

675  001506 

676  001510 

677  001512 

678  001 5U 

679  001516 

680  001522 

681  001524 

682  001526 

683  001530 

684  001532 

685  001536 

686  001540 

687  001542 

688  001546 

689  001550 

690  001554 

691  001562 

692  001564 

693  001566 

694  001570 

695  001572 

696  001576 

697  001602 

698  001606 
699 

700 
701 
702 
703 

704  001612 

705  001616 

706  001620 

707  001624 

708  001626 
709 

710 
711 
712 
713 

714  001630 

715  001634 

716  001636 

717  001642 

718  001646 

719  001650 

720  001654 
721 

722 
723 
724 
725 

726  C01656 

727  001662 


012767 
112546 
112524 
112524 
010446 
016404 
010546 
011605 
005C03 
152503 
122703 
001404 
106303 

000767 
005267 
126667 
001360 
005726 
012604 
005726 
005067 
005067 
016703 


017746 
111624 
116624 
005726 


105767 
100005 
016700 
116024 


100000 


177776 


OOOOOOG 


000152' 
000004 


000152' 
000154' 
OOOOOOG 


OOOOOOG 
000001 


000154' 

000152' 
OOOOOOG 


■  SECONDARY  MUX 

FILE  ADDRESS 

000154'  MXPTB: 

MOV 

#100000, FLAGS 

MOVB 

(R5)t,-(SP) 

MOVB 

(R5;+,(R4)t 

wove 

(R5)+,(R4)t 

MOV 

R4,-(SP) 

MOV 

-2(R4),R4 

MOV 

R5,-(SP) 

10$: 

MOV 

(SP),R5 

20$: 

CLR 

R3 

BISB 

(R5)+,R3 

CMPB 

#.E0F,R3 

BEQ 

30$ 

ASLB 

R3 

CALL 

aTABLE-2(R3) 

BR 

20$ 

30$: 

INC 

INDEX 

000152' 

CMPB 

4(SP), INDEX 

BNE 

10$ 

TST 

(SP)  + 

MOV 

(SP)+,R4 

TST 

(SP)  + 

CLft 

INDEX 

CLR 

FLAGS 

MOV 

$MXSIZ,R3 

CALLR 

SAVALC 

■  CURRENT  TIME 

TIME: 

MOV 

aZTIME,-(SP) 

MOVB 

(SP),(R4)t 

MOVB 

1(SP),(R4)* 

TST 

(SPH 

RETURN 


ACTIVE   POLLING  RATIO    (APR) 


112724      177777 


116724     OOOOOOG 


APR: 


1015 


TST8 

FLAGS 

BPL 

101$ 

MOV 

INDEX, RO 

MOVB 

$$APR(R0),(R4)+ 

RETURN 

MOVB 

#-1,(R4)+ 

RETURN 

DEAD  POLLING  RATIO  BYTE 

DPR8:   MOVB    $$DPR,(R4)< 
RETURN 


INDICATE  MUX  EXPANSION 

GET  REPEAT  COUNT 

GET  MUX  TABLE  ADDRESS 

SAVE  OUTPUT  FILE  POINTER 
GET  NEW  OUTPUT  FILE  POINTER 
SAVE  CURRENT  BINARY  FILE  POINTER 
RESTORE  BINARY  FILE  POINTER 
GET  FUNCTION  CODE 

is'jT  END  OF  FILE  ? 

IF  EQ,  YES 

CONVERT  TO  A  WORD  INDEX 

EXPAND  A  FIELD 

GO  TILL  END  OF  FILE 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE  ? 

IF  NE,  NO 

PURGE  BINARY  F^LE  POINTER 

RESTORE  OUTPUT  FILE  POINTER 

PURGE  COUNT 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 

GET  SIZE  OF  MUX  TABLES 

SAVE  ADDRESS  AND  SIZE  IN  UNLOAD  BLOCK 


GET  TIME  SINCE  MIDNIGHT 
STORE  TIME 

CLEAN  UP  STACK 


IS  IT  MTP  EXPANSION  ? 
IF  PL,  NO 

GET  CURRENT  STATION  INDEX 
STORE  APR 

APR  NOT  IN  MPTAB  FILE 


STORE  DPR 


LAA3.01 
LAA3.01 
LAA3.01 
LAA3.01 
LAA3.01 
,♦-4 
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TMF 


'A9 
150 

SlNTl  -  ".iNTI"  ACTION  ROUTINE 

151 

'52 

INPUTS: 

153 

NONE 

154 
155 

OUTPUTS: 

156 

R0,R1, 

R2=DESTR0YED 

157 

SVECTI 

=CURRENT  COPY  OF  $SIZE 

158 

felNTl:: 

'59  00005A 

160  000054 

CALL 

SVFDDM 

MAKE  SURE  IT'S  A  DDM 

161  000060 

012^00 

OOOOOOG 

MOV 

#F1.JN1,R0 

BIT  TO  BE  SET 

162  00006A 

012701 

OOOOOOG 

MOV 

#F1.INT,R1 

BIT  UHICH  MUST  NOT  BE  SET 

163  000070 

005002 

CLR 

R2 

VECTOR  INDEX 

164  000072 

CALLR 

VFVCT 

CHECK  VECTOR  AVAILABILITY 

L  1 
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TMP 


U3 
UA 
1A5 
1A6 
1A7 
U8 
H9 
150 
151 
152 
153 
154 
155 
156 
157 

158  000064 

159  000064 

160  000070 

161  000074 

162  000100 

163  000104 
164 

165  000112 

166  C00120 

167  000122 

168  000126 

169  000130 

170  000134 

171  000136 

172  000142 

173  000144 

174  000150 

175  000154 

176  000156 

177  000162 

178  000166 

179  000172 

180  000176 

181  000202 

182  000206 

183  000210 

184  000212 

185  000214 

186  000220 

187  000222 

188  000224 

189  000230 

190  000232 

191  000240 

192  000242 

193  000244 

194  000250 

195  000254 

196  000<i60 

197  000262 

198  000266 
"99  000272 


SMXPTB  -  ".MXPTB"  ACTION  ROUTINE 

INPUTS: 

$$MUX/$VALUE=FILE  REPEAT  COUNT 
$F1LEN=SEC0NDARY  TEMPLATE  FILE  NAME 

OUTPUTS: 

$MXADD=MUX   TABLE   ADDRESS 
$MXLEN=S]ZE   OF    SECONDARY   TEMPLATE    FILE 
$I»IXSIZ=SIZE   OF   ALL  MUX   TABLES 
R0,R1,R2=DESTR0YED 


SMXPTB: 


012700 

016767 

022767 
103500 
005767 
001474 

103471 

103466 
112722 
116722 
010246 
016746 


016700 
012667 
166700 
012602 
005001 
060001 
005367 
001374 
005400 
010C57 
0050J0 
032767 
001014 
005201 
042701 
010167 

103423 
105267 
010067 
110022 


OOOOOOG 

OOOOOOG  OOOOOOG 
000400  OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


10$: 


OOOOOOG 
OOOOOOG  OOOOOOG 


000001 
OOOOOOG 


OOOOOOG 
OOOOOOG 


20$: 


CALL 

SVFDDM 

CALL 

SVFMUX 

MOV 

#F1.MXT,R0      ; 

CALL 

SVFSPC 

MOV 

S$MUX,$VALUE 

CMP 

#256.,$VALUE 

BLO 

101$ 

TST 

$VALUE         : 

SEQ 

30$ 

CALL 

MAX  14 

BCS 

30$ 

CALL 

$RQ4 

BCS 

30$ 

M0V6 

#. MXPTB, (R2)+ 

MOVB 

$VALUE,(R2)+ 

MOV 

R2,-(SP) 

MOV 

$SIZE,-(SP) 

CALL 

$FJLE 

CALL 

SEVEN 

MOV 

$SIZE,RO 

MOV 

(SP)+,$SIZE 

SUB 

SSIZE,RO 

MOV 

(SP)+,R2 

CLR 

R1 

ADD 

RO.RI 

DEC 

SVALUE 

BNE 

10$ 

NEG 

RO 

MOV 

RO,$MXLEN 

CLR 

RO 

BIT 

#FL.CHA,$FLAGS 

BNE 

20$ 

INC 

R1 

BIC 

*1,R1 

MOV 

R1,$MXSIZ 

CALL 

$ALL16 

BCS 

111$ 

INCB 

$NALL 

MOV 

RO,$MXADD 

MOVB 

R0,(R2)t 

MAKE  SURE  IT'S  A  DDM 

AND  A  MUX  LINE 

MAKE  SURE  THIS  IS  THE  ONLY  OCCURANCE 

66' IT  <UNIT  COUNT>  TIMES 

IS  COUNT  >  256.  ? 

IF  LO,  YES 

IS  COUNT  0  ? 

IF  EQ,  YES 

ALLOW  ONLY  14.  ALLOCATIONS 

IF  CS,  NO  MORE  ALLOWED 

REQUEST  BINARY  FILE 

IF  CS,  NO  ACCESS 

STORE  FUNCTION  CODE 

AND  FILE  REPEAT  COUNT 

SAVE  POINTER  TO  BINARY  INFO. 

SAVE  CURRENT  LINE  TABLE  SIZE 

PROCESS  SECONDARY  TEMPLATE 

AUTOMATIC  WORD  RE-ALIGNMENT 

SAVE  CURRENT  POSITION  IN  BINARY  BUFFER 

RESTORE  SIZE  FROM  START  OF  FILE 

CALCULATE  SIZE  OF  FILE 

RESTORE  POINTER  TO  BINARY  BUFFER 

INITIALIZE  DATA  BASE  SIZE 

CALCULATE  DATA  BASE  SIZE 

BY  <FILE  COUNT>  *  <FILE  SIZE> 

GET  FILE  SIZE  AS  NEGATIVE  LENGTH 

SAVE  MUX  TABLE  LENGTH 

ASSUME  MUX  UPDATE 

MUX  UPDATE  ? 

IF  NE,  YES 

ROUND  UP  TO  MULTIPLE  OF  2 

SAVE  MUX  TABLE  SIZE 
TRY  TO  ALLOCATE  MUX  TABLES 
IF  CS,  ALLOCATION  ERROR 
TALLY  SUCCESSFUL  ALLOCATION 
SAVE  ADDRESS  OF  'TMPVCT' 
STORE  ADDRESS 
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TMP, 


1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE   TMPAC3  -  NTL  TEMPLATE  PROCESSING  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABlE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  TEMPLATE  SYNTAX  TPARS  ACTION  ROUTINES,  PART  3 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  K-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.0C  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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TMP/ 


19A 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20-; 

205  000256 

206 

207 

208 

209  000236 

210  0002A2 

211  000246 

212  000250 

213  000252 
2H  000254 

215  000264 

216  000270 

217  000276 
218 

219 
220 
221 
222 
223 
224 
225  000304 


SCOREI  -  ".CORE"  OPERAND  1  ACTION  ROUTINE 

INPUTS: 

$VALUE=NUM8ER  OF   BYTES  NEEDED 

OUTPUTS: 

$CVAL=NUMBER  OF  BYTES  NEEDED 
$VALUE=DEFAULT  MAPPING  DISPLACEMENT 
$CAPR=APR  NUMBER 


kOREI:: 


.IF  DF  M$$MGE 


016700  OOOOOOG 
062700  000077 
006000 
000241 
006000 

010067  OOOOOOG 

012767  140000  OOOOOOG 

112767  000006  OOOOOOG 


MOV 

$VALUE,RO 

ADD 

#77, RO 

ROR 

RO 

CLC 

ROR 

RO            ; 

ASR$ 

4,R0 

MOV 

RO,$CVAL 

MOV 

#.BASEB,$VALUE  . 

MOVB 

#DFAPR,$CAPR 

.IFF 

MOV 

$VALUE,$CVAL 

.ENDC 

RETURN 

GET  EXPRESSION  VALUE 

ROUND  UP  TO  NEXT  MULTIPLE  OF  100 


SET  NEU  EXPRESSION  VALUE 
SET  DEFAULT  MAPPING 
SET  DEFAULT  APR  NUMBER 


COPY  EXPRESSION  VALUE 


L  4. 
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TMI 

cot 


113 

1U  000000 


.PSECT 


L  5 
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Tf 


6A 

65 

66 

000001 

67 

000002 

68 

000003 

69 

000013 

70 

OOOOOA 

71 

000005 

72 

000031 

73 

000003 

74 

0OOC02 

.SBTTL   CONSTANT  DEFINITIONS 


X3UL0 
X3WHI 
X3BL0 
X3BHI 
X2WL0 
X2WHI 
X28L0 
X2BHI 
X2BLK 


1 

2 

3 

11. 

I, 

5 

1 

3 

2 


LOW  VALUE  FOR  .X3CHW  OPERATOR 
HIGH  VALUE  FOR  .X3CHW  OPERATOR 


LOW  VALUE  FOR 
HIGH  VALUE  FOR 
LOW  VALUE  FOR 
HIGH  VALUE  FOR 
LOW  VALUE  FOR 
HIGH  VALUE  FOR 


X3CHB  OPERATOR 
.X3CHS  OPERATOR 
X2CHW  OPERATOR 
.X2CHW  OPERATOR 
X2CHB  OPERATOR 
X2CHB  OPERATOR 


BLOCK  SIZE  -  .X2CHW  SPECIAL  CASE  (SORRr) 


L     6 

TMPAC6  -  NTL    TEMPLATE   PROCESSIN  MACRO  V05.03b   Saturday   29-Jun-85   00:40 
inr&i    DATA 


Page  7 


K  7 

TMPAC6  -  NTL  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85  00:^0  Page  17 

IVFLLC  -  VERIFY  LLC 


497 
^98 
499 
500 
501 
502 
503 
504 
505 
506 
507 

508  001156 

509  001156  032767  OOOOOOG  OOOOOOG 

510  001164  001005 

511  001166 

512  001174 


.SBTTL   SVFLLC  -  VERIFY  LLC 

SVFLLC  -  VERIFY  LLC  ACTION  ROUTINE 

INPUTS: 

NONE 

OUTPUTS: 

ERROR  UNLESS  LLC  BEING  LOADED 


feVFLLC: 


10$: 


BIT  #FL.LLC,$FLAGS 

BNE  10$ 

EMSG$  89 
RETURN 


IS  THIS  AN  LLC? 

IF  NE,  YES 

LLC  OPERATOR  IN  DDM/DLC  TEMPLATE 


L  7 
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226 

+ 

227 

LINK 

-  LINK  NEWLV  ALLOCATED  LIS 

228 

229 

INPU'S: 

230 

L8LK=LieRARY  BLOCK  ADDRES 

231 

232 

OUTPUTS: 

235 

NONE 

234 

- 

235  000306 

236 

237  000306 

LINK: 

017^00 

OOOOOOG 

MOV 

aNTLPT,RO 

238  000312 

SWSTKS 

30$ 

239  000316 

CALL 

$MAPX 

240  000322 

016211 

OOOOOOG 

MOV 

.CXLBR(R2),(R1)  ; 

241  000326 

001006 

BNE 

20$ 

242  000330 

010011 

MOV 

R0,(R1) 

243  000332 

016762 

000000' 

OOOOOOG 

MOV 

LaLK,.CXLBR(R2)  ; 

244  000340 

000405 

BR 

30$ 

245  000342 

011211 

10$: 

MOV 

(R2),(R1) 

246 

247  000344 

005712 

20$: 

TST 

(R2) 

248  000346 

001375 

BNE 

10$ 

249  000350 

250 

251  000354 

016712 

000000' 

MOV 

LeLK,(R2) 

30$: 

RETURN 

GET   NETLDR   DATA  BLOCK  BIAS 

*  ENTER  KERNEL  MODE 

*  MAP  TO  THE  DATA  BLOCK 

*  AND  TO  THE  FIRST  LIBRARY  BLOCK 

*  IF  NE,  THERE  IS  AT  LEAST  ONE 

*  RE-MAP  TO  THE  DATA  BLOCK 

»  SET  FIRST  LIBRARY  BLOCK  ADDRESS 
* 

*  MAP  TO  THE  NEXT  LIBRARY  BLOCK 

*  IS  THIS  THE  LAST  BLOCK  IN  LIST? 

*  IF  NE,  NO 

*  SET  LAST  LIBRARY  BLOCK  ADDRESS 
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AttfHK=  000000 

fl«IT2  =  «•*«**  GX 

LD$LP  = 

000000 

N$$MCP= 

000001 

T$$KMG= 

000000 

A$SCPS-  OOOOOG 

FM.2  =  000000 

L$$ASG= 

000000 

N$$MLL= 

000001 

T$$MIN= 

000000 

A$$PRI=  000000 

F$$LVL=  000001 

L$SDRV= 

000000 

N$$HOV= 

000010 

V$$CTR= 

001000 

A$STRP=  000000 

G$$TPP=  000000 

L$$P11= 

000001 

N$$NCT= 

000001 

X$$DBT= 

000000 

BLKSIZ=  000001 

GS$TSS=  000000 

L$$nR= 

000000 

N$$PEM= 

000001 

$ALB 

OOOOOORG 

C$$CKP=  000000 

G$$TTK=  000000 

M$$CR8= 

000124 

P$$P45= 

000000 

$ALN18= 

*»«**♦  cx 

C$$ORE=  OOOAOO 

G$$WRD=  000000 

M$$CRX= 

000000 

P$$URD= 

000000 

$ELINE= 

*«**♦♦  GX 

C$SRSH=  177564 

I$$RAR=  000000 

l«l$$FCS= 

000000 

Q$$OPT= 

000010 

SERRYI 

OOOOOOR 

D$$BUG=  1775K 

I$$RDN=  000000 

M$$MGE= 

000000 

R$$DER= 

000000 

$LBADR= 

*♦♦♦*«  GX 

D$SISI<;=  000000 

K$$CNT=  177546 

N$$NEI= 

000000 

R$$K11= 

000001 

$LBERR= 

*♦*♦♦»  GX 

D$$L11=  000001 

K$$CSR=  177546 

M$$OVR= 

000000 

R$$SND= 

000000 

$LBIAS= 

*•*♦«*  GX 

0$tYNC=  000000 

K$$LDC=  000000 

N$$ACC= 

000001 

R$$nM= 

000000 

$MAPX  = 

******  GX 

D$tYNM=  000000 

K$$TPS=  000074 

N$$BUF= 

000001 

S$$WRG= 

"29092 

$REP.C= 

******  GX 

E$$XPR=  000000 

LBLK  =  ♦***»•  GX 

N$$LDV= 

000001 

S$$YSZ= 

007600 

$TERR  = 

******  GX 

.  ABS.  000000 

000 

(RW,1,GBL,A8S,0VR) 

000076 

001 

(RW,I,LCL,REL,C0N) 

DATA    000052 

OOr' 

(RW,D,LCL,REL,C0N) 

Errors  detected: 

0 

•*♦  Assembler  sta 

i  s  t  i  c  s 

Work   file  reads 

0 

Work   file  writes 

0 

Size  of  work  f i le 

101A9  Words  (  40  Pages) 

Size  of  core  pool 

14440  Words   (  55  Pages) 

Operating  system 

RSX- 

-11M/PLUS 

002 
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Tl 
Ul 


1 
2 
? 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE   TMPALT  -  TEMPLATE  ALLOCATION  ROUTINES 
.IDENT  /V05.00/ 

COPyRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  LINE  TABLE  ALLOCATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-llM-PLUS  VI .1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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UBA  -  GET   UNLOAD  BLOCK   ADDRESS 


592  001040 
595  001 0A2 
59A  001 04A 

595  001050 

596  001052 

597  001056 

598  001062 

599  001066 

600  001072 

601  001074 

602  001100 

603  001104 

604  001106 
605 

606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 

627  001110 

628  001112 

629  001114 
630 

631  001116 

632 

633 

634 

635 

636  001120 

637  001124 

638  001130 


005023 

010304 

012705  000037 

005024 


75$: 


016711 
016211 
001006 
016711 


000604' 
OOOOOOG 

000604' 


010062  OOOOOOG 

000404 

011211 


80S: 


005712 
001375 
010012 


75$: 


80$: 


90$: 


100$: 


CLR 

MOV 

MOV 

CLR 

SOB 

CALL 

MOV 

MOV 

BNE 

MOV 

MOV 

BR 

MOV 

.IFF 

MOV 

CALL 

BCS 

MOV 

CLR 

MOV 

MOV 

CLR 

SOB 

CALL 

MOV 

MOV 

BNE 

MOV 

BR 

MOV 

.ENDC 

TST 
BNE 
MOV 

RETURN 


(R3)  + 

R3,R4 

*3l.,R5 

(R4)  + 

R5,75$ 

UBLTA 

NL8LK,(R1) 

.CXUNL(R2),(R1) 

90$ 

NLBLK,(R1) 

R0,.CXUNL(R2) 

106$ 

(R2),(R1) 


*8LKSIZ,R1 

$ALL18 

101$ 

R0,R3 

(R^)  + 

R3,R4 

#3l.,R5 

(R4)  + 

R5,75$ 

UBLTA 

aNTLPT.RI 

.CXUNL(R1),R2 

90$ 

R0,.CXUNL(R1) 

106$ 

(R2),R2 


(R2) 

80$ 

R0,(R2) 


ERROR  CONDITION 
101$: 


CALL 

XIC8 

CALL 

XLI 

EMSG$R 

86 
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•  CLEAR  LINK  TO  NEXT  UNLOAD  BLOCK 

*  ZERO  THE  REMAINDER  OF  THE  32.  WORD  BLOCK 


STORE  LINE  TABLE  ADDRESS  DATA 
MAP  TO  NETLDR  DATA  BLOCK 
SET  FIRST  UNLOAD  BLOCK  ADDRESS 
IF  NE,  THERE'S  AT  LEAST  ONE 
RE-MAP  TO  NETLDR  DATA  BLOCK 
SET  FIRST  UNLOAD  BLOCK  ADDRESS 

MAP  TO  NEXT  UNLOAD  BLOCK 


ALLOCATE  1  32.  WORD  BLOCK 

IF  CS, 'failure 

COPY  UNLOAD  BLOCK  ADDRESS 

CLEAR  LINK  TO  NEXT  UNLOAD  BLOCK 

ZERO  THE  REMAINDER  OF  THE  32.  WORD  BLOCK 


STORE  LINE  TABLE  ADDRESS  DATA 
GET  NETLDR  DATA  BLOCK  ADDRESS 
GET  FIRST  UNLOAD  BLOCK  ADDRESS 
IF  NE,  THERE'S  AT  LEAST  ONE 
SET  FIRST  UNLOAD  BLOCK  ADDRESS 

GET  NEXT  UNLOAD  BLOCK  ADDRESS 


IS  THIS  THE  LAST  UNLOAD  BLOCK? 

IF  NE,  NO 

SET  LAST  DATA  BLOCK  ADDRESS 


RELEASE  KB 

RELEASE  LINE  TABLE 

UNLOAD  BLOCK  ALLOCATION  FAILURE 


L  11 


TMPALT  -  TEMPLATE  ALLOCATION  RO  MACRO  V05.03b  Saturday  29-Jun-85  00:41  Page  12 


K  12 

TMPALT   -   TEMPLATE   ALLOCATION  RO  MACRO  V05.O3b   Saturday   29-Jun-85   00:0      Page   18-1 
DEAC2   -  DEALLOCATE    TO  OUTSIDE    TASK    SPACE 

1173  80$:  CRASH  ; ;    ILLEGAL   DE-ALLOCATION 

11?^  .ENDC        ;    DF    RStMPl 

1175 

1176 

1177  000001  .END 
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TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

EEEEEEEEEE 

XX     XX 

PPPPPPPP 

TTTTTTTTTT 

MM 

MM 

PPPPPPPP 

EEEEEEEEEE 

XX      XX 

PPPPPPPP 

MMM^ 

MMMM 

PP      PP 

EE 

XX      XX 

pp    pp 

MMMM 

MMMM 

PP      PP 

EE 

XX      XX 

pp    pp 

MM 

*^M  MM 

PP      PP 

EE 

XX  XX 

pp    pp 

MM 

m    m 

PP      PP 

EE 

XX  XX 

pp    pp 

MM 

MM 

PPPPPPPP 

EEEEEEEE 

XX 

PPPPPPPP 

MM 

MM 

PPPPPPPP 

EEEEEEEE 

XX 

PPPPPPPP 

MM 

MM 

PP 

EE 

XX  XX 

pp 

MM 

MM 

PP 

EE 

XX  XX 

pp 

MM 

MM 

PP 

EE 

XX      XX 

pp 

MM 

MM 

PP 

EE 

XX      XX 

pp 

MM 

MM 

PP 

EEEEEEEEEE 

XX      XX 

pp 

MM 

MM 

PP 

EEEEEEEEEE 

XX      XX 

pp 

ssssssss 

ITTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

3S 

SS5SSS 

SSSSSS 

ss 

S3 

ss 

SS 

LLLLLLLLLL 
LLLLLLLLLL 

ssssssss 
ssssssss 
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TMPEX2  - 

NIL  EXPANSION 

ROUTINES 

$TMEX2  - 

EXPAND 

BINARY 

INFO 

155 

156 

157 

158 

159 

160 

161 

162 

165 

16-; 

165 

166 

i67 

168 

169 

170 

171 

172 

000000 

173 

000000 

005067 

000152' 

174 

000004 

005067 

000154' 

175 

000010 

016705 

OOOOOOG 

176 

000014 

016704 

OOOOOOG 

177 

000020 

026705 

OOOOOOG 

178 

000024 

001407 

179 

000026 

005003 

180 

000030 

152503 

181 

000032 

001404 

182 

000034 

106303 

183 

000036 

184 

000042 

000766 

185 

000044 

,03b  Saturday  29-Jun-85  00:42  Page  7 

.S8TTL  $TMEX2  -  EXPAND  BINARY  INfO 

$TMEX2  -  EXPAND  BINARY  INFORMATION  INTO  REAL  INFORMATION 

THIS  ROUTINE  IS  CALLED  AFTER  THE  ASCII  TEMPLATE  FILE  HAS  BEEN  READ 
AND  PROCESSED  INTO  THE  BINARY  FILE.  THE  BINARY  INFORMATION  IS  EXPANDED 
AND  STORED  AT  THE  LOCATION  CONTAINED  IN  "$ADDR". 

INPUTS: 

$BIN=START  OF  BINARY  INFORMATION 
$PTR=END  OF  BINARY  INFORMATION 
$ADDR=ADDRESS  OF  WHERE  REAL  DATA  GOES 


ZERO  INDEX  VALUE 

AND  SPECIAL  FLAGS 

START  OF  BINARY  DATA 

START  OF  REAL  DATA 

IS  IT  END  OF  BINARY  DATA? 

IF  EQ,  YES 

GET  FUNCTION  CODE 

IF  ZER6!'eND  of  FILE 
CONVERT  TO  A  WORD  INDEX 
EXPAND  ONE  FIELD 
KEEP  LOOPING  UNTIL  END 


20$: 


OUTPUTS: 

ALL  REGISTERS=DESTROYED 

MEX2:: 

CLR 

INDEX 

CLR 

FLAGS 

MOV 

$B1N,R5 

MOV 

$ADDR,R4 

$:    CMP 

$PTR,R5 

BEQ 

20$ 

CLR 

R3 

BISB 

(R5)+,R3 

BEQ 

20$ 

ASLB 

R3 

CALL 

aTABLE-2(R3) 

BR 

10$ 

RETURN 
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ADDRB.AODRW.BlKB.BUW 


728 
729 
730 
731 

732  001664 

733  0016^0 
734 


016724  OOOOOOG 


;  DEAD  POLLING  RATIO  WORD 

6pR'.:   MOV     $$DPR,(R4)* 
RETURN 


STORE  DPR 
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00:43 
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60 
61 
62 
63 
6^ 
65 
66 
67 
68 
69 
70 
71 

n 

73 

7^ 

75  000000 

76 

77 

78 

79 

80  000000 

81  000002 

82  000004 

83  000006 
S'!.  000010 

85  000012 

86  000014 

87  000016 

88  000020 

89  000022 

90  000024 

91  000026 

92  000030 

93  000032 

94  000034 

95  000036 

96  000040 

97  000042 

98  000044 

99  000046 

100  000050 

101  000052 

102  000054 

103  000056 

104  000060 

105  000062 

106  000064 

107  000066 

108  000070 

109  000072 

110  000074 

111  000076 

112  000100 

113  000102 
1U  000104 

115  000106 

116  000110 


•  *** 

•  LOCAL  MACROS 


DEFINE  TRANSFER  TABLE  ENTRY 


.MACRO 

TTABS   AA, 

.WORD 

BB 

.ENDM 

TTABS 

•  *  ** 

;  LOCAL  DATA 

;  *** 

.PSECT 

DAM.D 

•  TRANSFER  TABLE  USING  FUN( 

TABLE:   TTABS 

ADDR8,NULL 

TTABS 

ADDRW.NULL 

TTABS 

BLKB.POPI 

TTABS 

BLKU.POPI 

TTABS 

BYTE.POPl 

TTABS 

CORE.XCORE 

TTABS 

CSR.PDPI 

TTABS 

CTIM.NULL 

TTABS 

DVCHA.NULL 

TTABS 

EOF , NULL 

TTABS 

FILE,P0P1 

TTABS 

INT,P0P2 

TTABS 

LI8fi,XLIBR 

TTABS 

LINKS, NULL 

TTABS 

LFILE,P0P3 

TTABS 

LSTHD.NULL 

TTABS 

LTAB,NULL 

TTABS 

MPTAB,P0P3 

TTABS 

MXTAB.POPI 

TTABS 

NOD, NULL 

TTABS 

PRI,NULL 

TTABS 

PRT0V,POP1 

TTABS 

SCOM,XSCOM 

TTABS 

SECSfi.NULL 

TTABS 

SLN8,NULL 

TTABS 

SLNW.NULL 

TTABS 

STNB.NULL 

TTABS 

STNW,NULL 

TTABS 

UNB.NULL 

TTABS 

UNU.NULL 

TTABS 

W0fiD,P0P2 

TTABS 

APR.POPI 

TTABS 

DPRB.POPI 

TTABS 

DPRW,P0P2 

TTABS 

TIME,P0P2 

TTABS 

MXPTB.XMXP 

TTABS 

PECHA,NULL 

;  EXPANSION  ROUTINE  IS  FIRST  ENTRY 
;  CLEANUP  ROUTINE  IS  SECOND  ENTRY 


L  16 
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IMF 


166 
167 
•:68 
16=5 

$INT2  -  ".INT2"  ACTION  ROUTINE 

INPUTS: 

170 

NONE 

171 

172 

OUTPUTS: 

173 

R0,R1.R2=DESTROYCD 
SVECrJ^CURRENT  COPY  OF  SSIZE 

174 

V5 

176  000076 

hNT2:: 

177  000076 

CALL    SVFDDM 

MAKE  SURE  IT'S  A  DDM 

178  000102 

012700 

OOOOOOG 

MOV     #F1.IN.,  ,R0 

BIT  TO  BE  SET 

179  000106 

012701 

OOOOOOG 

MOV     #F1.INT,R1 

BIT  WHICH  MUST  NOT  BE  SET 

■80  000'" 2 

012702 

000002 

MOV     #2,R2 

VECTOR  INDEX 

181  0C0'16 

CALLR   VFVCT 

CHECK  VECTOR  AVAILABILITY 

'MPA..  _  -  N-^  'EMPu 
if  TinN  t^niiT  !NE5 


Tt  PRCCESSIN  MAfRO  .05.0!b  Satjrday  29-Jun-8: 


n    1 
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TMP 


200  000274 

201  000276 

202  000300 

203  000306 
20A  000312 

205  0003H 

206  000320 
207 

208 
209 

210  000322 

211  000330 


000500 
110022 
062767 

103402 
112712 


000002     OOOOOGG 


OOOOOOG 


SWAB 

RO 

M0V8 

R0,(R2)t 

ADD 

*2,$SIZE 

CALL 

$RQ1 

BCS 

30$ 

MOVB 

*.EOF,(R 

30$: 

RETURN 

;•  ERROR 

CONDITIONS 

101$: 

EMSG$R 

22 

111$: 

EMSG$R 

KX 

ADJUST  DATA  BASE  SIZE 

REQUEST  BINARY  HLE  AGAIN 

IF  CS,  NO  ACCESS 

STORE  END  OF  FILE  FUNCTION  CODE 


FILE  COUNT  TOO  L/^RGE 
RESOURCE  ALLOCATION  FAILURE 
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TMP 


56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
81, 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
■■05 
106 
107 
108 
109 
no 
111 
n2 


*** 

LIBRARY  MACROS 


000000 


000000 


.MCALL  NTLERS 

*** 

LOCAL  DATA 
*** 

.PSECT  DATA.D 

.NLIST  BEX 

SYMBOL  NAME  IN  ASCII 
ASYM:    .BLK8   6 


000006  000000  000000 

000012 

000016 


000020  000032' 

000022  000054' 

000024  000112' 

000026  000150' 

000030  000176' 


000032 
000054 
000112 
000150 
000176 


GLOBAL  SYMBOL  LOOKUP  CONTROL  BLOCK 


G8LK 
65YM 
GVAL 


.WORD 
.BLKW 
.BLKW 


0,0 
2 

1 


GLOBAL   SYMBOL   LOOKUP  ERRORS 


GETAB: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


$ERR27 
$ERR29 
$ERR30 
$ERR31 
$ERR32 


UNDEFINED  SYMBOL 
OPEN  FAILURE 
READ  FAILURE 
READ  OVERFLOW 
BAD  STB  FILE 


(WARNING) 


ERROR  MESSAGES 

.ENABL  LC 


NTLERS  , 27, 2A,$TWARN,REP2A,$ELINE,<Undefined> 

NTLERS  ,29,4,STERR,SPRV.N,SFN0UT,<0pen  Failure  (-*»♦.)> 

NTLERS  ,30,4,STERR,$PRV.N,SFNOUT,<Read  Failure  (-**♦.)> 

NTLERS  ,31,4,STERR,SREP.P,SFN0UT,<Read  0verflow> 

NTLERS  ,32,4,STERR,SREP.P,$FNOUT,<Format  Error> 

.DSA8L  LC 


ERROR  MESSAGE  FORMAT  STRINGS 


000224    052 
000254    052 


040 
040 


124 

123 


FHT2A: 
FMT4: 


.ENABL 

.NLIST 

.ASCIZ 

.ASCIZ 

.EVEN 

.DSABL 

.LIST 


LC 
BEX 


Template  —  Symbol  • 
Symbol  Table  File  ~ 


LC 
BEX 


M    3 
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TMP- 


227 
228 
229 
230 
251 
232 
233 
23A 
235 
236 
237 
238 
259 
2^0 

2'!.1 

242  000306 

2A3  000306 

24A 

2A5 

2A6  000312 

247 

248 

249 

250 

251  000316 

252  000320 

253  000322 

254  000350 

255  000332 

256  000336 

257  000342 

258  000344 

259  000350 
260 

261 

262  000352 

263  000360 

264  000362 

265  000366 
266 

267 

268  000370 

269  000374 

270  000376 

271  000402 

272  000406 
275  000410 
274  000412 
275 

276 

271   000414 

278  000420 

279 

280 

281  000424 

282  0004  30 
283 


SCORE 


.CORE"  ACTION  ROUTINE 


INPUTS: 

$CVAL=NUMBER  OF  BLOCKS  (MAPPED)  OR  BYTES  (UNMAPPED)  NEEDED 
$VALUE=MAPPING  DISPLACEMENT  TO  BE  USED 

fl.UMR  IN  SFLAGI  INDICATES  WHETHER  MEMORY  SHOULD  BE  ALLOCATED 
FROM  UMR  OR  NON-UMR  MEMORY 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

R0,R1,fi2=DESTROYED 

SNALL  INCREMENTED  IF  ALLOCATION  SUCCEEDED 

F1.ERR  SET  IF  ALLOCATION  FAILED 


SCORE:: 


105451 
005000 
052767 
001402 
005067 
016701 
001417 

105434 


052767 
001005 

000402 


103425 
105267 
112722 
110022 
000500 
110022 


116722 
116722 


116722 
116712 


OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 


OOOOOOG  OOOOOOG 


OOOOOOG 
OOOOOOC 


OOOOOOG 
000001 G 


OOOOOOG 
000001G 


CALL 


SVFLV1 


MAKE  SURE  IT'S  THE  PRIMARY  TEMPLATE 


.IF  DF 

MSSMGE 

CALL 

SRQ7 

REQUEST  BINARY  FILE 

.IFF 

CALL 

SRQ5 

DITTO 

.ENDC 

BCS 

20S 

IF  CS,  NO  ACCESS 

CLR 

RO 

ASSUME  ZERO  LENGTH 

BIT 

#FL.CHA 

SFLAGS 

MUX  CHARACTERISTICS  UPDATE  ONLY 

BEQ 

2S 

NO  .. 

CLR 

SCVAL 

YES  ..  NO-OP  THE  ALLOCATION 

2$: 

MOV 

SCVAL.R 

GET  BLOCK  COUNT 

BEQ 

15$ 

IF  ZERO,  DON'T  ALLOCATE 

CALL 

MAX  14 

ALLOW  ONLV  14.  ALLOCATIONS 

BCS 

20$ 

IF  CS,  NO  MORE  ALLOWED 

.IF  DF 

MSSMGE 

BIT 

#F1.UMR 

.SFLAGI 

ALLOCATE  UMR  OR  NON-UMR  MEMORY 

BNE 

5$ 

BR  IF  ALLOCATE  UMR  SPACE 

CALL 

SALN18 

ALLOCATE  18  BIT,  NON-UMR  STORAG 

BR 

10$ 

AND  PROCESS 

.ENDC 

5S: 

CALL 

$ALL18 

ALLOCATE  18  BIT,  UMR  STORAGE 

lOS: 

BCS 

ALLERR 

IF  CS,  FAILURE 

INC8 

$NALL 

TALLY  SUCCESSFUL  ALLOCATION 

15S: 

M0V6 

#.C0RE1 

200,(R2)+ 

;  STORE  FUNCTION  CODE 

MOVE 

R0,(R2) 

f 

STORE  FIRST  WORD  OF  ADDRESS 

SWAB 

RO 

MOVB 

R0,(R2) 

+ 

... 

.IF  DF 

MSSMGE 

MOVB 

SVALUE, 

(R2)t 

•  STORE  SECOND  WORD  OF  ADDRESS 

MOVB 

SVALUE+ 

1,(R2)+ 

.ENDC 

MOVB 

SCVAL, (R2)» 

;  STORE  COUNT  (FOR  CLEANUP  ONLY) 

Move 

SCVAL+1 

,(R2) 
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TM! 
LO 


116 

+ 

117 

$ABfl 

-  ACCESS  BINARY/LIBRARY  FILE  ACTION  ROUTINE 

118 
119 

INPUTS: 

120 
121 
122 

$FILEN= 

BINARY  FILE  NAME 

OUTPUTS: 

123 

$BFALL= 

ALLOCATION  SIZE  I^ 

32.  WORD  BLOCKS 

124 

$BFLBN= 

■LOGICAL  BLOCK  NUMBER 

125 

$BFPTR= 

-BINARY  BUFFER  POINTER 

126 

$BFXFR= 

^TRANSFER  SIZE  IN  BYTES 

127 

F2.FIL 

CLEARED  IF  ANY  ERROR  OCCURS 

128 

129  000000 

;ABF]:: 

130  000000 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#F2.FIL,$FLAG2   . 

WAS  VALID  FILE  NAME  SEEN? 

131  000006 

132 

133 

001436 

BEQ 

20$ 

IF  EQ,  NO 

.IF  DF 

M$$MGE 

134  000010 

012767 

140000 

OOOOOOG 

MOV 

#.8ASEB,$VALUE  , 

SET  DEFAULT  MAPPING 

135  000016 

112767 

000006 

OOOOOOG 

MOVB 

#DFAPR,$CAPR 

AND  DEFAULT  APR  NUMBER 

136 

.ENDC 

138  000024 

CALL 

$VFLV1 

MAKE  SURE  IT'S  THE  PRIMARY  TEMPL 

139 
140 

.IF  DF 

M$$MGE 

141  000030 

CALL 

$R07 

REQUEST  BINARY  BUFFER 

142 

.IFF 

143 

CALL 

$RQ5 

DITTO 

144 
U5 
146  000034 

.ENDC 

103420 

BCS 

15$ 

IF  CS,  NO  ACCESS 

147  000036 

010267 

OOOOOOG 

MOV 

R2,$8FPTR 

SAVE  BUFFER  POINTER 

148  000042 

005067 

OOOOOOG 

CLR 

$BFALL 

NO  FILE  SIZE  YET 

149  000046 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.CHA,$FLAGS 

MUX  CHARACTERISTICS  UPDATE  ONLY 

150  000054 

001013 

BNE 

20$ 

YES  .. 

151  000056 

CALL 

BN.OPN 

OPEN  BINARY  FILE,  GET  ATTRIBUTES 

152  000062 

103405 

DCS 

15$ 

IF  CS,  FAILURE 

153  000064 

CALL 

BN.LBL 

PROCESS  LABEL  BLOCK 

154  000070 

103005 

BCC 

20$ 

IF  CC,  SUCCESS 

155  000072 

10$: 

CALL 

$CLDEQ 

CLOSE  BINARY  FILE 

156  000076 

042767 

OOOOOOG 

OOOOOOG 

15$: 

BIC 

#F?.FIL,$FLAG2 

CLEAR  VALID  FILE  NAME  FLAG 

157  000104 

20$: 

RETURN 
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TA 

.SBTTL  LOCAL  DATA 

•  *** 

;  LOCAL  DATA 

•  *** 


000000  .PSECT  DATA.D 

.NLIST  BEX 

MAPPING  DISPLACE.^ENTS  AND  APR  NUMBERS 

.IF  H  M$$MGE 

000000  000000  020000  040000  MAPP:   .WORD  0,20000,40000,60000,100000,120000,140000,160000 

000020     000     001     002  MAPBYT:  .BYTE  0,1,2,3,4,5,6,7 

.ENDC 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
10? 

104  000030 
105 
106 
107 
108  000042 


000006 


DEFAULT  APR   NUMBER 

.IF    DF      M$$M6E 
DFAPR=«.BASEB/2>&77777>/10000 
.ENDC 


•  FILE   NAME    IN  ASCII    BLANK    FILLED    TO  NINE    CHARACTERS 
ASCII:      .BLK8        10. 

•  LOCAL    COPY   OF    SFLAGS 
'.FLAGS:    .BLKW        1 
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SVXLLC    -   VERIFY   NOT    AN  LLC 

51A  .SBTTL      SVXLLC   -   VERIFY  NOT   AN  LLC 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

527  001176  032767     OOOOOOC   OOOOOOG   ivXLLC:    BIT  #FL.D[)MI  FL  .DLC,$FLAGS 

528  001204  001003  BNE  10$ 

529  001206  EMSG$       90 

530  00121A  10$:  RETURN 
531 
532  000001  .END 


IVXLLC   -   VERIFY  NOT   AN   LLC 

INPUTS: 

SFLAGS  -  FLAGS  WORD 

OUTPUTS: 

ERROR  IF  LLC  BEING  LOADED 


IS  IT  DDM  OR  DLC? 
BR  IF  YES 
ELSE  ERROR 


n  7 
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255 

25A 

255 

256 

257 

258 

259 

260 

261 

262 

263 

26A 

265 

266  000356 

267 

268 

269  000362 

270 

271 

272  000366 

273  000372 
27^  000376 
275 

276 

277  00040A 

278 

279 

280 

281 

282  000406 

283  000414 

284  000416 

285  00042A 
286 

287 


BASE  -  CHECK  ALREADY  RESIDENT  LIBRARY  FOR  CORRECT  BASE  ADDRESS 

INPUTS: 

$LBIAS,$L8ADR=DESCRIPT0R  ADDRESS 
$CAPR=USER'S  APR  NUMBER 

OUTPUTS: 

NONE 


016700  OOOOOOG 


BASE: 


016702 
116267 


126767 
001403 


OOOOOOG 
OOOOOOG  OOOOOOG 


OOOOOOG  OOOOOOG  10$: 
20$: 


.If  DF 
MOV 

SWSTK$ 


CALL 

MOV 

MOVB 


RETURN 
CALL 


CMP8 
BEQ 
EMSG$ 
RETURN 

.ENDC 


M$$MGE 
$LaiAS,RO 


.IF  DF 

10$ 

.ENDC 


$MAPX 
$LBADR,R2 


R$$11M 


LB.APR(R2),$BFBAS 

.IF  DF  R$$11M 

.IFF 

a(SP)+ 

.ENDC 

$8F8AS,$CAPR 

20$ 

Y2 


GET  DESCRIPTOR  BIAS 
*  ENTER  KERNEL  MODE 


MAP  TO  LIBRARY  DESCRIPTOR 
;*  GET  DESCRIPTOR  VIRTUAL  ADDRESS 
SAVE  BASE  APR 


BACK  TO  USER  MODE 
;  RE-ENABLE  TASK  SWITCHING 


BUILT  FOR  CORRECT  APR? 

IF  EQ,  YES 

PRINT  WARNING  MESSAGE 


n  8 
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CREATED  BV  MACRO  ON  29-JUM-85  AT  00:41 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE          REFERENCES 

L  9 

PAGE  1 

CREF   04.00 


BLKSIZ 

FMT2 

FM.2 

I$$AS 

LBLK 

M$$MGE 

R$$11D 

R$$11M 

S$$BAS 

$ALB 

$ALN18 

SELINE 

SERRYl 

SLBADR 

SLBERR 

SLBIAS 

SMAPX 

SREP.C 

STERR 


000001 

****** 

000000 

****** 
****** 
000000 

****** 

000000 

****** 

000000 

****** 
****** 

000000 
****** 
****** 
****** 
****** 
*  ■.'*** 
****** 


GX 


GX 


RG 
GX 
GX 

R 
GX 
GX 
GX 
GX 
GX 
GX 


#5-79 
5-72 

#5-72 
6-126 

*6-98 
5-79 
6-126 
6-104 
5-72 

#6-94 
6-96 
5-72 

#5-72 

•6-120 
6-135 

•6-102 
6-110 
5-72 
5-72 


6-95 

5-80 
5-72 

6-136 


6-100 


TMPAC8 


CREATED  BY  MACRO  ON  29-JUN-85  AT  00:41 
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5A 

55 

56 

57 

58 

59 

60 

61  000000 

62 

63 

bt, 

65 

66 

67 

68 

69  000000 


.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 


.MCALL   EMSG$R,NTLER$,ASR$,EMSG$,SLTDF$ 
.MCALL  NKRDF$,SAVRG,RESRfi 


SLTDFS 

.IF  DF   R$$MPL 

.MCALL   CTBDFS.KRBDFS 


DEFINE  SLT  OFFSETS  AND  SYMBOLS 


CTBDFS 
KRBDFS 
.ENDC 

NKRDFS 


;  DEFINE  CTB  OFFSETS 
;  DEFINE  KRB  OFFSETS 


DEFINE  NETWORK  KRB  OFFSETS 
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6^.0 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 

652  001136 

653  001136 

654  001140 

655  001144 
656 

657  001150 

658  001154 

659  001156 

660  001160 

661  001162 

662  001164 
663 

664  001166 

665  001172 

666  001174 

667  001200 

668  001202 


.SBTTL     GETIND  -  GET  PDV  INDEX 

GETIND  -  GET  PDV  INDEX 

INPUTS: 

SPDVA  =  PDV  ADDRESS  OF  CURRENT  PROCESS 

OUTPUTS: 

PDVX  =  PDV  INDEX  Of  CURRENT  PROCESS 


010446 

017746  OOOOOOG 

017704  OOOOOOG 

022467  OOOOOOG 
001403 
005316 
003373 

005726 

167704  OOOOOOG 

005744 

010467  000000' 

012604 


GETIND: 


10$: 


20$: 


MOV 

R4,-(SP) 

MOV 

aPDVNM,-(SP) 

MOV 

aPDVTA,R4 

CMP 

(R4)+,$PDVA 

BEQ 

20$ 

DEC 

(SP) 

BGT 

10$ 

CRASH 

TST 

(SP)  + 

SUB 

aPDVTA,R4 

TST 

-(R4) 

MOV 

R4,PDVX 

MOV 

(SP)+,R4 

RETURN 

SAVE  R4 

GET  #  OF  PDV  ENTRIES 

GET  ADDRESS  OF  PDV  MAPPING  TABLE 

IS  THIS  OUR  PDV  ? 

IF  EO,  YES 

ELSE,  COUNT  DOWN  PDV'S 

IF  GT,  MORE  TO  GO 

ELSE,  CRASH  -  CAN'T  FIND  PDV  ENTRY 

CLEAN  UP  STACK 

CALCULATE  PDV  INDEX 

SAVE  PDv" INDEX 
RESTORE  R4 
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AlOCB  = 

»••♦••  GX 

I  TAB 

00000',  R 

002  L$$ASG= 

000000 

P$$WRD= 

000000 

A$$CHK,= 

000000 

I$SRAR= 

000000 

L$$DRV= 

000000 

P.REL  = 

******   GX 

A$$CPS= 

000000 

I$$RDN= 

000000 

L$$P11= 

000001 

Q$$OPT= 

000010 

A$tPRI= 

000000 

KRBAL 

000276R 

L$$11R= 

000000 

RTSPC 

000224R 

A$$TRP= 

000000 

K$$CNT= 

177546 

L.COST 

000015 

R$$DER= 

000000 

BLKS1Z= 

000001 

K$$CSR= 

177546 

L.CTL 

000012 

R$$K11= 

000001 

C$$CKP= 

000000 

K$$LDC= 

000000 

L.CVA 

177776 

R$$SND= 

000000 

C$$ORE= 

000400 

K$STPS= 

000074 

L.DDM 

000002 

R$$11M= 

000000 

C$$RSH= 

17756A 

K.CSR 

000002 

L.DDS 

000004 

SF.ACT= 

000200 

DEACB  = 

•♦••♦*  GX 

K.PRI 

000000 

L.DLC 

000003 

SF.ENA= 

000100 

D$$BUG= 

T7751'i 

K.VCT 

000001 

L.DLM 

000006 

SF.LPB= 

000004 

DS$IS<= 

000000 

LDSLP  = 

000000 

L.DLS 

20921s 

SF.MFL= 

000040 

D$tLl1= 

000001 

LF.ACT= 

100000 

L.FLG 

000000 

SF.PAC= 

000020 

D$$YNC= 

000000 

LF.BRO= 

000400 

L.KRBA 

000016 

SF.REA= 

000010 

D$$YNM= 

000000 

LF.BUT= 

000007 

L.LEN  = 

0022?? 

SF.SER= 

000001 

E$$XPR= 

000000 

LF.ENA= 

002000 

L.MPF 

000022 

SF.SVC= 

000002 

FL.CHA= 

»«»»»*  GX 

LF.LPB= 

001000 

L.NMST 

000020 

SF.UNL= 

000040 

FL.[)DM= 

»*«»**  GX 

LF.MDC= 

000100 

L.NSTA 

000014 

SLTMA  = 

******  GX 

FL.LLC= 

******   GX 

LF.MFL= 

004000 

L . OWNR 

000021 

SLTNM  = 

******   GX 

FMTO 

000554R 

002 

LF.MTP= 

000020 

L.UNT 

000013 

S$$WRG= 

000000 

FMT1 

000555R 

002 

LF.PAC= 

000200 

M$$CRe= 

000124 

S$$VSZ= 

007600 

FMT3 

000560R 

002 

LF.RDY=: 

040000 

H$$CRX= 

000000 

S.COST 

000001 

FM.O  = 

000000 

LF.REA= 

010000 

M$$FCS= 

000000 

S.FL6 

000000 

FM.1   = 

000000 

LF.SER= 

000040 

M$$MGE= 

000000 

S.LEN 

02222^ 

FM.3  = 

000000 

LF.TIM= 

000010 

H$$NET= 

000000 

S.NMST 

000002 

FM2TMP 

000002R 

002 

LF.UNL= 

020000 

M$$OVR= 

000000 

S . OUNR 

000003 

F$tL\/L  = 

000001 

LF.X2P= 

000000 

NLBLK 

000604R 

002  r$$KI»IG= 

000000 

FT.INT= 

******   GX 

LN.CLO= 

000000 

NTLPT  = 

«*«**»  GX 

T$$MIN= 

000000 

F1.IN1= 

**««»*  GX 

LN.DUM= 

000005 

N$$ACC= 

000001 

UBA 

00061 6R 

F1.1N2= 

»♦♦♦♦»  GX 

LN.L0A= 

000004 

N$$8UF= 

00000- 

UBLTA 

001204R 

F1.IN3= 

******   GX 

LN.LOO= 

000003 

N$$LDV= 

000001 

V$$CTR= 

001000 

n.LFI  = 

******   GX 

LN.OAU= 

000003 

N$$MCP= 

000001 

XICB 

001312R 

F1.LFL= 

**«»•«  GX 

LN.OFF= 

000001 

N$$MLL= 

000001 

XLT 

001272R 

Fl .MPL= 

••••♦*  GX 

LN.ON  = 

000000 

N$$MOV= 

000010 

X$$DBT= 

000000 

Fl  .MPT  = 

******   GX 

LN.OOP= 

000004 

N$$NCT= 

000001 

ZF.PSE= 

******   GX 

GETIND 

001136R 

LN.OPE= 

000001 

N$$PEM= 

000001 

Z.AVL  = 

»«****  GX 

G$$TPP= 

000000 

LN.REF= 

000002 

PDVNM  = 

*»*«*«  GX 

Z.FLG  = 

«*.♦*»  GX 

G$$TSS= 

000000 

LN.SER= 

000002 

PDVTA  = 

******   GX 

$ADDR  = 

******   GX 

G$STTK= 

000000 

LN.STA= 

000017 

PDVX 

OOOOOOR 

002  $ALN18= 

******   GX 

G$$WRD= 

000000 

LN.SUB= 

000360 

P$$P45= 

000000 

$ALPR0= 

♦*»«»•  GX 

HEADR  = 

♦•**♦•  GX 

LN.TRI= 

000006 

.  AB5. 

177776 
001502 

000 
001 

{RU,I,GBL,A8S,0VR) 
(RW,I,LCL,REL,CON) 

DATA 

000606 

002 

fRW,D,LCL,REL,CON) 

Errors 

detected : 

0 

♦»♦  Assembler  statistics 


Work  file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  12273  Words   (  48  Pages) 

Size  of  core   pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


$DEAC2= 

$DEA16= 

JERR33 

$ERR34 

$ERR35 

$ERR36 

$ERR37 

$ERR84 

$ERR86 

$ERR9B 

$ERR9C 

$ERR9Y 

$FLAGS= 

$FLAG1= 

$IC8AD= 

$ICBLN= 

$ICBSZ= 

$KRBLN= 

$LDA  = 

SMAPX  = 

$NALL  = 

$NLIB  = 

$NVECT= 

$PCB  = 

$PDVA  = 

$PRAVL= 

$REP.P= 

$SIZE  = 

SSLTA  = 

$TERR  = 

STMALT 

STMCHK 

$TWE  = 

IUBIAS= 

$UDA  = 

$$CSR  = 

$$PRI  = 

$$VECT= 

.CXUNL= 

.DEA16 


»»*«»♦  GX 

******  GX 

00001 2R 

000044R 

0001 12R 

0001 50R 

00021 6R 

000260R 

000322R 

000372R 

000432R 

000472R 

******  GX 

*♦*»*»  GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

OOOOOORG 

000450RG 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
001372R 


SYfTMPALT!v2;[132,134]TMPALT/CR/-SP^SY:ri,1]RSXMCM.SML/ML,[130,110]NETLlB/ML,[130,10]RSXMCM/PA;1,C132,10]TMPALT 


002 
002 
002 
002 
002 
002 
002 
002 
002 
002 


TMPALT 


CREATED  BY     MACRO     ON  29-JUN-85   AT   00:41 
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n  12 


TMPEXP  -  NIL  TEMPLATE  EXPANSION  MACRO  V05.03b  Saturday  29-Jun-85  00:42  Page  1 
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1 
2 
3 

5 
6 

7 

8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
52 
33 
54 
35 
56 
57 
58 
39 
40 
41 
42 
43 
44 
45 
46 
LI 
48 
49 
50 
51 
52 
53 
54 


.TITLE   TMPEXP  -  NTL  TEMPLATE  EXPANSION  PROCESSING 
.IDENT  /V05.00/ 

COPrRlGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION; 

NTL  -  LINE  TABLE  EXPANSION  FRONT  END 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V5.0 
DECNET-llM-PLUS  VI. 0 

5.00  16-APR-82 

DECNET-11M  V5.1 
DECNET-llM-PLUS  VI. 1 

4.00     07-NOV-85 

DECNET-11M  V4.0 
DECNET-llM-PLUS   V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V5.0 
DECnet-Micro/RSX  Vl.O 
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AD0RB,ADDRW,3L<B,BL<W 


187 
188 
189 
190 
191 
192 
19? 
19A 

195  O0OOA6 

196  00005A 

197  000056 

198  000062 

199  00006A 

200  000070 
201 

202 
203 
20A 

205  000072 

206  000100 

207  000102 

208  00010A 

209  000110 

210  000112 

211  00011A 

212  000120 
213 

21A 
215 
216 

217  000122 

218  00012A 

219  000126 

220  000130 

221  000132 
222 

223 
22A 
225 

226  0001 3A 

227  000136 

228  0001A0 

229  000U2 

230  0001AA 


.SBTTL  ADDR8,ADDRW,BLKB,BLKW 
*** 
EXPANSION  ROUTINES 

*** 


032767 
00U03 
11672A 


LOCAL   PHYSICAL    STATION  ADDRESS    (BYTE) 

OOOOOOC  OOOOOOG  ADDRB 

OOOOOOG 

Ht lUNN 
11272A  \imi  10$:    MOVB    *-l,(RA)t       ;  LSAD  NOT  VALID  FOR  LLC 


BIT 

BEQ 

MOVB 

RETURN 

MOVB 

RETURN 


#FL.DDMIFL.DLC,$FLAGS  ;  IS  IT  A  DDM  OR  DLC? 

10$  ;  BR  IF  NO 

$$LSAD,(R4)t    ;  STORE  LOCAL  STATION  ADDRESS 


032767 
001A05 
005003 
156703 
01032A 


LOCAL  PHYSICAL  STATION  ADDRESS  (WORD) 


OOOOOOC  OOOOOOG  ADDRW: 
OOOOOOG 
01272A   177777         10$: 


BIT 

BEQ 

"LR 

3ISB 

MOV 

RETURN 

MOV 

RETURN 


112500 
10502A 
105300 
001375 


112500 
005021 
105300 
001375 


ZERO  BYTE(S) 


BLKB: 
10$: 


MOVB 

CLfiB 

DECS 

BNF 

RETURN 


BLKW: 
10$: 


MOVB 
CLR 
DEC8 
BNE 

RETURN 


#FL.DDM1FL.DLC,$FLAGS  ;  IS  IT  A  DDM  OR  DLC? 


;ER0  WORD(S) 


10$ 

R3 

$$LSAD,R3 

R3,(RAW 

#-l,(RA)t 


(R5)t,R0 
(R4)t 
RO 
10$ 


(R5)+,R0 
(R«)t 
RO 
10$ 


BR  IF  NO 

GET  LOCAL  STATION  ADDRESS 

STORE  IT 

LSAD  NOT  VALID  FOR  LLC 


GET  BYTE  COUNT 

STORE  A  ZERO  BYTE 

LOOP  BETWEEN  1  AND  256.  TIMES 


GET  WORD  COUNT 

STORE  A  ZERO  WORD 

LOOP  BETWEEN  1  AND  256.  TIMES 


N  U 
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TMPEX2   - 

NTL   E) 

X3CM 

736 

737 

738 

739 

7^0 

741 

001672 

742 

001676 

743 

744 

745 

746 

001700 

747 

001704 

748 

749 

750 

751 

001706 

752 

001712 

755 

754 

755 

756 

001714 

757 

001720 

NTL  EXPANSION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85 

.S8TTL  X3CH 


^   15 

00:4 


2  Page  16 


016724  OOOOOOG 


016724  OOOOOOG 


116724  OOOOOOG 


758 
^59 
760 

761  001722 

762  001726 
763 

764 
765 

766  001730 

767  001734 
768 

769 
770 

771  001736 

772  001^42 
773 

774 
775 

776  001744 

777  001750 
778 

779 
780 

781  001752 

782  001756 
783 

784 
785 

786  001760 

787  001764 
788 

789 
790 

791  CC1766 

792  00^772 


116724  OOOOOOG 


116724  OOOOOOG 


116724  OOOOOOG 


116724  OOOOOOG 


116724  OOOOOOG 


116724  OOOOOOG 


i1o724  OOOOOOG 


'16724  OOOOOOG 


DEFAULT  BLOCK  SIZE 

X3CH01:  MOV     $X3[;8S,(R4)t 
RETURN 

MAXIMUM  BLOCK  SIZE 

X3CH02:  MOV     IX3M8S,(R4)t 
RETURN 

DEFAULT  WINDOW  SIZE 

X3CH03:  MOVB    $X3DWS,(R4)t 
RETURN 

MAXIMUM  WINDOW  SIZE 


X3CH04:  MOVB 

RETURN 

CALL  TIMER 

X3CH05:  MOVB 

RETURN 

CLEAR  TIMER 

X3CH06:  MOVB 

RETURN 

RESET  TIMER 

X3CH07:  MOVB 

RETURN 

RESTART  TIMER 


$X3MWS,(R4)+ 


$X3CAL,(R4)+ 


$X3CLR,(R4)t 


$X3RES,(R4)t 


X3CH08:  MOVB    $X3RST,(R4)+ 
RETURN 

MAXIMUM  CLEAR  VALUE 

X3CH09:  MOVB    $X3MCL,(R4)t 
RETURN 

MAXIMUM  RESETS  VALUE 

X3CH10:  MOVB    $X5MRE,tR4)» 
RETURN 

MAXIMUM  RESTARTS  VALUE 

X3CH11:  MOVB    $X3MRS,(R4W 
RETURN 


STORE  DEFAULT  BLOCK  SIZE 


STORE  MAXIMUM  BLOCK  SIZE 


STORE  DEFAULT  WINDOW  SIZE 


STORE  MAXIMUM  WINDOW  SIZE 


STORE  CALL  TIMER 


STORE  CLEAR  TIMER 


STORE  RESET  TIMER 


STORE  RESTART  TIMER 


STORE  MAXIMUM  CLEAR  VALUE 


STORE  MAXIMUM  RESETS  VALUE 


STORE  MAXIMUM  RESTARTS  VALUE 
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00:1 


3  Page  5-1 


117  000112 

118  OOQiU 

119  000116 

120  000120 

121  000122 

122  00012'!. 

123  0C0126 

124  000130 

125  000152 

126  000134 

127  000136 

128  OOOKO 

129  000K2 

130  000U4 


151 
132 
133 
154 
135 


0OOU6 
000150 


OOOOCO 


TTAB$ 
TTAB$ 
TTAe$ 
TTABS 
TTA8$ 
TTAB$ 
TTA8$ 
TTAB$ 
TTAB$ 
TTA8$ 
TTABS 
TTAB$ 
TTABS 
TTABS 
TTABS 
TTA8S 


.PSECT 


X5CH01 
X3CH02 
X5CH03 
X3CH04 
X3CH05 
X3CH06 
X5CH07 
X3CH08 
X5CH09 
X3CH10 
X3CH11 
X2CH01 
X2CH02 
X2CH05 
X2CH04 
X2CH05 


.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 
.NULL 


TFMP!  ATF    FRROR    fl  F    MAfRn    «nS.n3h    "iflturdav    29- 


M  16 

Jun-85   00:43 


Paae  6 


MCAf-  -   N'L    lEMPLA'E    PR0(E3SIN  MArRQ 
Ai-TION  ROuUNES 


K  1 

V05.03b  Saturday  29-Jun-8:   "-38  Page  12 


185 
184 

$INT3  -  ".INT?"  ACTION  ROUTINE 

185 
■St 
■87 
■88 
189 
190 
191 

INPUTS: 

NuNE 

OUTPUTS: 

R0,R1,H2=DESTROyED 
$VECT3=CURRENT  COPY  Of  $S!ZE 

192 

193  000122 

194  000122 

195  000126 

196  000132 

197  000136 

198  000'42 

012700 
012701 
012^02 

OOOOOOG 
OOOOOOG 
000004 

;INT5:: 

CALL    SVFDDM 
MOV     #M.IN3,R0 
MOV     #F1.JNT,R1 
MOV     #4,R2 
CALLR   VFVCT 

MAKE  SURE  IT'S  A  DDM 

BIT  TU  BE  SET 

BIT  WHICH  MUST  NOT  BE  SET 

VECTOR  INDEX 

CHECK  VECTOR  AVAILABILITY 

N  1 


ArilON  ROUTINES 
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00:39 


TMF 


215 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
250 
231 
232 
233 
23A 
235 
236 
237 


MAXU   -   CHECK   FOR  NO  MORE    THAN   U.    ALLOCATIONS 

INPUTS: 

$NALL  =  NUMBER  Of  ALLOCATIONS 
INLIB  =  NUMBER  OF  LIBRARIES 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 
RO  =  DESTROYED 


000336 

000336  116700  GOOOOOG 

000342  010046 

000344  116700  OOOOOOG 

000350  062600 

000552  022700  000015 

000356  103401 

000360 


000362 


MAX14: 


MOVB 

$NALL,RO 

MOV 

RO,-(SP) 

MOVB 

$NLI8,R0 

ADD 

(SP)+,RO 

CMP 

#13.,R0 

BCS 

101$ 

RETURN 

;  ERROR 

CONDI TIOM 

101$: 

EMSGSR 

KY 

GET  NUMBER  OF  ALLOCATIONS 

SAVE  IT 

GET  NUMBER  OF  LIBRARIES 

ADD  THE  TWO 

ARE  WE  AT  THE  MAXIMUM  ALREADY 

IF  CS,  NO  MORE  ALLOWED 


ONLY  14.  ALLOCATIONS/LIBRARIES  ALLOWED 
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SYMBOL    TABLE    UK   AND   EXTENSION 


115 
114 
115 
116 
117  00030A  125  124  102     STBEXT:    .ASCIZ        ST8  ' 

00050'     000 
118 

119  .EVEN 

120 
121  000000  .PSECT 


N  3 
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TMP 


284 

285  00043A  06276?  000004  OOOOOOG 

286 

287 

288 

289 

290  00O44'>  20$ 

291 

292 

293 

29A 

295  00044A 


.IF  OF  M$$MGE 

ADD     #4,$SIZE 

.IFF 

ADD     #2,$S1ZE 

.ENDC 

RETURN 


;  ERROR  CONDITION 
ALLERR:  EMSGSR  26 


ADJUST  DATA  BASE  SIZE 
ADJUST  DATA  BASE  SIZE 


RESOURCE  ALLOCATION  FAILURE 


N  4 

TMPACA  -  NTl  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturday  29-Jun-85  00:39  Page  9 
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TM 
ER 


159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 


000106  005000 

000110  012701  OOOOOOG 

000114  005002 

000116 

000122 

000126  105777  OOOOOOG 

000132  100403 

000134  052010 

000136  001404 

000140 


000142 
000150 
000154 


BN.OPN  -  OPEN  BINARY  FILE  AND  GET  ATTRIBUTES 


INPUTS; 

$fILEN=8INARY  FILE  NAME 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R0,R1,R2=DESTROYED 


BN.OPN: 


CLR 

RO 

MOV 

*$FILEN,R1 

CLR 

R2 

CALL 

SAZFS 

CALL 

SCLOPE 

TST8 

aSCLIOS 

BMI 

101$ 

BIS 

(R0)+,(R0) 

BEQ 

111$ 

RETURN 


ERROR  CONDITIONS 


101$: 
111$: 


EMSG$R  69 
CALL    $CLDEQ 
EMSG$R  71 


SETUP  ASCIZ  FILE  SPEC 
FOR  [131,5X]FILENAME.TSK 


OPEN  BINARY  FILE 
SUCCESS?  (CLEARS  C-BIT) 
IF  MI,  NO 

IS  FILE  CONTIGUOUS? 
IF  EQ,  NO 


OPEN  FAILURE 
CLOSE  BINARY  FILE 
FILE  NOT  CONTIGUOUS 


L 


N  5 
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ERROR  MESSAGES 


Page  8 


0000A4 
000106 


110 

111 

112 

113 

1U 

115 

116 

117 

11f 

119 

120  000150 

'21   000176 

122  000232 

123 

12A 

125 

126 

127 

128 

129 

130  000262 

131 

132 

133 

134 

135 


.SBTTL     ERROR  MESSAGES 
ERROR  MESSAGES 


.ENABL     LC 


.IF   DF 

NTLERS 

NTLERS 

.ENDC 

NTLERS 

NTLERS 

NTLERS 

.DSABL 


MSSMGE 

,39,2,STWARN,$REP.C,$ELINE,<In\/dlid  Mapping  Register> 

,ZK,2,STFRR,$REP.C,SELINE,<UMR's  Have  Been  Disabled> 


,89, 
,90, 
,91, 
LC 


2,$TERR,$REP.C,SELINE,<LLC  Operator) 
2,STERR,SREP.C,$ELINE,<DDM  or  DLC   Operator) 
2,STERR,SREP.C,$ELINE,<]Uegal   operand) 


ERROR  MESSAGE    FORMAT    STRING 


052 


040 


124      FMT2: 


000000 


.ENABL 

.NLIbT 

.ASCIZ 

.EVEN 

.DSA8L 

.LIST 

.PSECT 


LC 

BEX 

"*  Template 

LC 
BEX 


N     6 
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Symbol  table 


ASCII 

A$$CHK= 

AS$CPS= 

A$tPRl= 

A$$TRP= 

BUFUHP= 

CHECK 

CMODE  = 

C$$CKP= 

C$«ORE= 

C$$RSH= 

DFAPR  = 

D$SBUG= 

DS$ISK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FE.EXT= 

FFN 

FL.CHA= 

FL.DDM= 

FL.DLC= 

FL.LLC= 

FMASK  = 

FMT2 

FM.2  = 

F$$LVL= 

F1.UMR= 

F2.FIL= 

F2.LBR= 

G$STPP= 

.  ABS. 


000030R 

000000 

000000 

000000 

000000 

17235A 

0004AAR 

KOOOO 

000000 

000400 

177564 

000006 

177514 

000000 

000001 

000000 

000000 

000000 

***»*»  Gx 

000430R 

*.»***  GX 
GX 
GX 
GX 
GX 


000262R 

000000 

000001 


000000 


GX 
GX 
GX 


002  G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
KISAR0= 
KISAR6= 
KSARO  = 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
L8.ADR= 
LB.USE= 
LDSLP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
MAPBYT 
MAPP 
MPAR  = 
MPCSR  = 
M$$CRB= 
M$$CRX= 

002  M$$FCS= 
M$$MGE= 
M$$NET= 
h$$OVR= 
NTLPT  = 
N$$ACC= 


000000 

000000 

000000 

000000 

000000 

172340 

172354 

******  GX 

177546 

177546 

000000 

000074 

******  GX 

******  GX 

000000 

000000 

000000 

000001 

000000 

000020R 

OOOOOOR 

172100 

177746 

000124 

000000 

000000 

000000 

000000 

000000 

******  GX 

000001 


N$$8UF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
PIRQ  = 
PMODE  = 
PRO 
PR1 

PR2   = 
PR3 
PR4 
PR5 

PR6  = 
PR7  = 
PS 

P$$P45= 
002  P$$WRD= 
002  QSTRT  --^ 
Q$$0PT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SWR 
S$$URG= 

s$$rsz= 

TPS 
T$$KMG= 


000001 

000001 

000001 

000001 

000010 

000001 

000001 

177772 

030000 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

000000 

000000 

******  GX 

000010 

000000 

000001 

000000 

000000 

177570 

000000 

007600 

177564 

000000 


000000 
001216 
DATA  000502 
Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RU,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


•♦•  Assembler  statistics 


0 


Work  file  reads: 

Work   file  writes:  . 

Size  of  work  file:  11028  Words  (  44  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


Page  18-1 

T$$H1N=  000000 

$FNR50= 

******  GX 

UBMPR  =  170200 

$LBADR= 

******  GX 

UISARO=  177640 

$LBIAS= 

******  GX 

UISAR1=  177642 

SLIBRI 

000106RG 

USARO  =  »♦♦*♦♦  GX 

SLINKS 

000574RG 

V$$CTR=  001000 

SMAPX  = 

******  GX 

X$$DBT=  000000 

SREP.C^ 

******  GX 

X2BHI  =  000003 

$RQ1  = 

******  GX 

X2BLK  =  000002 

$RQ7  = 

******  GX 

X2BL0  =  000001 

SSIZE  = 

******  GX 

X2i-'iHI  =  000005 

STERR  = 

******  GX 

X2..lO  =  000004 

$TWARN- 

******  GX 

X3BHI  =  000013 

SUMROF 

000700RG 

X3BL0  =  000003 

SUMRON 

000622RG 

X3WHI  =  000002 

$VALUE= 

******  GX 

X3WL0  =  000001 

SVFLLC 

001156R 

$AZFS  =  ******  GX 

$VFLV1= 

**w**  GX 

$BFPTR=  ******  GX 

SVXLLC 

001176R 

SCAPR  =  ******  GX 

$X2CHB 

001034RG 

$CAT5  =  ******  GX 

$X2CHU 

000710RG 

$C0RE2  OOOOOORG 

$X3CHB 

001076RG 

$ELINE=  ******  GX 

$X3CHW 

000752RG 

SERRZK  000106R 

002 

.8ASEB= 

140000 

$ERR39  000044R 

002 

.CXLBR= 

******  GX 

$ERR89  0001 50R 

002 

.CXL81= 

******  GX 

$ERR90  0001 76R 

002 

.FLAGS 

000042R    002 

$ERR91  0C0232R 

002 

.LINKS= 

******  GX 

$FILEN=  ******  GX 

.PSTCN= 

******  GX 

$FLAGS=  ******  GX 

.PSTPT= 

******  GX 

$FLAG1=  ******  GX 

.X2CH1= 

******  GX 

$FLAG2=  ******  GX 

.X3C01= 

«**««*  GX 

IB/ML, [130, 10DRSXMCM/PA: 

1,[132,10]TMPAC6 

TMPAC6 
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TMPAC7  -  NIL  TEMPLATE  PROCESSIN  MACRO  V05.03b  Saturda: 


n  8 

29-Jun-85  00:^0  Page  11 


289 
290 
291 
292 
293 
29^; 
295 
296 
297 
298 

299  000A26 

300  000432 
301 

302 

303  0OOA36 

304  000AA2 
305 

306 

307  0004A6 

308  000A52 
309 

310 

311  000A56 

312  000462 

313  000466 

314  000474 

315  000502 

316  000504 
317 

318  000510 
319 


016702 
112722 


116722 
116722 


116722 
116722 


116722 
116712 
062767 
032767 
001015 
016700 


OOOOOOG 
OOOOOOG 


OOOOOOG 
000001 G 


OOOOOOG 
000001 G 


OOOOOOG 
000001G 

000004  OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 


USE  -  INCREMENT  LIBRARY  USE  COUNT 

INPUTS: 

$L8IAS=DESCRIPT0R  BIAS  (MAPPED  ONLY) 
$LBADR=DESCRIPTOR  VIRTUAL  ADDRESS 


OUTPUTS: 

LB. USE, 


USE: 


MOV 
MOVB 

.IF  DF 
MOVB 
MOVB 
.ENDC 

MOVB 
MOVB 

.IF  DF 

MOVB 

MOVB 

ADD 

BIT 

BNE 

MOV 

SWSTKS 


$NLIB  INCREMENTED 

$BFPTR,R2 
#.LIBR,(R2)+ 

M$$MGE 

$L8IAS,(R2)t 

$LBIAS+1,(R2)+ 


$L8ADR,(R2)+ 
$LBADRt1,(R2)+ 

M$$MGE 

$VALUE,(R2)+ 

$VALUEt1,(R2) 

#4,$SIZE 

#FL.CHA,$FLAGS 

20$ 

$L8IAS,R0 

.IF  DF   R$$11M 

10$ 

.ENDC 


GET  BINARY  BUFFER  POINTER 
STORE  FUNCTION  CODE 


STORE  DESCRIPTOR  BIAS 


320  000514 

CALL 

$MAPX 

321  00052C 

016702 

OOOOOOG 

MOV 

$L8ADR,R2 

322  000524 

105262 

OOOOOOG 

INCB 

LB.USE(R2) 

323 

.IF  DF  R$$11M 

324  000530 

RETURN 

325 

.IFF 

326 

CALL 

a(SP)t 

327 

.ENDC 

328 

.IFF 

329 

CLRB 

(R2)  + 

330 

CLRB 

(R2) 

331 

ADD 

#2,$SIZE 

332 

BIT 

#FL.CHA,$FLAGS 

333 

BNE 

20$ 

334 

MOV 

$L8ADR,R2 

335 

INC 

LB.USE(R2) 

336 

.ENDC 

337 

338  000532 

105267 

OOOOOOG 

10$: 

INC8 

$NLIB 

339  000536 

20$: 

RETURN 

STORE  DESCRIPTOR  ADDRESS 


;  store  user's  mapping  to  library 

■  adjust'line  table  size 

;  mux  characteristics  update  only  ? 

;  yes  ..  don't  update  use  count 

;  get  descriptor  bias 

;*  enter  kernel  mode 

*  map  to  the  descriptor 

*  get  descriptor  address 

*  update  use  count  (note  -  byte  field) 

«  back  to  user  mode 

*  call  co-routine  to  restore  mapping 


DEPOSIT  ZERO  BYTES 

adjust'line  TABLE  SIZE 
MUX  CHARACTERISTICS  UPDATE  ONLY 
YES  ..  DON'T  UPDATE  USE  COUNT 
GET  DESCRIPTOR  ADDRESS 
UPDATE  USE  COUNT 


TALLY  ALL  ".LIBR' 
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TMPAC8     CREATED  B¥  MACRO  ON  29-JUN-85  AT  00:41 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


M  9 

PAGE  2 

CREF   04.00 


CALL 

6-96 

6-106 

EMSGSR 

#5-59 

6-136 

NTLERS 

#5-59 

5-72 

RETURN 

6-130 

SWSTKS 

6-106 

6-110 


6-135 


••FILE««1D««TMPAC9 
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LOCAL  DATA 
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71 

72 

75 

7A 

75 

76  000000 

77 

78  000000 

79  000002 
80 

81 
82 
85 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
95  OCOOOA 

94  000006 

95  000010 


.S8TTL 

•  *♦* 

•  LOChL  DATA 

•  *** 


LOCAL  DATA 


.PSECT  DATA,D 


PDVX: 
FM2TMP: 


.BLKW 
.BLKU 


OOOOOOG 
OOOOOOC 
OOOOOOC 


,IF  DF  R$$MPL 

KB  ALLOCATION  VARIABLES 

KRBO:    .BLKW  1 

CPU:    .BLKW  1 

BIAS:    .BLKW  1 

K6TMP:   .BLKW  1 

.ENDC  ;  OF  R$$MPL 

INTERRUPT  BITS  TABLE 


I  TAB:    .WORD   F1.IN1 

.WORD   F1.IN11F1.IN2 

.WORD   F1.IN1IF1.IN2IF1.IN5 


PDV  INDEX  OF  PROCESS 
$FMASKt2  TEMP  LOCATION 


BIT  SET  FOR  EACH  CPU  AN  ICB  WAS  ALLOCATED  FOR 
CPU  NUMBER  OF  CURRENTLY  ALLOCATED  ICB 
POOL  BIAS  OF  LAST  ICB  ALLOCATED 
TEMPORARV  $K6TAB  LOCATION 
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UBlTA  -  STORE  LINE  TABLE  ADDRESS 
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670 
671 
672 
673 

674  001 20A 

675  001204 

676  001210 

677  001214 

678  001216 

679  001222 
680 

681  001226 

682  001230 

683  001234 

684  001236 

685  001240 

686  001242 
687 

688  001246 

689  001252 

690  001256 

691  001260 

692  001262 

693  001264 

694  001270 


.SBTTL  UBLTA  -  STORE  LINE  TABLE  ADDRESS 
STORE  LINE  TABLE  ADDRESS  DATA  IN  UNLOAD  BLOCK 


011167 
116723 
105023 
016723 
016713 

005203 
005767 
001404 
105243 
005723 
016723 

010367 
116704 
006304 
006304 
060304 
010467 


OOOOOOG 
000000' 

OOOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 

OOOOOOG 
OOOOOOG 


OOOOOOG 


UBLTA: 


30$: 


MOV 

(R1/,$UBIAS 

MOVB 

PDVX,(R3)t 

CLR8 

(R3)  + 

MOV 

$ADDR,(R3)+ 

MOV 

$S1ZE,(R3) 

INC 

R3 

TST 

$NALL 

BEQ 

30$ 

NCB 

-(fi3) 

ST 

(R3)  + 

MOV 

$NALL,(R3)t 

MOV 

R3,$UDA 

MOVB 

$NALL,R4 

ASL 

R4 

ASL 

R4 

ADD 

R3,R4 

MOV 

R4,$LDA 

RETURN 

SET  UNLOAD  BLOCK  BIAS 

STORE  PDV  INDEX  Of  THIS  PROCESS 

CLEAR  RESERVED  BYTE 

STORE  LINE  TABLE  ADDRESS 

AND  LINE  TABLE  SIZE 

MAKE  IT  AN  ODD  ADDRESS  (TEMPORARY) 

ANY  ALLOCS/LIBRS? 

IF  ZERO,  NO 

INDICATE  SOME  ALLOCS/LIBRS 

SKIP  LINE  TABLE  SIZE 

STORE  ALLOC/LIBR  COUNTS 

SET  UNLOAD  DATA  VIRTUAL  ADDRESS 

GET  NUMBER  OF  ALLOCS 

MULTIPLY  BY  4  (2  WORDS  PER  ENTRY) 

ADD  UNLOAD  BLOCK  ADDRESS 
GIVING  LIBRARY  DATA  ADDRESS 
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TMPAL^           CREATED  BY  MACRO     ON  29-JUN-85   AT   00:41  PAGE   1 

SYMBOl    CROSS   REFERENCE  CREF        04.00 

SYMBOL  VALUE  REFERENCES 

ALOCB  =  »..»..     GX  8-255            9-551 

BLKSIZ  =  000001  #7-U5             11-580 

DEACB  :   .»*...     GX  14-778 

FL.CHA  =   •.»*••      GX  8-170                                             ,    ,             ,,    „, 

FL.DDM  =  .*♦.*«     GX  8-172            8-209             10-446           14-713 

FL.LLC  =   ....*.      GX  8-297 

i;]',             ZWsl  V-Vol  'VMl             7-109             7-110             7-111           *7-122 

FMT5     000560  R  7-105  7-106     7-107     7-108     #7-125 

FM.O  =  000000  #7-112 

FM.l  =  000000  #7-105    #7-104    #7-109    #7-110    #7-111 

hM.3  =  000000  #7-105    #7-106    #7-107    #7-108 

FM2TMP    000002  R  #6-79 

F1  .INT  =  ...♦*•  GX  10-455                       ,„  _, 

F1.IN1  =  ...♦♦.  GX  6-95      6-94      6-95      10-457 

F1.IN2  =  *»♦.♦•  GX  6-94      6-95      10-457 

F1.IN5  =  .««»••  GX  6-95       10-457 

fl.LFl  =  ....**  GX  10-466 

F1.LFL  =  ♦»*♦♦♦   GX  10-464 

F1.MPL  =  »**»♦•  GX  10-460 

F1.MPT  =  *....*  GX  10-462 

GETIND    001156  R  11-497    #12-652 

HEADR  =  .♦*•••  GX  8-272 

I  TAB     000004  R  #6-95  10-4  58 

KRBAL     000276  R  8-177  #9-526 

K.CSR     000002  *9-567 

K.PRI    000000  •9-362 

K.VCT     000001  •9-566 

LF.ACT  =  100000  #5-61 

LF.BRO  =  000400  #5-61 

LF.BWT  =  000007  #5-61 

LF.ENA  =  002000  #5-61 

LF.LPB  =  001000  #5-61 

LF.MDC  =  000100  #5-61 

LF.MFL  =  004000  #5-61 

LF.MTP  =  000020  #5-61 

LF.PAC  =  C00200  #5-61 

LF.RDY    040000  #5-61 

LF.REA  ^  010C:0  #5-61 

LF.SER  =  000040  #5-61 

LF.TIM  =  000010  #5-61 

LF.UNL  =  020000  #5-61 

IF.X2P  =  000000  #5-61 

LN.CLO  =  000000  #5-61 

LN.DUM  =  000005  #5-61 

LN.LOA  =  000004  #5-61 

LN.LOC  =  000003  #5-61 

LN.OAu  =   000005  #5-61 

I  N.OFF  =  000001  #5-61 

LN.ON  =   OOOOOC  #5-61 

LN.OOP  =  000004  #5-61 

LN.OPE  =  000001  #5-61 
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56 
57 
58 
59 
60 
61 
62 
63 
6^ 
65 
66 
67 
68 
69 
70 

71  000000 

72  000000 

73  000006 
7A  000010 

75  OOOOH 

76  000016 

77  000024 
78 

79 
80 
81 

82  000026 

83  00003A 

84  000036 

85  000042 
86 

87 
88 
89 
90 
91 
92 
93 
94 
95 
96 

97  000044 

98  000050 

99  000052 

100  000056 

101  000060 

102  000064 
103 

104  000066 

105 

106 

107 

108  000066 

109  000074 

110  000076 
m  000102 
112 


$TMEXP  -  FRONT  END  FOR  BINARY  TO  REAL  PROCESSING 

THIS  ROUTINE  CALLS  $TMEX2  IF  NO  ERRORS  HAVE  OCCURRED  DURING  TEMPLATE 
PROCESSING  AND  $TMEX3  OTHERWISE. 

INPUTS: 

$ADDR=ADDRESS  OF  WHERE  REAL  DATA  GOES 

$NALL=NUM8ER  OF  ALLOCATIONS  AND  LIBRARIES  THIS  TEMPLATE 

$FLAGS  INDICATES  WHETHER  PROCESS  IS  DLC  ONLV  OR  NOT  (MAPPED  ONLY) 

F1.ERR  SET  IF  ANY  ERRORS  OCCURRED 

OUTPUTS: 

ALL   REGISTERS=DESTROVED 


022767 
001440 
005767 
100416 
032767 
001020 


026727 
103403 

000422 


177777     OOOOOOG 
OOOOOOG 

G  OOOOOOG 


OOOOOOG  120000 


ItMEXP: 


000417 
005767 
001414 

000411 


026727 
103403 

000402 


OOOOOOG 


OOOOOOG  120000 


CMP 
BED 
TST 
BMI 
BIT 
BNE 

#-l,$ADDR 

30$ 

$FLAG1 

20$ 

#FL.CHA,$FLAGS 

25$ 

.IF  DF 

M$$HGE 

.IF  DF 

CMP 

BLO 

CALL 

BR 

R$$11M 

$ADDR, #120000 

10$ 

$TMEX6 

30$ 

.IFF 

CMP 

BHIS 

CALL 

BR 

.ENDC 

$ADDR, #60000 
10$ 

$TI»IEX6 
30$ 

.IFTF 

10$: 
20$: 

CALL 

BR 

TST 

BEQ 

CALL 

BR 

$TMEX2 

30$ 

$NALL 

30$ 

$TMEX3 

30$ 

25$: 

.IFT 

.IF  DF 

CMP 

BLO 

CALL 

BR 

R$$11M 

$ADDR, #120000 

27$ 

$TMEX7 

30$ 

IS  IT  EMPTY  LLC  DATA  BASE? 

BR  IF  YES 

DID  AN  ERROR  OCCUR? 

BR  IF  YES 

MUX  CHARACTERISTICS  UPDATE  ONLY 

YES  .. 


LINE  TABLE  AT  END  OF  PROCESS  PARTITION? 
IF  LO,  NO 

EXPAND  LINE  TABLE  AT  END  OF  PARTITION 
AND  LEAVE 


LINE  TABLE  AT  END  OF  PROCESS  PARTITION? 
BR  IF  NO 

EXPAND  LINE  TABLE  AT  END  OF  PARTITION 
AND  LEAVE 


EXPAND  THE  LINE  TABLE 

AND  LEAVE 

ANYTHING  TO  CLEAN  UP? 

BR  IF  NO 

DO  THE  CLEANUP 


LINE  TABLE  AT  END  Of  PROCESS  PARTITION? 
IF  LO,  NO 

UPDATE  THE  LINE  CHARACTERISTICS 
AND  LEAVE 
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23? 
233 

234 

235  000146 

':    SINGLE  BYTE 

112524 

BYTE: 

MOVB 

(R5)t,(R4)» 

COPY  A  BYTE 

236  000150 

RETURN 

237 

238 

239 
240 
241  000152 

;  CSR 

112500 

CSR: 

MOVB 

(R5)t,R0 

GET  MODIFICATION  VALUE 

242  000154 

066700 

OOOOOOG 

ADD 

$$CSR,RO 
R0,(R4)t 

ADD  IN  CSR  ADDRESS 

243  000-160 

010C24 

MOV 

STORE  THE  RESULT 

244  000162 

RETURN 

245 

246 
247 
248 
249  000164 

;  COUNTER  TIMER 

016724 

OOOOOOG 

CTIM: 

MOV 

$CTIM,{R4)t 

STORE  THE  COUNTER  TIMER  VALUE 

250  000170 

251 

252 

253 

254  000172 

RETURN 

•  DEVICE  CHARACTERISTICS 

005000 

DVCHA: 

CLR 

RO 

ASSUME  OLC 

255  000174 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#fL.DDM,$FLAGS 

IS  IT  A  DDM? 

256  000202 

001414 

BEQ 

10$ 

IF  EQ,  NO 

257  000204 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

IS  IT  A  MUX  DEVICE? 

258  000212 

001410 

BEQ 

10$ 

IF  EQ,  NO 

259  000214 

005767 

000154' 

TST 

FLAGS 

IS  IT  MUX  EXPANSION? 

260  000220 

100020 

BPL 

101$ 

IF  PL,  NO 

261  000222 

016700 

000152' 

MOV 

IMDEX.RO 

GET  SECONDARY  FILE  COUNTER 

262  000226 

006300 

ASL 

RO 

CONVERT  TO  A  DOUBLEWORD  INDEX 

263  000230 

006300 

ASL 

RO 

.  .  . 

264  000232 

022020 

CMP 

(RO)t,(RO)t 

SKIP  OLC  CHARACTERISTICS 

265  000234 

10$: 

SAVRG 

R3 

SAVE  REG 

266  000236 

016703 

OOOOOOG 

MOV 

$SLTSV,R3 

COPY  SLT  ADDRESS 

267  000242 

010463 

17777t 

MOV 

R4a.CVA(R3) 

COPY  FIRST  DEVICE  CHAR.  WORD  VIRTUAL 

ADDR 

268  000246 

RESRG 

R3 

RESTORE  REG 

269  000250 

016024 

OOOOOOG 

MOV 

$$DCHA(R0).(R4)+ 
$$DCHAt2(R0),(R4 

;  COPY  DEVICE  CHARACTERISTICS 

270  000254 

016024 

000002G 

MOV 

t  ;  TWO  WORDS 

271  000260 

RETURN 

m   000262 

012724 

177777 

101$: 

MOV 

#-l,(R4)t 

DDM  DVCHA  NOT  IN  MXTAB  FILE 

273  000266 

012724 

177777 

MOV 

#-l,(R4)t 

274  000272 

RETURN 

275 
276 
277 
278 
279  000274 

;  PROTOCOL  EMULATOR  CHARACTERISTICS 

005000 

PECHA: 

CLR 

RO 

ASSUME  DLC 

280  000276 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.DDM,$FLAGS 

•  IS  IT  A  DDM? 

231  000304 

001413 

BEQ 

10$ 

■  IF  EQ,  NO 

282  000306 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.nuX,$FLAGS 

•  IS  IT  A  MUX  DEVICE? 

283  000314 

001407 

BEQ 

10$ 

■  IF  EQ,  NO 

284  C00316 

005767 

000154' 

TST 

FLAGS 

■   S  IT  MUX  EXPANSION? 

285  000322 

100004 

§st 

10$ 

;   F  PL,  NO 

286  000324 

016700 

000152' 

INDEX, RO 

;  GET  SECONDARY  FILE  COUNTER 

287  000330 

0063CC 

?1^ 

RO 

;  CONVERT  TO  A  WORD  INDEX 

288  000332 

C05720 

(R0)  + 

;  SKIP  DLC  CHARACTERISTICS 

N  U 
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795 

, oa 1 1 L 

AC  tri 

796 
797 
798  00V74 

;  MAXIMUM  WINDOU  SIZE 

005000 

X2CH01: 

CLR 

RO 

799  001776 

032767 

OOOOOOG 

OOOOOOG 

SIT 

#FL.MUX,$fLAGS 

800  002004 

001403 

ngv 

10$ 

801  002006 

016700 

000152' 

INDEX, RO 

802  002012 

006300 

ASL 

RO 

805  002014 

116024 

OOOOOOG 

10$: 

HOVB 

$X2MWS(R0),(R4>* 

804  002020 

805 

806 

RETURN 

•  MAXIMUM  eL0C< 

SIZE 

807 

808  002022 

OO.'OOO 

X2CH02: 

CLR 

RO 

809  002024 

031:767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

810  002032 

00U05 

BEQ 

10$ 

811  002034 

015'00 

000152' 

MOV 

INDEX, RO 

812  002040 

006  500 

ASL 

RO 

813  002042 

016J24 

OOOOOOG 

10$: 

MOV 

$X2M6S(R0),(R4)+ 

814  002046 

815 

816 

817 

818  002050 

RETURN 

;  MAXIMUM  RETRANSMIT  COUNT 

005000 

X2CH03: 

CLR 

RO 

819  002052 

052767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

820  002060 

001403 

BEQ 

10$ 

821  002062 

016700 

000152' 

MOV 

INDEX, RO 

822  002066 

006300 

ASL 

"0 

823  002070 

116024 

OOOOOOG 

10$: 

MOVB 

$X2MRT(R0),(R4)+ 

824  002074 

RETURN 

825 

826 

;  RETRANSMIT  TIMER 

827 

828  002076 

005000 

X2CH04 

CLR 

RO 

829  002100 

052767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

830  002106 

001403 

BEQ 

10$ 

831  002110 

016700 

000152' 

MOV 

INDEX, RO 

832  002114 

006500 

ASL 

"0 

833  002116 

016024 

OOOOOOG 

10$: 

MOV 

$X2RET(R0),(R4)+ 

834  002122 

835 

836 

837 

838  002124 

RETURN 

;  HOLDBACK  TIMER 

005000 

X2CH05 

CLR 

RO 

839  002126 

052767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

840  002134 

001403 

BEQ 

10$ 

841  002'36 

016700 

000152' 

MOV 

INDEX, RO 

842  002142 

006300 

ASL 

RO 

845  002144 

016024 

OOOOOOG 

10$: 

MOV 

$X2HLD(R0),(R4)t 

844  C02150 

RETURN 

845 

846 

000001 

.END 
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ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
;  STORE  MAXIMUM  WINDOU  SIZE 


ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
;  STORE  MAXIMUM  BLOCK  SIZE 


ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
:  STORE  MAXIMUM  RETRANSMIT  COUNT 


ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
;  STORE  RETRANSMIT  TIMER 


ASSUME  NOT  A  MUX  EXPANSION 
IS  IT  A  MUX  DEVICE? 
IF  EQ,  NO 

GET  SECONDARY  FILE  COUNTER 
CONVERT  TO  A  WORD  INDEX 
;  STORE  HOLDBACK  TIMER 


N  15 
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►JIL  TEMPLATE  ERROR  CLE  MAC 

IV 

158 

159 

KO 

U1 

U2 

K3 

H4 

K5 

U6 

U7 

K8 

K9 

150 

000000 

151 

000000 

016705  OOOOOOG 

152 

000004 

026705  OOOOOOG 

153 

000010 

00U07 

15^. 

000012 

005004 

155 

OOOOU 

152504 

156 

000016 

001404 

157 

000020 

106304 

158 

000022 

159 

0C0026 

000766 

160 

000030 
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$TMEX3  -  CLEANUP  BINARY  INFORMATION  AFTER  TEMPLATE  ERROR 

THIS  ROUTINE  IS  CALLED  ONLY  IF  A  TEMPLATE  ERROR  OCCURS.  IT  DEALLOCATES 
ALLOCATIONS  AND  LIBRARY  REFERENCES  MADE  EARLIER  IN  THE  TEMPLATE. 

INPUTS: 

$QIN=START  OF  BINARY  INFORMATION 
$PTR=END  OF  BINARY  INFORMATION 

OUTPUTS: 

ALL  REGISTERS=DESTROYED 


START  OF  BINARY  DATA 

IS  IT  END  OF  BINARY  DATA? 

IF  EQ,  YES 

GET  FUNCTION  CODE 

IF  zer6!'end  of  file 

CONVERT  TO  A  WORD  INDEX 

EXPAND  ONE  FIELD 

KEEP  LOOPING  UNTIL  END 


iTMEX3: 

MOV 

$BIN,R5 

10$: 

CMP 

$PTR,R5 

BEQ 

20$ 

CLR 

R4 

BISB 

(R5)t,R4 

BEQ 

20$ 

ASLB 

R4 

CALL 

aTASLE-2(R4) 

BR 

10$ 

20$: 

RETURN 

N  1 
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200 
201 
202 
20! 
20'. 
205 
206 
207 
208 
209 
210 
2'1 

212  00OU.6 

213  000152 
21'.  000154 

215  000160 

216  000162 
21"  000170 

218  000172 

219  000176 

220  000202 

221  000204 

222  000212 
223 

224  100214 

225  0002'6 
?26  000222 
•27 

228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 

242  000234 

243  000240 

244  000242 

245  000244 
246 

247 
248 
249 
250 
251 
252 
255 
254 
55 


VFVCT  -  CHECK  VECTOR  AVAILABILITY 

INPUTS: 

R0=8IT  TO  BE  SET  IN  SFLAGI 

R1=BITS  WHICH  MUST  NOT  BE  SET  IN  SFLAGI 

R2=D1SPLACEMENT  FROM  FIRST  VECTOR 
OUTPUTS: 

R0,R1,R2=DESTROYfD 

F1.ERR  SET  IF  VECTOR  NOT  AVAILABLE 

SNVECT  INCREMENTED 


105436 
050167 
001054 
016762 
006502 
066702 
026702 
101426 
052767 
001014 

010200 
042700 


VFVCT: 


OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG 


000077 


016001 
021112 
001011 


000000' 


5$: 


4$: 


000244  005267  OOOOOOG 


256  000250 


5$: 
10$: 


CALL 

$VF      C 

10$ 

R1,$FLAG1 

1l1$ 

iNE 

MOV 

$SIZE,$VECT1(R2) 

ASL 

R2 

ADD 

$$VECT,R2 

CMP 

$r'iXVCT,R2 

BLOS 

121$ 

BIT 

#fL.CHA,$FLAuS 

bNE 

5$ 

MOV 

R2,R0 

BIG 

#7^R0 

ASR$ 

5,R0 

.IF  DF  R$$MPL 

TSTB  SNCPU 

BEQ  5$ 

MOV  $URM,SETAF+S.AFAF 

DIRS  #SETAF 

BCS  131$ 

TST  $DSU 

BMI  131$ 

CMP  N0NSI,(R2) 

BEQ  4$ 


.ENDC 

MOV  NSITAB(RO) 

CMP  (R1),{R2) 

BNE  151S 


.IF  DF  RSSMPL 

TSTB    51NCPU 
BEQ     5$ 
RMAFSS 


R1 


.ENDC 


INC 
RETURN 


SNVECT 


MAKE  SURE  THIS  IS  Ti*li   ONLY  OCCURANCE 
IF  CS,  IT  ISN'T 
ARE  ANY  ILLEGAL  BITS  SET? 
IF  NE,  YES 

;  STORE  CURRENT  DISPLACEMENT 
CONVERT  TO  A  DOUBLEUORD  INDEX 
GIVING  REAL  VECTOR  ADDRESS 
LEGAL  VECTOR? 
IF  LOS,  NO 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 
YES  .. 

COPY  VECTOR  ADDRESS 
MAKE  IT  A  MULTIPLE  OF  100 
CONVERT  TO  A  WORD  INDEX 
BY  SHIFTING  RIGHT  5  PLACES 


MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

;  GET  UNIBUS  RUN  MASK 

SET  AFFINITY 

BR  IF  FAILED 

SUCCESSFUL? 

BR  IF  NO 

IS  VECTOR  IN  USE  ? 

IF  NOT  -  BRANCH 


GET  ERROR  LOG  VcCTOR  ADDRESS 
IS  VECTOR  IN  USE? 
IF  NE,  YES 


MULTIPROCESSOR  SYSTEM? 
BR  IF  NO 
RECDVE  AFFINITY 


TAiLY  NUMBER  Of  TlMfS  CALLED 


N  2 
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239 

2';0 

2^1 

2';2 

2A3 

24A 

2A5 

2A6 

2A7 

2A8 

2A9 

250 

251 

252 

253  000370 

25A  000370 

255  00037A 

256  OOOAOO 

257  OOOAOA 

258  000A06 

259  000A1A 
263  0OOA16 
261  000A22 
?62  000A26 

263  000A34 

264  000A36 

265  000A36 

266  0OOAA2 

267  0004A6 

268  0OOA50 

269  0OOA56 

270  OOOA60 

271  0OOA6A 

272  000A70 

273  000A76 
27A  000500 

275  00050A 

276  000506 

277  000512 

278  00051A 

279  000516 

280  000522 

281  00052A 

282  000526 

283  000530 
28A  00053A 

285  0005AO 

286  0005AA 

287  0005A6 

288  000552 

289  00055A 

290  000560 

291  00056A 

292  000566 

293  00057A 
29A  000600 
295  00060A 


$MPT8  -  ".MPTA8"  ACTION  ROUTINE 
SLFILE  -  ".LflLE"  ACTION  ROUTINE 

INPUTS: 

S$MTP/$VALUE=REPEAT  COUNT 
$F[LEN=SbCONDARy  TEMPLATE  NAME 

OUTPUTS: 

R0,R1,R2^DESTR0YED 


$MPT8: 


012700  OOOOOOG 

103500 

032767  OOOOOOG  OOOOOOG 

001A75 

012700  OOOOOOG 

016701  OOOOOOG 

016767  OOOOOOG  OOOOOOG 

00OA15 

012700  OOOOOOG 


SLFILE: 


103A57 
032767 
00U57 
012700 
016701 
022767 
103',52 
005767 
OOU-iO 

103A35 
110022 
116722 
110122 
000301 
110112 
0167A6 


012600 


OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOAOO  OOOOOOG  10$: 

OOOOOOG 


OOOOOOG 


OOOOOOG 


103A-'5 

112712  OOOOOOG 
166700  OOOOOOG 
J0 1005 

160067  OOOOOOG 
005367  OOfi'-OOG 
001373 


20$: 
30$: 


.ENABL  LS8 


CALL 

SVFDLC 

MOV 

#F1.MPT,R0 

CALL 

$VFSPC 

BCS 

40$ 

BIT 

#F1.MPL,$FLAG1   ; 

BED 

101$          ; 

MOV 

#.MPTAB,R0 

MOV 

$MPLD,R1 

MOV 

$$MTP,$VALUE 

8R 

10$ 

MOV 

#F1.LFI,R0     ; 

CALL 

$VFSPC 

BCS 

40$           ; 

BIT 

*F1.LFL,$FLAG1   ; 

BEC 

1 1 1  $ 

MOV 

*.LFILE,RO 

MOV 

SLFLD.Rl 

CMP 

#256.,$VALUE 

BLO 

CTLERR 

TST 

$VALUE         ; 

BEQ 

40$ 

CALL 

$RQ4 

BCS 

40$ 

Move 

R0,(R2)+ 

M0V8 

$VALUE,(R2)+ 
R1,(R2)*- 

MOVB 

SWAB 

R1 

MOVB 

R1,(R2) 

MOV 

$SIZE,-(SP) 

CALL 

SFILE 

CALL 

SEVEN 

MOV 

'SP)+,R0 

CALL 

$RQ1 

BCS 

40$ 

MOVB 

#.E0F,(R2) 

SUB 

SSIZE.RO 

BNE 

30$ 

EMSGSR 

43 

SUB 

RO,$SIZE 

DEC 

$VALUE 

BNE 

20$ 

MAKE  SURE  IT'S  A  DLC 

MAKE  SURE  THIS  IS  THE  ONLY  ONE 

IF  CS, 'error 

HAS  ".MPLHD"  BEEN  SEEN? 

IF   EO,    NO  

SET   FUNCTION_M*F^ 

GET   ".MPLHI»n5TSPLACEMENT 

DO  IT  <STATION  COUNT>  TIMES 


MAKE  SURE  THIS  IS  THE  ONLY  ONE 

IF  CS, "error 

HAS  ".LFLHD"  BcEN  SEEN? 

IF  EQ,  YES 

SET  FUNCTION  CODE 

GET  ".LFLHD"  DISPLACEMENT 

IS  COUNT  >  256.? 

IF  LO,  YES 

IS  COUNT  0? 

IF  EQ,  YES 

request  binary  file 
if  cs,  no  access 
'tore  function  code 
■ [:e  repeat  count 
•  l/  listhead  displacement 


SAVE  CURRENT  LINE  TABLE  SIZE 

PROCESS  SECONDARY  TEMPLATE 

AUTOMATIC  WORD  RE-ALIGNMENT 

RESTORE  SIZE  FROM  START  OF  FILE 

REQUEST  BINARY  FILE  AGAIN 

IF  CS,  NO  ACCESS 

STORE  END  OF  FILE  FUNCTION  CODE 

GIVING  AMOUNT  ADDED  BY  SECONDARY  TEMPLATE 

IF  NE,  OK 

SECONDARY  TEMPLATE  EMPTY 

ADJUST  DATA  BASE  SIZE 

BY  <FILE  C0UNT-1>  •  <FILE  S1ZE> 
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TMF 


125 

t 

12i 

$GLOBL  -  GLOBAL    SYMBOL   ACTION 

125 

126 

INPUT 

i:  ■ 

127 

\PSTPT= 

=SYM80L   ADDRESS 

128 

.PSTCN- 

^SYMBOL   LENGTH 

129 

130 

OUTPUTS: 

131 

RO,R1,R2=DESTROYED 

132 

$VALUE 

=EXTERNAL    SYMBOL 

133 

13A  000000 

ioLOBL: 

135  000000 

005067 

OOOOOOG 

'CLR 

$VALUE 

136  000004 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#F1.STE,$FLAG1 

137  000012 

001063 

BNE 

50$ 

138  OOOOU 

016700 

OOOOOOG 

MOV 

.PSTPT.RO 

139  000020 

012701 

000000' 

MOV 

.»ASYM,R1 

140  000024 

016702 

OOOOOOG 

MOV 

.PSTCN,R2 

141   000030 

022702 

000006 

CMP 

*6.R2 

loi 

142  000034 

103002 

BHIS 

143  000036 

012702 

000006 

MOV 

#6,R2 

144  000042 

010246 

10$: 

MOV 

R2.-(SP) 

(R0)+,(R1)t 

R2,20i 

145  000044 

112021 

20$: 

MOVB 

146  000046 

SOB 

147  000052 

012702 

000006 

MOV 

#6,R2 

148  000056 

162602 

SUB 

(SPH,R2 

149  000060 

001404 

BEO 

40$ 

150  000062 

112721 

000040 

30$: 

MOVB 

#■    ,(R1)t 

151   000066 

SOB 

"2,30$ 

152  0CO072 

012700 

000000' 

40$: 

MOV 

»,,SYM,R0 

153  000076 

010701 

MOV 

PCRI 

154  000100 

CALL 

$CAT5 

155  000104 

010167 

000012' 

MOV 

RI.GSYM 

156  C00110 

010701 

MOV 

PCRI 

157  000112 

CALL 

$CAT5 

158  000116 

010167 

000014' 

MOV 

R1,GSYM+2 

159  000122 

005000 

CLR 

RO 

160  000124 

005001 

CLR 

R1 

161   000126 

012702 

000304' 

MOV 

#STBEXT,R2 

162  0001 32 

CALL 

$AZFS 

163  000136 

012700 

000006' 

MOV 

#GBLK,RO 

U,  000142 

CALL 

$SYM8L 

165  : 001 46 

103406 

BCS 

101$ 

166  000150 

016767 

000016' 

OOOOOOG 

MOV 

GVAL,$VALUE 

167  000156 

005701 

TST 

R1 

168  000160 

001010 

BNE 

111$ 

169  000162 

50$: 

RETURN 

170 

171 

172 
173 
IZ".  000164 

;    ERROP 

CONDITIONS 

126727 

OOOOOOG 

000006      l01$: 

CMPB 

$CLEVL,#6 

175  000172 

001403 

BEQ 

111$ 

176  000174 

052767 

OOOOOOG 

OOOOOOG 

BIS 

#F1.STE,$FLAG1 

■77  00020? 

016000 

000020' 

111$: 

MOV 

GETAB-2(RO),R0 

178  000206 

CALL 

a(RO)t 

SET  NO  VALUE  YET 

ANY  SYMBOL  TABLE  ERRORS  YET? 

IF  NE,  YES 

RET  SYMBOL  ADDRESS 

GET  LOCAL  SCRATCH  PAD  ADDRESS 

GET  SYMBOL  LENGTH 

6  CHARACTERS  OR  LESS? 

IF  HIS,  YES 

USE  ONLY  FIRST  6  CHARACTERS  OF  SYMBOL 

SAVE  LENGTH 

COPY  SYMBOL 

IS  SYMBOL  LENGTH  6? 

IF  EQ,  YES 

FILL  WITH  BLANKS 

UP  TO  A  LENGTH  OF  6 

CONVERT  6  CHARACTERS 

FROM  ASCII  TO  RAD50 

AND  STORE  IN  CONTROL  BLOCK 


SETUP  ASCIZ  FILE  SPEC 

NOTE  -  C1,1]XXX.STB  FOR  11D/IAS 


POINT  TO  SYMBOL  CONTROL  BLOCK 

LOOK  FOR  GLOBAL  SYMBOL 

IF  CS,  FILE  ERROR  OF  SOME  SOR" 

SET  SYMBOL  VALUE 

CHECK  COUNT  OF  UNDEFINEDS 

IF  NE,  SYMBOL  WAS  UNDEFINED 


IS  GCL  AT  MAXIMUM  DE'^TH? 

IF  EQ,  YES 

INDICATE  SYMBOL  TABLE  ERROR 

GET  ERROR  MESSAGE  BLOCK  ADDRESS 

PRINT  F  'OP  MESSAGE 


TMPACA 


N  4 
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TMP 


297 

298 

299 

300 

301 

302 

305 

304 

305 

306 

307 

308  000452 

309  000452 

310  000456 

311  000462 

103443 

312  000464 

005000 

313  000466 

032767 

OOOOOOG  OOOOOOG 

314  000474 

001402 

315  000476 

005067 

OOOOOOG 

316  000502 

016701 

OOOOOOG 

317  000506 

001415 

318  000510 

319  000514 

103426 

320  000516 

005201 

321  000520 

042701 

000001 

322  000524 

010167 

OOOOOOG 

323  000530 

324  000534 

103743 

325  000536 

105267 

OOOOOOG 

326  0C0542 

112722 

OOOOOOG 

327  000546 

110022 

328  000550 

000300 

329  000552 

110022 

330  000554 

116722 

OOOOOOG 

331  0OC56O 

116712 

000001 G 

332  000564 

062767 

000002  OOOOOOG 

333  000572 

$SCOM  -  ".POOL"  OR  ".SCOM"  ACTION  ROUTINE 

INPUTS: 

$VALUE=NUMBER  OF  BYTES  NEEDED 

OUTPUTS: 

R0,R1,R2=DESTR0YED 

$NALL  INCREMENTED  IF  ALLOCATION  SUCCEEDED 

F1.ERR  SET  IF  ALLOCATION  FAILED 


isCOM:: 


5$: 


10$: 


20$: 


CALL 

SVFLVI 

CALL 

$RQ5 

BCS 

20$ 

CLR 

RO 

BIT 

*FL.CHA,$FLAGS 

BEQ 

5$ 

CLR 

$VALUE 

MOV 

$VALUE,R1 

BEQ 

10$ 

CALL 

MAX  14 

BCS 

20$ 

INC 

R1 

BIC 

#1,R1 

MOV 

R1,$VALUE 

CALL 

$ALL16 

BCS 

ALLERR 

INCB 

$NALL 

MOVB 

#.SC0M,(R2)+ 

M0V8 

R0,{R2W 

SWAB 

RO 

MOVB 

R0,(R2)t 

MOVB 

$VALUE,(R2)+ 

MOVB 

$VALUEt1,(R2) 

ADD 

#2,$SIZE 

RETURN 

MAKE  SURE  IT'S  THE  PRIMARY  TEMPLATE 

REQUEST  BINARY  FILE 

IF  CS,  NO  ACCESS 

ASSUME  ZERO  LENGTH 

MUX  CHARACTERISTICS  UPDATE  ONLY  ? 

NO  .. 

YES  ..  NO-OP  THE  ALLOCATION 

GET  BYTE  COUNT 

IF  ZERO,  DON'T  ALLOCATE 

ALLOW  ONLY  14.  ALLOCATIONS 

IF    CS,   NO  MOF<E   ALLOWED 

ROUND  COUNT  UP  TO  MULTIPLE  OF  2 

RESET  COUNT  VALUE 

ALLOCATE  16  BIT  ADDRESSABLE  STORAGE 

IF  CS,  FAILURE 

TALLY  SUCCESSFUL  ALLOCATION 

STORE  FUNCTION  CODE 

STORE  ADDRESS 


STORE  COUNT  (FOR  CLEANUP  ONLY) 
ADJUST  DATA  BASE  SIZE 


N  5 


N  :> 
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sc 


012700  000000' 


103446 
016767 
016767 


187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 

201  000162 

202  000166 

203  000172 

204  000174 

205  000202 
206 
207 

208  000210 

209  000216 
210 
211 
212 
213 
214 

215  000224 

216  000226 

217  000232 

218  001/236 
219 
220 

221   000240     022701      001777 

222 

223 

224 

225 

226  000244 

227  000246 

228  000250 

229  000254 

230  000260 

231  000262 

232  000276 
233 
234 
235 
236 
237 

238  000302 

239  000306 
240 
241 
242 
243 


BN.LBL  -  READ  AND  PROCESS  LA8EL  B^OCK 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FA1LURE 
R0,R1,R2=DESTROYED 
$BFALL=SJZE  OF  ALLOCATION  NEEDED 
$BFLBN=L0G1CAL  BLOCK  NUMBEF 
$BFXFR=1RANSFER  SIZE  IN  BYTES 
$BFBAS=BASE  ADDRESS 


BN.LBL: 


016067 
032760 


001437 
016001 
026001 
001032 


103432 
010102 
066002 
022702 
103427 


OOOOOOG  OOOOOOG 
000002G  000002G 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 


OOOOOOG 
OOOOOOG 


OOOOOOG 
002000 


010167  OOOOOOG 


010267  OOOOOOG 


10$: 


MOV 

#DSKBUF,RO 

CALL 

$RLBL 

BCS 

101$ 

MOV 

$LBN,$BFLBN 

MOV 

$L8Nt2,$BFLBN+2  ; 

.IF  DF 

R$$11M 

MOV 

L$BSA(RO),$BFBAS 

BIT 

#TS$NHD,L$BFLG(RC 

.IFF 

M0V8 

L$BAPR(RO),$BFBAS 

BIT 

#LF$NHD,L$LFLG(RO 

.ENDC 

BEQ 

1 1 1  $ 

MOV 

L$BLDZ(R0),R1 

CMP 

L$BMXZ(R0),R1 

BNE 

111$ 

.IF  DF 

R$$11M 

CMP 

#1777, R1 

.IFF 

CMP 

#200, Rl 

.ENDC 

BLO 

121$ 

MOV 

R1,R2 

?8^ 

L$BEXT(R0),R2 

#2000, R2 

BLO 

131$          ; 

ASL$ 

6,R1 

MOV 

R1,$8FXFR 

.IF  NDF 

M$$MGE 

ASL$ 

6,R2 

.ENDC 

MOV 

R2,$BFALL       ; 

RETURN 

GET  DISK  BUFFER  ADDRESS 

READ  LABEL  BLOCK 

IF  CS,  FAILURE 

COPY  LOGICAL  BLOCK  NUMBER 


SAVE  BASE  ADDRESS 

;  DOES  FILE  HAVE  A  HEADER? 

;  SAVE  BASE  APR 
;  DOES  FILE  HAVE  A  HEADER? 


IF  EQ,  YES  -  ERROR 
GET  FILE  SIZE  IN  BLOCKS 
IS  FILE  OVERLAID? 
IF  NE,  YES  -  ERROR 

IS  FILE  SIZE  >  32K-32  WORDS? 
IS  FILE  SIZE  >  4K  WORDS? 


IF  LO,  YES 

COPY  FILE  SIZE 

ADD  EXTENSION  SIZE 

IS  EXTENSION  >  32K  WORDS? 

IF  LO,  YES 

CONVERT  SIZE  FROM  BLOCKS  TO  BYTES 

SET  TRANSFER  SIZE  IN  BYTES 


CONVERT  EXTENSION  FROM  BLOCKS  TO  BYTES 
SAVE  ALLOCATION  SIZE  NEEDED 


ERROR  CONDITIONS 


N     6 
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137 
138 
139 
UO 
HI 
U2 
143 
UA 
H5 
146 
147 
148 
149 
150 
151 

152  000000 

153  000000 

154  000004 

155  000006 

156  000012 

157  000014 

158  000016 

159  000022 

160  000026 

161  000030 

162  000034 

163  000036 

164  000044 

165  000046 

166  000052 

167  000060 

168  000062 

169  000070 

170  000076 

171  000100 

172  000104 
173 

174 


.SBTTL  $C0RE2  -  .CORE  OPERAND  2 

$C0RE2  -  ".CORE"  OPERAND  2  ACTION  ROUTINE 

INPUTS: 

$VALUE=MAPPiNG   REGISTER  ADDRESS 

OUTPUTS: 

R0,R1=DESTR0YED 
$VALUE=MAFPING  DISPLACEMENT 
$CAPR=APR  NUMBER 


005767 
100437 
016700 
001426 
010001 
042700 
026700 
001407 
026700 
001404 

000411 
042701 
016167 
006201 
116167 
032767 
001402 


OOOOOOG 
COOOOOG 


000016 
OOOOOOG 

OOOOOOG 


177761 

000000'  OOOOOOG 

000020'  OOOOOOG 
OOOOOOG  OOOOOOG 


$C0RE2 


20$: 


30$: 


40$: 


.IF  DF  M$$MGE 


TST 

$FLAG1 

BMI 

40$ 

MOV 

$VALUE,R0 

BEQ 

30$ 

MOV 

RO.Rl          ; 

BIC 

#<16>,R0 

CMP 

USARO.RO 

BEQ 

20$ 

CMP 

KSARO,RO 

BEQ 

20$ 

EMSG$ 

39 

BR 

30$ 

BIC 

#'>C<16>,R1 

MOV 

MAPP(R1),$VALUE  , 

ASR 

Rl 

M0V8 

MAP8YT(R1),$CAPR 

BIT 

#F2.FIL,$FL/>32  , 

BEQ 

40$ 

CALL 

FFN 

RETURN 

.ENDC 


HAVE  ANY  ERRORS  OCCURRED  ? 

IF  MI,  YES  -  DO  NOTHING 

GET  EXPRESSION  VALUE 

IF  ZERO,  DON'T  CHANGE  DEFAULTS 

COPY  IT 

CHECK  FOR  VALID  MAPPING  REGISTER 

EITHER  USER  I  APRO 

OR  KERNEL  I  APRO 

PRINT  WARNING  MESSAGE 

LEAVING  WORD  INDEX 
SET  MAPPING  DISPLACEMENT 
CONVERT  TO  BYTE  INDEX 
;  SET  APR  NUMBER 
WAS  VALID  FILE  NAME  SEEN  ? 
IF  EQ,  NO 
FIX  FILE  NAME  FOR  ERROR  MESSAGES 


TMPAC6     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:40 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


ASCII 

BUFUMP 

CHECK 

CMODE 

DFAPR 

FE.EXT 

FFN 

FL.CHA 

FL.DDM 

FL.DLC 

FL.LLC 

FMASK 

FMT2 

FM.2 

F1.UMR 

F2.FIL 

F2.LBR 

I$$AS 

K I  SARD 

KISAR6 

KSARO 

LB. ADR 

LB. USE 

MAPBYT 

MAPP 

MPAR 

MPCSR 

M$$MGE 

NTLPT 

PIRQ 

PMGDE 

PRO 

PR1 

PR2 

PR3 

PRA 

PR5 

PR6 

PR  7 

PS 

QSTRT 

R$$MPL 

R$$11D 

R$$11M 

5WR 

S$$BAS 

TPS 

UBMPR 

UISARO 

UISAR1 

USARO 


GX 
GX 
GX 


000030  R 
17235'!. 
000A4A  R 
UOOOO 
000006 
**♦«»«  GX 
000A30  R 
»*•**♦  GX 
»»«*»«  GX 
*»»***  GX 
»».*»«  GX 
«»»»♦*  GX 
000252  R 
000000 

****** 
****** 
****** 
****** 

172340 
17235A 

****** 
****** 
****** 

000020  R 
000000  R 
172100 
1777'-,6 
000000 

:  **♦«** 

:  177772 

030000 

000000 
:  000040 
:  000100 
:  OOOUO 
^  000200 
■  000240 
^  000300 
:  000340 
:  177776 

:  ****** 
****** 
****** 

--   000000 
:  177570 


177564 
170200 
177540 
177o42 


GX 


GX 


GX 


REFERENCES 

#7-104 
#5-62 

10-242 
#5-62 
#7-98 

13-379 

9-171 

11-327 

18-527 

18-527 

17-509 

13-379 

8-117 
#8-117 

11-329 

9-169 

10-276 

5-62 
#5-62 
#5-62 

9-161 

11-331 

11-333 
#7-91 
#7-90 
#5-62 
#5-62 

5-62 

10-237 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-52 

11-331 

5-62 

5-62 

10-265 
#5-62 

8-117 

8-122 
#5-62 
#5-62 
#5-62 
#5-62 

9-159 


10-198 
10-244 
10-284 
10-281 


8-118 
#8-118 
13-377 
10-194 
11-336 


9-168 
9-166 


7-89 
13-381 


5-62 
15-378 


-117 


N     7 
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CREf       04.00 


10-227 
10-251 


#10-294 


8-120 
#8-120 
14-409 
10-288 
11-339 


10-253 


10-255 


10-257 


10-259 


#11-312 


8-121 
#8-121 


8-122 
#8-122 


#8-130 


7-97 


-116 


9-150 


10-262 


11-312 


13-375 


14-407 


5-62 


8-118 


10-201 


8-118 


8-120 


3-120 


8-121 


8-121 


8-122 


N  8 
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341 
542 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 


SLBERR  -  CLEANUP  AFTER  AN  ERROR 


]^!PUTS.• 


000540 
000540 
000546 
000550 
000554 
000560 


032767 
001002 

016700 
001404 


0000006  OOOOOOG 


kSERR: 


000000' 


10$.- 


000562  012701  000001 


000566 
000572 


20$: 


F2.LBR  SET  If  LIBRARY  WAS  ALRE^DY  RESIDENT 
L8LK=LI8RARY  BLOCK  ADDRESS  IF  IT  WAS  ALLOCATED 


BIT 

BNE 

CALL 

MOV 

BED 

.IF  DF 

MOV 

.IFF 

MOV 

.ENDC 

CALL 
RETURN 


#F2.LBR,$FLAG2 

10$ 

$CLDEQ 

LBLK.RO 

20$ 

M$$MGE 
#1,R1 

*100,R1 
$DEA18 


WAS  LIBRARY  RESIDENT? 

IF  NE,  YES 

CLOSE  LIBRARY  FILE 

GET  LIBRARY  BLOCK  ADDRESS 

IF  EQ,  NONE  ALLOCATED 


SET  TO  DE-ALLOCATE  1  32.  WORD  BLOCK 
DITTO 

DE-ALLOLATE  LIBRARY  BLOCK 


*F!LE««ID«»TMPAC9 


N    9 


TTTTTTTTTT 

MM 

MM 

pppppppp 

AAAAAA 

CCCCCCCC 

999999 

TTTTTTTTTT 

MM 

MM 

pppppppp 

AAAAAA 

CCCCCCCC 

999999 

MMM^ 

MMMM 

PP      PP 

AA 

AA 

99     99 

MMM^ 

MMMM 

PP      PP 

AA 

AA 

99     99 

MM 

*IM  MM 

PP      PP 

AA 

AA 

99     99 

MM 

MM  MM 

PP      PP 

AA 

AA 

99     99 

MM 

MM 

pppppppp 

AA 

AA 

99999999 

MM 

MM 

pppppppp 

AA 

AA 

99999999 

MM 

MM 

PP 

AAAAAAAAAA 

99 

MM 

MM 

PP 

AAAAAAAAAA 

tl 

MM 

MM 

PP 

AA 

AA 

MM 

MM 

PP 

AA 

AA 

99 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

999999 

MM 

MM 

PP 

AA 

AA 

CCCCCCCC 

999999 

ssssssss 

TTTJTl 

TTTT 

ssssssss 

TTTTTl 

nil 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 
ss 

..  ,  .lLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

N  10 
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97 

98 

99 
100 
101 
102 

103  000012 

104  000044 

105  000112 

106  000150 

107  000216 

108  000260 

109  000322 

110  000372 

111  000432 

112  000472 
113 

114 
115 
116 
117 
118 
119 
120 

121  000554 

122  000555 

123  000560 
124 

125 

126 

127 

128 

129 

130 

131 

132  000604 

133 

134 

135 

136 

137 

138 

139 

UO 

HI 

1 42 

143 

144 

145 

146 

147  000000 


.SBTTL  ERROR  MESSAGES 


ERROR  MESSAGES 

.ENABL  LC 


,33, 

,34, 
,35, 
,36, 


NTLERS 
NTLERS 
NTLERS 
NTLERS  .__, 
NTLERS  ,37, 
NTLERS  ,84 
NTLERS  ,86 
NTLERS   "■ 
NTLERS 
NTLERS 


,98 
,9C 
,9V 


1,STWE,SREP.P,,<Line  TabLe  Empty> 
1,STERR,SREP.P,,<Line  Table  AHocati'on  Failure> 
3,STFRR,SREP.P,,<No  Interrupt  Linkage) 
."j,STERR,SREP.P,,<Incomplete  Interrupt  Linkage> 
i,STERR,SREP.P,,<".MPTAB"  Operator  Missing> 
3,STERR,SREP.P,,<".LFILE"  Operator  Mi'ssing> 
1 ,STERR,SREP.P,,<Unload  Block  Allocation  Failure> 
1,STERR,SREP.P,,<ICB  allocation  ff>;iure> 
1,STERR,SREP.P,,<KRB  allocation  railure> 
,$TERR,RTSPC,,<*WARNING*  —  Failed  to  re-initialize  HRO 


.DSABL  LC 


ERROR  MESSAGE  FORMAT  STRINGS 


000 
052 
052 


040 
0-w 


000 
124 


FMTO 
FMTl 
FMT3 


.ENABL 

.NLIST 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.DSABL 

.LIST 


LC 
BEX 


"*  Template  File  — 

LC 
BEX 


NETLDR  DATA  BLOCK  BIAS 


NLBLK: 


.IF  DF  MSSMGE 
.BLKW   1 
.ENDC 


SLN  FOR  UNIT  ZERO  SLT  (FOR  <.PRM(KRB)) 


.IF  DF 
ZSLN:    .BLKW 
.ENDC 


RSSMPL 
1 


000001 


32.  WORD  BLOCK  ALLOCATION  SIZE 
.IIF  DF  MSSMGE,  BLKSIZ=1 
.PSECT 


N  11 
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696 
697 
698 
699 
700 

701  001272 

702  001276 

703  001302 
70^  001306 
705 

706 

707 

708 

709 

710  001312 

711 

712 

713  001312 

7K  001320 

715  001322 

716  001326 

717  00133A 

718  001336 

719  001 34A 
720 

721  001346 

722 

723 

724 

725 

726 

727 

728 

729 

730 

751 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

7',3 

744 

745 

746 

747 

748 

749 

750 

751 

752 


.SBTTL 
.SBTTL 


XLT  ■ 
XIC8 


DEALLOCATE  LINE  TABLE 
-  DEALLOCATE  KB 


016700 
016701 
005067 


OOOOOOG 
OOOOOOG 
OOOOOOG 


RELEASE  LINE  TABLE  ALLOCATION 


XLT: 


XICB: 


032767 
001423 
016701 
032761 
001015 
026767 
103411 


OOOOOOG  OOOOOOG 

OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG  120000' 


10$; 


20$: 


MOV 
MOV 
CLR 
CALLR 


$ADDR,RO 
$SIZE,R1 
$ADDR 
.DEA16 


GET  ADDRESS  OF  ALLOCATION 
AND  SIZE  Of  ALLOCATION 
ZERO  LINE  TABLE  ADDRESS 
DE-ALLOCATE  LINE  TABLE 


RELEASE  KB  ALLOCATION 

NOTE  -  THE  KB  SHOULD  BE  DE-ALLOCATED  BEFORE  THE  LINE  TABLE 


.IF  DF  R$$11M  &  M$$MGE 


BIT 

#FL.DDM,$FLAGS 

BEQ 

50$ 

MOV 

$PDVA,R1 

BIT 

#ZF.PSE,Z.fLG(Rl) 

BNE 

50$ 

CMP 

SADDR, 120000 

BLO 

50$ 

SLSTifS 

50$ 

.IF    DF 

R$$MPL 

BU 

#F2.DAS,aFM2TMP 

BEQ 

40$ 

MOV 

aKSAfi5,-(SP) 

MOV 

$SLTA,R4 

MOV 

L.K;fi6A(R4),R4 

MOV 

K.PRM(R4),R0 

BEQ 

30$ 

CLR 

K.PRM(R4) 

CLR 

-(SP) 

CMPB 

»l,aNCPU 
20i 

BHIS 

MOV 

#:20ooo,(SP) 

MOV 

R0,R2 

BIC 

#7>77,R2 

BIC 

R2,P0 

SWAB 

R2 

.REPT 

3 

ASR 

R2 

.ENDR 

ADD 

K6TAB,R2 

MOV 

(r':2),aKSAR5 

MOV 

^SP)t,R2 

ASL 

RO 

MOV 

(RO),-(SP) 

TST 

-(ROS 

MOV 

$K8SZ,R1 

MOV 

KAVL,R3 

;S  PROCESS  A  DDM  7 

IF  EQ,  NO 

GET  PDV  ADDRESS  OF  PROCESS 

IS  IT  A  PSEUDO  DEVICE? 

BR  IF  YES  -  DON'T  CHECK 

IS  THIS  A  MAPPED  LINE  TABLE 

IF  LO,  NO 

»  ENTER  KERNEL  MODE 


IS  DATA  SPACE  ENABLED  ? 

IF  EQ,  NO  -  JUST  LIKE  IIM 

SAVE  CURRENT  MAPPING 

GET  SLT  ADDRESS 

..GET  KRB  ADDRESS 

GET  1ST  KB  IN  CHAIN 

IF  EQ,  NO  ICB'S 

ZERO  KB  CHAIN 

ASSUME  KB  IS  NOT  FROM  A  CPU  PARTITION 

MULTI-PROCESSOR  SYSTEM  ? 

IF  HIS,  NO 

GET  DISPLACEMENT  FOR  APR5  MAPPING 

COPY  KB  ADDRESS 

FORM  CPU  NUMBER  IN  UPPER  4  BITS  OF  R2 

CLEAR  CPU  NUMBER  OUT  OF  POINTER 

FORM  CPU  NUMBER»2  OF  POOL  FOR  THE  KB 


MAP  TO  THE  KB  POOL 

GET  BIAS  BITS 

FORM  VIRTUAL  ADDRESS  OF  KB 

SAVE  POINTER  TO  NEXT  KB 

INCLUDE  KB  NUMBER  AND  SIZE  FIELD 

GET  LENGTH  OF  KB 

POINT  AT  KB  POOL  LISTHEAD 


TMPALT     CREATED  BY  MACRO  ON  29-JUN-85  AT  00:41 
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CREf   04.00 


SYMBOL  VALUE 


LN.REF 
N.SER 
lN.STA 
LN.SUB 
LN.TRI 


COST 
CTL 
CVA 
DDM 
DDS 
DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN 
L.MPF 
L.NMST 
L.NSTA 
L.QWNR 
L.UNT 
HSSMGE 
NLBLK 
NTLPT 


000002 

000002 

000017 

000360 

000006 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000000 

000604  R 

**»»»*  GX 


REFERENCES 

#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 

7-131 
#7-132 

11-513 


9-373 
9-372 


*9-394 


7-H5 
♦11-514 


9-389 
9-387 


8-207 
11-598 


11-510 
11-601 


14-711 


15-801 


PDVNM 

=  ****** 

GX 

12-654 

PDVTA 

-  ****** 

GX 

12-655 

12-664 

PDVX 

000000 

R 

#6-78 

*12-666 

13-676 

P.REL 

=  *♦♦*♦* 

GX 

15-830 

RTSPC 

f^00224 

R 

7-112 

#8-291 

R$$MPL 

=  ****** 

5-62 
16-963 

6-80 
17-1088 

7-138 
18-1134 

8-186 

R$$11M 

=  000000 

8-221 

8-236 

8-254 

8-270 

SF.ACT 

=  000200 

#5-61 

SF.ENA 

=  COOT  00 

#5-61 

SF.LPB 

=  000004 

#5-61 

SF.MFL 

=  000040 

#5-61 

SF.PAC 

=  000020 

#5-6T 

SF.REA 

=  000010 

#5-61 

SF.SER 

=  000001 

#5-61 

SF.SVC 

=  000002 

#5-61 

SF.UNL 

=  000040 

#5-61 

SLTMA 

-    ****** 

GX 

9-382 

SLTNM 

-  ****** 

GX 

9-383 

SSSSAS 

=  ****** 

7-103 

7-103 

7-104 

7-104 

7-107 

7-108 

7-108 

7-109 

7-112 

7-112 

S.C05T 

000001 

#5-61 

S.FLG 

000000 

#5-61 

S.LEN 

000004 

#5-61 

S.NMST 

000002 

#5-61 

S.OWNR 

000003 

#5-61 

UBA 

000616 

R 

8-288 

#11-497 

8-216 

8-246 

9-356 

9-375 

14-723 

9-326 

11-557 

11-584 

14-711 

15-803 

7-105 
7-109 


7-T05 
7-110 


7-106 
7-110 


7-106 
7-111 


7-107 
7-111 


TMPf xP 
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115 
114 

ns 

116 
117 
118 
119 
120 
121 
122 
12? 
124 
125 
126 
127 


000104 

ooono 


27$: 
30$: 


000001 


.IfF 

CMP 

BHIS 

CALL 

BR 

.ENDC 

.ENDC 

CALL 
RETURN 


.END 


$ADDR, #60000 
27$ 

$TMEX7 
30$ 


$TMEX5 


LINE  TABLE  AT  END  OF  PROCESS  PARTITION? 

BR  IF  NO 

UPDATE  THE  LINE  CHARACTERISTICS 

AND  LEAVE 


UPDATE  THE  LIN^  CHARACTERISTICS 


N  K 

TMPEX2  -  NTL  EXPANSION  ROUTINES  MACRO  V05.03b  Saturday  29-Jun-85  00:42 
ADDRB,ADDRW,BLK,B,BLKW 


289  000334 

016024 

OOOOOOG 

10$:    MOV 

$$PCHA(R0),(R4)t 

290  000340 

RETURN 

291 

292 

• 

293 
294 
295  000342 

;  END  OF  FILE 

EOF:    CRASH 

296 
297 
298 
299 
300  000344 

•  LOGICAL  LINKS 

017^00 

OOOOOOG 

LINKS:   MOV 

aDECPT,RO 

301  000350 

116024 

000040 

M0V8 

D$MLL(R0),(R4)+ 

302  000354 

105024 

CLRB 

(R4)  + 

303  000356 

RETURN 

504 

305 

306 

;•  LISTHEAD 

307 

308  000360 

010400 

LSTHD:   MOV 

R4,R0 
(R4)  + 

309  000362 

005024 

CLR 

310  000334 

010024 

MOV 

R0,(R4)t 

311  000366 

RETURN 

312 

313 

314 
315 
316  000370 

!•  LINE  TABLE  ADDRESS 

016724 

OOOOOOG 

LTA8:   MOV 

$ADDR,(R4)t 

317  000374 

RETURN 

318 

319 

320 
321 
322  000376 

;  SECONDARY  CSR 

005767 

000154' 

SECSR:   TST 

FLAGS 

323  000402 

100015 

BPL 

101$ 

324  000404 

016700 

000152- 

MOV 

INDEX, RO 

325  000410 

032767 

OOOOOOG 

OOOOOOG        BIT 

#FL.KMX,$FLAGS 

326  000416 

001403 

BEQ 

10$ 

327  000420 

006200 

ASR 

RO 

328  000422 

006200 

ASR 

RO 

329  000424 

006200 

ASR 

RO 

330  000426 

006300 

10$:    ASL 

RC 

331  000430 

016024 

OOOOOOG 

20$:    MOV 

$$SCSR(R0),'R4)+ 

332  000434 

RETURN 

333  000436 

012724 

177777 

101$:   MOV 

#-i,(R4)t 

334  000442 

RETURN 

335 
336 
337 

;  SYSTEM  LINE  NUMBER  (BYTE) 

338 

339  000444 

005000 

SLNB:   CLR 

RO 

340  000446 

005767 

000154' 

TST 

FLAGS 

341  000452 

100003 

BPL 

10$ 

342  000454 

016700 

000152' 

MOV 

IiMDEX,RO 

543  000460 

122020 

CMPB 

(RO)+,(RO)t 

344  0004^^ 

116024 

OOOOOOG 

10$:    MOVB 

$SLN(R0),(R4)t 

345  000466 

RETURN 
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COPY  PROTOCOL  EMULATOR  CHARACTERISTICS 


GET  DECNET  HOME  BLOCK  ADDRESS 
COPY  LOGICAL  LINK  COUNT 
INIT  HIGH  BYTE 


SET  REAL  ADDRESS 

STORE  A  ZERO  WORD 

STORE  ADDRESS  OF  PREVIOUS  WORD 


STORE  LINE  TABLE  STARTING  ADDRESS 


IS  IT  MUX  EXPANSION? 

IF  PL,  NO 

GET  SECONDARY  FILE  COUNTER 

IS  THIS  A  COMIOP  MUX  LINE? 

IF  EQ,  NO 

DIVIDE  COUNTER  BY  8 

(NUMBER  OF  LINES  PER  CONTROLLER) 

convert'"    word  INDEX 
;  copy  SEiuMUARY  CSR  ADDRESS 

SECSR  NOT  IN  MXTAB  FILE 


ASSUME  NORMAL  EXPANSION 

IS  IT  MUX  EXPANSION? 

IF  PL,  NO 

GET  MUX  INDEX 

SKIP  DLC  LINE  NUMBER 

STORE  SYSTEM  LINE  NUMBER 
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ADDRB 

000046R 

DSRTMR 

ADDRW 

000072R 

DSSEG 

APR 

001530R 

DISER 

At$fHK= 

000000 

D$SQRL 

A$$CPS= 

000000 

D$$BUG= 

Av$PRI= 

000000 

D$$ISK= 

A$$TRP= 

000000 

D$$L11= 

3LXB 

0OO122R 

D$$YNC= 

BLKW 

0001 34 P 

D$$rNM= 

BYTE 

000U6R 

EOF 

CORE 

00071  OR 

E$$XPR= 

CSR 

0001 52R 

FILE 

CTIM 

000154R 

FLAGS 

C$$C<P= 

000000 

FL.DDM= 

C$$ORE= 

000400 

FL.DLC= 

C$$RSH= 

177564 

FL.KMX= 

DECPT  = 

*•»...  Gx 

FL.MUX= 

DPRB 

001656R 

F$$LVL= 

DPRW 

001664R 

G$$TPP= 

DVCHA 

0001 72R 

G$$TSS= 

DSAMXC 

000072 

G$$TTI<;  = 

DSAMXH 

000074 

G$$WRD= 

DSANN 

000000 

INDEX 

DSBRPR 

000102 

INT 

DSBRTM 

000100 

I$$RAR= 

DIDELF 

000045 

I$$RDN= 

DSDELW 

000046 

KSAR5  = 

DSEND  = 

000104 

K$$CNT= 

DSFNB 

000034 

K$$CSR= 

DSHIOR 

000024 

K$$LDC= 

DSHOST 

000022 

K$$TPS= 

DSINAC 

000044 

LB.ADR= 

DSINCT 

000042 

LDSLP  = 

D$IPL 

000051 

LFILE 

D$LID 

000020 

LF.ACT= 

DSLNAM 

000006 

LF.BR0= 

OSLNUH 

000014 

LF.BWT= 

DSLST 

000047 

LF.ENA= 

DIHAXC 

000064 

LF.LPB= 

DSNAXH 

000066 

LF.MDC= 

DSMAXV 

000070 

LF.I»IFL  = 

D$MLL 

000040 

LF.MTP= 

DSMNCD 

000041 

LF.PAC= 

D$NA 

000062 

LF.RDy= 

D$N  -A 

000056 

LF.REA= 

DSNBRA 

000054 

LF.SER= 

D$NEND= 

000054 

LF.TIM= 

D$NLN 

000030 

LF.UNL= 

D$NN 

000060 

LF. X2P= 

DSOUTT 

000043 

LIBR 

D$RETF 

000050 

LINKS 

"tRNN 

000002 

LN.CL0= 

.  ABS.   177776 
00?152 
DATA    COO  156 
E"-or5  detected: 


000 
001 
002 
0 


000076 
000036 
000032 
000052 
177514 
000000 
000001 
000000 

ooooon 

00034. R 
000000 
001200R 
000154R 


GX 
GX 
GX 
GX 


GX 


****** 

****** 

000001 

000000 

000000 

000000 

000000 

000152R 

001122R 

000000 

000000 

****** 

177546 

177546 

000000 

000074 

******  GX 

000000 

001266R 

100000 

000400 

000007 

002000 

OCIOOO 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

001406R 

000344R 

000000 


{RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 


LN.DUM= 
LN.LOA= 
LN.L00= 
LN.0AU= 
LN.OfF= 
LN.ON  = 
LN.OOP= 
LN.OPC= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.SIJB= 
002  LN.1RI= 
LSTHD 
LTAB 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.COST 
L.CTL 
L.CVA 


002 


DDM 
L.DDS 
L.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSTA 
L . OUNR 
L.UNT 
MP  TAD 
MXPTB 
MX  TAB 
M$$CRe= 
H$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$0VR= 
NOD 

N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$M0V= 
N$$NCT: 


000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000360R 

000370R 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

001260R 

001500R 

001172R 

000124 

000000 

000000 

000000 

000000 

000000 

000520R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 


N$$PEM= 

PECHA 

PR  I 

PRTOV 

PR7   = 

P$$P45= 

P$$WRD= 

Q};$0PT= 

R$$DER: 

R$$K11= 

R$$SND= 

R$$11M= 

SAVALC 

SCOM 

SECSR 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER=: 

SF.SVC= 

SF.UNL= 

SLNB 

SLNW 

STNB 

STNW 

S$$URG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S . OWNR 

TABLE 

T'ME 

T$$KMG= 

T$$MIN= 

UNB 

UNU 

V$$CTR= 

WORD 

X$$DBT= 

X2CH01 

X2CH02 

X2CH03 

X2CH04 

X2CH05 

X3CH01 

X3CH02 


000001 

0U0274R 

001160R 

000532R 

******  GX 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

001066R 

001030R 

000376R 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

000444R 

0004 70R 

000536R 

000574R 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

OOOOOOR 

001612R 

000000 

000000 

000636R 

000660R 

001000 

000702R 

000000 

001774R 

002022R 

002050R 

002076R 

002124R 

001672R 

001700R 


X3CH03 
X3CH04 
X3CH05 
X3CH06 
X3CH07 
X3CH08 
X3CH09 
X3CH10 
X3CH11 
ZTIME  = 
$ADDR  = 
$BIAS  = 
$8IN  = 
$C7IM  = 
$FLAGS= 
$LDA  = 
$MAPX  = 
$MXSIZ= 
$PTR  = 
$SLN  = 
$SLTSV= 
$rMEX2 
$UBIA$= 
$UDA  = 
$X2HLD= 
$X2MBS= 
$X2MRT= 
$X2MWS= 
$X2RET= 
$X3CAL= 
$X3CLR= 
$X30BS= 
$X3DWS= 
$X3MBS= 
$X3MCL=: 
002  $X3MRE= 
$X3MRS= 
$X3MWS= 
$X3RES= 
$X3R5T= 
$$APR  = 
$$CSR  = 
$$DCHA= 
$$DPR  = 
$$LSAD= 
$$MTP  = 
$$PCHA= 
$$PR1  = 
$$SCSR= 
$$SNUM= 
.EOF  = 


001706R 

001714R 

001722R 

001730R 

001736R 

001744R 

001752R 

001760R 

001 766R 

****** 

****** 

****** 

******  GX 

******  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 

OOOOOORG 

****** 

****** 

****** 

****** 

******  GX 

******  GX 

******  GX 

****** 

****** 

****** 


GX 
GX 
GX 
GX 


GX 
GX 
GX 

»♦***«  GX 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


B  1 

C  1   TMPACO 
D  1 


1  I 


N  1 

B  i 

^     i 
D  i 

E  2 

F  2 

G 

H 

I 

J 

K 

I 

M 

N 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 


3 
3 
3 

4 
A 
A 
4 
A 
A 
A 
A 
A 
A 
A 
A 
5 
C   5 


TMPAC2 


3 
3 
3 

3 

3  TMPAC3 
3 


TMPACA 


TMPAC5 


J 

K 

1 

M 

N 

R 

ft 

r 

ft 

1) 

6 

F 

ft 

F 

ft 

G 

ft 

H 

ft 

I 

ft 

J 

ft 

K 

6 

1 

ft 

M 

ft 

N 

ft 

R 

i' 

r 

1 

n 

( 

F 

I 

F 

! 

G 

t 

H 

t 

I 

t 

J 

/ 

< 

/ 

1 

t 

M 

/ 

N 

1 

R 

H 

r 

a 

D 

8 

F 

H 

F 

H 

G 

H 

H 

rt 

I 

H 

,1 

« 

K 

K 

1 

H 

M 

H 

N 

H 

R 

V 

r 

9 

D 

y 

F 

V 

F 

9 

G 

9 

H 

9 

I 

9 

J 

9 

K 

9 

1 

9 

M 

9 

N 

9 

R 

10 

r 

10 

0 

10 

TMPAC6 


TMPAC7 


TMPACS 


TMPAC9 


\\% 

G  10 

H  10 

I  10 

J  10 

K  10 

1  10 

M  10 

N  10 

R  11 

C  11 

D  11 

F  11 

F  11 

G  11 

H  11 

I  1 1 

J  11 

K  11 

1  11 

M  11 

N  11 

R  12 

r  12 

n  12 

F  12 

F  12 

G  12 

H  12 

I  12 

J  12 

K  12 

1  12 

M  12 

N  12 

R  H 

r  n 

D  13 

F  H 

F  13 

G  13 

H  13 

1  13 

,1  13 

K  13 

1  13 

M  13 

N  13 

R  1A 

r  1A 

[)  1A 

F  lA 

F  1A 

G  1A 

H  1A 

I  1A 

J  1A 

K  1A 

TMPALT 


TMPERR 


IMPEXP 


TMPEX2 


M 

U 

N 

U 

R 

15 

r 

IS 

D 

IS 

F 

IS 

F 

IS 

G 

IS 

H 

IS 

[ 

IS 

.1 

IS 

K 

IS 

1 

IS 

M 

IS 

N 

IS 

R 

1ft 

r 

1ft 

0 

1ft 

F 

1ft 

F 

1ft 

G 

1ft 

H 

1ft 

I 

1ft 

J 

1ft 

K 

1h 

L 

16 

H  16 


TMPEX3 


L  1A 


